AutoIt: Уникален номер на компютър

Публикувано: 13.07.16, 22:18:26 | Автор: ArMeN | Видяна: 831 | Редактирано: 19.07.16, 21:05:23

#Include <Crypt.au3>
$id = id()

MsgBox(0, "ID", $id)

Func id()
$Str = ''
$objService = ObjGet('winmgmts:\\.\root\cimv2')
$colItems = $objService.ExecQuery('SELECT * FROM Win32_ComputerSystemProduct')
If IsObj($colItems) Then
For $objItem In $colItems
$Str &= $objItem.Caption
$Str &= $objItem.Description
$Str &= $objItem.IdentifyingNumber
$Str &= $objItem.Name
$Str &= $objItem.SKUNumber
$Str &= $objItem.UUID
$Str &= $objItem.Vendor
$Str &= $objItem.Version
Next
EndIf

Return _Crypt_HashData($Str, $CALG_MD5)
EndFunc

Източник

Не сте влезли в акаунта си за да коментирате.


Комментари

 

Няма коментари.