WMI擷取電腦資訊

標籤：

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

WMI擷取電腦資訊