WMI Gets Computer Information

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", ",")
for each objitem in Colitems
& Nbsp;strinfo = Strinfo & "UserName:" & objitem.username & vbCrLf
 strinfo = strinfo & "Computerna Me: "& objItem.Name & vbCrLf
 strinfo = strinfo &" Domain: "& Objitem.domain & vbCrLf
&nb Sp;strinfo = strinfo & "Manufacturer:" & objitem.manufacturer & vbCrLf
 strinfo = strinfo & "Mode L: "& Objitem.model & vbCrLf
 strinfo = strinfo &" TotalPhysicalMemory: "& Round (Objitem.totalph ysicalmemory/(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

WMI Gets Computer Information