Разное > Разное

UUID уникальный идентификатор компьютера

(1/3) > >>

altver:
Добрый день, уважаемые программисты!
КАК в Delphi
или  в С++
получить UUID уникальный идентификатор компьютера?
Заранее благодарен!

Алексей Кулик:
Стесняюсь спросить - что значит "уникальный ID компьютера"? У HDD свой ID, у процессора - свой. MAC-адрес вообще уникален и завязан, насколько я помню, вообще на сетевую карту.

altver:
У меняесть лисп, который опредеяет идентификатор компьютера, однако мне необходимо это определять не на языке ЛИСП, а в Delphi или  в С++.
Прилагаю ЛИСП, который это определяет.

altver:

--- Код - Auto/Visual Lisp [Выбрать] ---(defun  c:Get_UUID (/ LocatorObj ServiceObj ObjectSetObj UUID)  (setq LocatorObj         (vlax-create-object "WbemScripting.SWbemLocator")  )  (setq ServiceObj         (vlax-invoke           LocatorObj 'ConnectServer nil nil nil nil nil nil nil nil)  )  (setq ObjectSetObj         (vlax-invoke           ServiceObj           'ExecQuery           "SELECT UUID FROM Win32_ComputerSystemProduct"         )  )  (vlax-for Obj ObjectSetObj    (setq UUID           (vlax-get Obj 'UUID)    )  )  (foreach Obj               (list LocatorObj ServiceObj ObjectSetObj)    (and Obj (vlax-release-object Obj))  )  UUID)

Алексей Кулик:
Так вроде гугл еще работает?
https://www.google.com/search?q=C%23+WbemScripting.SWbemLocator
https://www.google.com/search?q=C%2B%2B+WbemScripting.SWbemLocator&sxsrf=ALiCzsZhGhyDXI4xHRcc9kaL4Z71aM1-nQ%3A1667250748439&ei=PDpgY8K8GqyTwPAPk_OBiAc&ved=0ahUKEwjCyvKEsYv7AhWsCRAIHZN5AHEQ4dUDCA4&uact=5&oq=C%2B%2B+WbemScripting.SWbemLocator&gs_lcp=Cgxnd3Mtd2l6LXNlcnAQAzIECAAQHjoHCAAQHhCwAzoFCAAQogRKBAhBGAFKBAhGGABQvQdYxAhgrg1oAXAAeACAAViIAa8BkgEBMpgBAKABAcgBAcABAQ&sclient=gws-wiz-serp
https://www.google.com/search?q=delphi+wbemscripting.swbemlocator&sxsrf=ALiCzsbJwvTrEGNJziGYJ_WtYQE4sNqOYA%3A1667250845554&ei=nTpgY7-4IYv9qwGLr4vQBw&oq=%D0%92%D1%83%D0%B4%D0%B7%D1%80%D1%88+WbemScripting.SWbemLocator&gs_lcp=Cgxnd3Mtd2l6LXNlcnAQAxgAMgYIABAeEA06BwgAEB4QsAM6BQgAEKIESgQIQRgBSgQIRhgAUOURWJsiYKQyaAFwAHgAgAFqiAGIBJIBAzQuMpgBAKABAcgBAcABAQ&sclient=gws-wiz-serp
P.S. Варианты не проверял и не смотрел, ибо лично мне такое пока что нафиг не упало.

Навигация

[0] Главная страница сообщений

[#] Следующая страница

Перейти к полной версии