Mendapatkan Processor Id komputer dengan menggunakan MS visual foxpro 9.0

kali ini saya akan sharing koding untuk mendapatkan Processor Id komputer dengan visual foxpro
----------

FUNCTION GetProcID
LOCAL lcComputerName, loWMI, lowmiWin32Objects, lowmiWin32Object,ProcessorId
lcComputerName = GETWORDNUM(SYS(0),1)
loWMI = GETOBJECT("WinMgmts://" + lcComputerName)
lowmiWin32Objects = loWMI.InstancesOf("Win32_Processor")
FOR EACH lowmiWin32Object IN lowmiWin32Objects
WITH lowmiWin32Object
ProcessorId=TRANSFORM(.ProcessorId)
ENDWITH
ENDFOR
RETURN ProcessorId
----------

koding di atas adalah kelanjutan dari mendapatkan serial number hardisk dan bisa di kombinasikan untuk membuat serial number software

selamat mencoba!