搬家第58天-citect2018使用citectVBA获取windows是32位还是64位

前面一篇介绍如何知道操作系统的版本，这一篇练习获取操作系统是32位还是64位。

新建一个citectVBA函数如下：

Sub GetOSType()
Dim objWMIService As Object
Dim colItems As Object
Dim objItem As Object
Dim strOSx86Orx64 As string
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objItem In colItems
 If InStr(objItem.SystemType, "86") <> 0 Then
           strOSx86Orx64 = "The system type is " & "x86"
    Elseif InStr(objItem.SystemType, "64") <> 0 Then
      strOSx86Orx64 = "The system type is " & "x64"
    Else
      strOSx86Orx64 = "The system type is " & objItem.SystemType
    End If
    'End If
    'End If
Next
msgbox strOSx86Orx64
Set objWMIService =nothing
Set colItems =nothing
Set objItem =nothing
End Sub

 

调用这个citectVBA函数，保存编译运行，点击按钮就能获得当前计算的操作系统是32位还是64位的了。