求一个VBS脚本：根据“系统版本+32/64位系统”分别运行相应程序

求一个VBS脚本：根据“系统版本+32/64位系统”分别运行相应程序

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 Function

Function 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 colItems
res =res & "_" & objItem.Caption
res =res & "_" & objItem.SystemDrive
res =res & "_" & objItem.Version
'WScript.Echo objItem.OSArchitecture
Next

res =res & "_" & X86orX64()
res =res & "_infoEnd"
WScript.Echo res
End Function
call showOsInfo()
WScript.Echo "complete!"

以上代码 可以区分系统 至于区分以后运行程序应该就简单了吧？