On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
Wscript.Echo "Computer Name: " & objItem.Caption
Wscript.Echo "UserName: " & objItem.UserName
Wscript.Echo "Domain: " & objItem.Domain
Wscript.Echo "Model: " & objItem.Model
Wscript.Echo "Memory: " & objItem.TotalPhysicalMemory
Next
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor",,48)
For Each objItem in colItems
Wscript.Echo "Processor: " & objItem.Name
Next
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct",,48)
For Each objItem in colItems
Wscript.Echo "Service Tag: " & objItem.IdentifyingNumber
Next
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItem in colItems
Wscript.Echo "OS: " & objItem.Caption
Wscript.Echo "ServicePack: " & objItem.ServicePackMajorVersion
Wscript.Echo "Key: " & objItem.SerialNumber
Next
wscript.Echo "========================================"
wscript.Echo "Installed Software"
wscript.Echo "========================================"
Set colItems = objWMIService.ExecQuery("Select * from Win32_Product",,48)
For Each objItem in colItems
Wscript.Echo objItem.Name
Next