Разное > Разное
UUID уникальный идентификатор компьютера
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. Варианты не проверял и не смотрел, ибо лично мне такое пока что нафиг не упало.
Навигация
Перейти к полной версии