On Error Resume Next
strComputer = "."
strInfo = ""
Set
objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
For
Each objItem in colItems
strInfo = strInfo & "SerialNumber: " &
objItem.SerialNumber & vbCrLf
Next
Set colItems = objWMIService.ExecQuery("Select * from
Win32_ComputerSystem",,48)
For Each objItem in colItems
strInfo = strInfo
& "UserName: " & objItem.UserName & vbCrLf
strInfo = strInfo
& "ComputerName: " & objItem.Name & vbCrLf
strInfo = strInfo
& "Domain: " & objItem.Domain & vbCrLf
strInfo = strInfo &
"Manufacturer: " & objItem.Manufacturer & vbCrLf
strInfo = strInfo
& "Model: " & objItem.Model & vbCrLf
strInfo = strInfo &
"TotalPhysicalMemory: " & Round(objItem.TotalPhysicalMemory/(1024^2),0)
& " M" & vbCrLf
Next
Set colItems = objWMIService.ExecQuery("Select * from
Win32_Processor",,48)
For Each objItem in colItems
If ProcessorNumber = 0
Then
strInfo = strInfo & "ProcessorMaxClockSpeed: " &
Round(objItem.MaxClockSpeed/1024,1) & " G" & vbCrLf
strInfo =
strInfo & "ProcessorName: " & objItem.Name & vbCrLf
End If
ProcessorNumber = ProcessorNumber + 1
Next
strInfo = strInfo &
"ProcessorNumber: " & ProcessorNumber & vbCrLf
WScript.Echo strInfo