用VBS判断操作系统是32位（x86）还是64位（x64）

标签： , , , ,

标题: 用VBS判断操作系统是32位（x86）还是64位（x64）
作者: Demon
链接: https://demon.tw/programming/vbs-x86-x64.html
版权: 本博客的所有文章，都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。

突然想到这个问题，虽然不知道为什么要用 VBS 判断当前系统是32位还是64位，但是也许以后会用到也说不定。用到 WMI 的 Win32_ComputerSystem 类的 SystemType 属性。

Function X86orX64()
    'Author: Demon
    'Date: 2011/11/12
    'Website: https://demon.tw
    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, "86") <> 0 Then
            X86orX64 = "x86"
        ElseIf InStr(objItem.SystemType, "64") <> 0 Then
            X86orX64 = "x64"
        Else
            X86orX64 = objItem.SystemType
        End If
    Next
    
End Function

WScript.Echo X86orX64()

参考链接：Win32_ComputerSystem

赞赏

微信赞赏支付宝赞赏

相关文章:

  1. VBS调用WMI获取CPU使用率
  2. 用VBS获取屏幕分辨率
  3. WMI中的Win32_PingStatus类
  4. 用VBS获取Unix时间戳
  5. 魔兽全屏补丁 魔兽宽屏补丁

随机文章:

  1. VBS统计字符串全部字符出现的次数并排序
  2. VBS获取系统本次及上次开关机时间
  3. 一个VBS恶作剧程序
  4. 用Python脚本查询纯真IP库QQWry.dat（Demon修改版）
  5. VBS发送带Cookie的HTTP请求

这篇文章发布于 2011年11月12日，星期六，09:54，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。

4 条评论 发表在“用VBS判断操作系统是32位（x86）还是64位（x64）”上

  1. 陈旭华说道：
    2014年08月17日 05:54

    赞

    回复
  2. 陈旭华说道：
    2014年08月17日 05:56

    我想请教下 vbs如何获取系统版本 比如判断xp或win7

    回复
  3. VampireDX说道：
    2014年10月30日 17:41

    我想请教，我想写一个脚本，运行某个程序，但那时x86和x64的路径不一样，所以我要先判断，然后运行程序，但是你这个脚本有一个返回值，如果做到运行以后，就不要返回值了呢，如下，请帮我修改，谢谢。
    Set ws = CreateObject(“WScript.Shell”)

    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, “86”) 0 Then
    ws.Run “””C:\Program Files\xxx\xxx\setup.exe”””,,True
    ElseIf InStr(objItem.SystemType, “64”) 0 Then
    ws.Run “””C:\Program Files (x86)\xxx\xxx\setup.exe”””,,True
    Else
    X86orX64 = objItem.SystemType
    End If

    NEXT

    End Function

    WScript.Echo X86orX64()

    回复
  4. Yu2n说道：
    2015年01月24日 12:11

    ' Is64OS() By Yu2n
    ' 示例：If Is64OS() = True Then ...
    ' Ps: 已堕落到不执着于 “纯” VBS
    Function Is64OS()
      On Error Resume Next
      Is64OS = False
      Set wso = CreateObject("WScript.Shell")
      If wso.Run("cmd /c set ProgramFiles|find /i ""x86"" ",1,True) = 0 Then
        If Err.Number = 0 Then Is64OS = True
      End If
    End Function

    回复

留下回复