strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
strD = ""
strP = ""
strN = ""
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk Where DeviceID = 'C:'")
For Each objItem In colItems
strD = objItem.VolumeSerialNumber
Next
Set colItemsP = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem In colItemsP
strP = strP & objItem.ProcessorID & "::"
Next
Set colItemsN = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objItem In colItemsN
strN = objItem.Name
Next