搬家第58天-citect2018使用citectvba获取本机windows系统版本

有时候需要在运行的时候获取本机windows操作系统的版本，根据不同的版本做不同的操作。做这个练习的时候，我参考了一下IT网站的一些脚本。

新建一个citectVBA函数如下：

Sub GetOSName()
Dim objWMIService As Object
Dim colItems As Object
Dim objItem As Object
Dim strOSversion As String
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
    For Each objItem In colItems
       strOSversion = objItem.Version
    Next
    Select Case Left(strOSversion, 3)
       Case "5.2": strOSversion = "Windows Server 2003"
       Case "5.0": strOSversion = "Windows 2000"
       Case "5.1": strOSversion = "Windows XP"
       Case "6.0": strOSversion = "windows vista"
       Case "6.1": strOSversion = "Windows7"
       Case "6.2": strOSversion = "Windows8"
       Case "6.3": strOSversion = "Windows8.1"
       Case "10.": strOSversion = "Windows10"
       Case Else: strOSversion = "i don't know"
    End Select
    msgbox strOSversion
End Sub

 

在citect页面的按钮点击事件调用这个citectVBA函数。保存编译运行，就能看到效果了。

 

 

补充一下，那几个object对象，使用完之后需要释放内存，要令其等于nothing