vbs查询系统信息（名称，版本，系统盘，32or64）-wmi

Function X86orX64()       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       If InStr(objItem.SystemType, "64") <> 0 Then            X86orX64 = "x64"               Else           X86orX64 = "x86"        End If    Next    End FunctionFunction showOsInfo()       Dim res    On Error Resume Next    strComputer = "."    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")    Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)    res ="infoStart"    For Each objItem in colItemsres =res & "_" &  objItem.Captionres =res & "_" &  objItem.SystemDriveres =res & "_" &  objItem.Version'WScript.Echo objItem.OSArchitecture           Next    res =res & "_" & X86orX64()   res =res & "_infoEnd"WScript.Echo resEnd Functioncall showOsInfo()WScript.Echo "complete!"