Hello
I found this code while searching the forum:
Code: Select all
BiosInfo := GetBiosSerial()
MsgBox % BiosInfo
Return
GetBiosSerial()
{
wmi := ComObjGet("winmgmts:")
query := wmi.ExecQuery("Select SerialNumber from Win32_BIOS")._NewEnum()
if query[bios]
{
serial := bios.SerialNumber
}
wmi := query := ""
return serial
}
Deutsch:
hallo
ich habe bei der suche im forum diesen code gefunden:
Code: Select all
BiosInfo := GetBiosSerial()
MsgBox % BiosInfo
Return
GetBiosSerial()
{
wmi := ComObjGet("winmgmts:")
query := wmi.ExecQuery("Select SerialNumber from Win32_BIOS")._NewEnum()
if query[bios]
{
serial := bios.SerialNumber
}
wmi := query := ""
return serial
}