XProfan

 $I WMI.inc
CLS
Print "suche......."
Var l& = wmi_call("Select * from Win32_Processor","ProcessorId,UniqueId")
Clearlist
MoveHandleToList(l&)
$ ListBox("ProcessorID and UniqueId",2)
L& = wmi_call("SELECT * FROM Win32_BaseBoard","SerialNumber")
Clearlist
MoveHandleToList(l&)
$ ListBox("Motherboard-Seriennummer",2)
L& = wmi_call("SELECT * FROM Win32_NetworkAdapterConfiguration Where MACAddress > 0","Caption,MACAddress")
Clearlist
MoveHandleToList(l&)
$ ListBox("Netzwerk-Adressen",2)
End