XProfan

 $I WMI.inc
CLS
Print "suche......."
Var l& = wmi_call("Select * from Win32_Processor","ProcessorId,UniqueId")
Clearlist
MoveHandleToList(l&)
ListBox$("ProcessorID und 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)
Fin