HWID

[Pottery]

Hey, does anyone know if it would be possible to get a PC's HWID codes through AutoIt? Thanks in advance.

[IchBistTod]

I use this simple code to generate a HWID

#include <string.au3>
MsgBox(64, "", _HWID())

func _HWID()
    $osdrive = StringLeft(@SystemDir, 3)
    $original = "0"&@CPUArch & @KBLayout & DriveGetSerial("C:\") & StringUpper(DriveGetType($osdrive)) & DriveSpaceTotal ($osdrive)
    $string2 = StringMid($original, Round(StringLen($original)/2), Round(StringLen($original)/2))
    $string2_mod = _StringToHex(_StringReverse($string2))
    $original = _StringEncrypt(1, $original, $string2_mod, 4)
    Return $original
EndFunc

Edited May 12, 2010 by IchBistTod

[Pottery]

Perfect, thanks