SpeedNumCube/sncprojects/res/misc/mcode.vbs

strComputer = "."

Set wbemServices = Getobject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_Processor")
For Each wbemObject In wbemObjectSet
    WScript.Echo "CpuID:" & wbemObject.ProcessorID                
Next

Set wbemServices = Getobject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_PhysicalMemory")
For Each wbemObject In wbemObjectSet
    WScript.Echo "MemoryID:" & wbemObject.SerialNumber             
Next

Set wbemServices = Getobject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_ComputerSystem")

For Each wbemObject In wbemObjectSet
    WScript.Echo "ComputerModel:" & wbemObject.Model               
Next

Set wbemServices = Getobject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_ComputerSystemProduct")

For Each wbemObject In wbemObjectSet
    WScript.Echo "UUID:" & wbemObject.UUID              
Next

Set wbemServices = Getobject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_BaseBoard")

For Each wbemObject In wbemObjectSet
    WScript.Echo "MotherBoardID:" & wbemObject.SerialNumber            
Next