简单型
Private Sub Command1_Click()
Set WMI = GetObject("winmgmts://./root/cimv2").ExecQuery("Select * from Win32_OperatingSystem")
For Each i In WMI
MsgBox i.Caption
Next
End Sub
复杂型
Dim objWMIService, colItems, objItem, 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 = "Win7"
Case "6.2": strOSversion = "Win8"
Case "6.3": strOSversion = "Win8.1"
Case "10.": strOSversion = "Win10"
Case Else: strOSversion = "i don't know"
End Select
msgbox"你的操作系统是：" & strOSversion