XProfan

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