VB6获得操作系统版本及位宽

Sub get_cp() '获得操作系统
Dim wbemServices, yan
Dim objSWbemObjectSet
Dim objSWbemObject
Set wbemServices = GetObject(“winmgmts:\.\root\cimv2”)
Set yan = CreateObject(“WScript.Shell”) '用于读取注册表的对象
OP_TYPE = “”
Set objSWbemObjectSet = wbemServices.InstancesOf(“Win32_OperatingSystem”)
For Each objSWbemObject In objSWbemObjectSet
CPP1 = “”: cpp2 = “”: cpp3 = “”
CPP1 = Trim(objSWbemObject.Caption) & " " & Trim(objSWbemObject.CSDVersion) & vbCrLf '操作系统:
Cpp_Xp = False
Cpp_Xp = (InStr(1, CPP1, “XP”) = 0 And InStr(1, CPP1, “2003”) = 0) '是否非XP和2003 操作系统，true 代表不是XP

        If Cpp_Xp Then
            cpp2 = Trim(objSWbemObject.OSArchitecture) & vbCrLf '"数据位宽:"，OSArchitecture=64-bit'XP 和 2003 不支持
         Else
             cpp2 = "32-bit" & vbCrLf
         End If
         cpp3 = Trim(objSWbemObject.Version) & vbCrLf ' "系统版本:"
         CPP1 = Replace(CPP1, "?", "")
         CPP1 = Replace(CPP1, "  ", " ")
         CPP1 = UCase(CPP1)
        If InStr(1, CPP1, "WINDOWS XP") > 0 Then SYSTEM_TYPE = "XP"
        If InStr(1, CPP1, "WINDOWS VISTA") > 0 Then SYSTEM_TYPE = "VISTA"
        If InStr(1, CPP1, "WINDOWS 7") > 0 Then SYSTEM_TYPE = "WIN7"
        If InStr(1, CPP1, "WINDOWS 8") > 0 Then SYSTEM_TYPE = "WIN8"
        If InStr(1, CPP1, "WINDOWS 10") > 0 Then SYSTEM_TYPE = "WIN10"
        If InStr(1, CPP1, "SERVER 2003") > 0 Then SYSTEM_TYPE = "2003"
        If InStr(1, CPP1, "SERVER 2008") > 0 Then SYSTEM_TYPE = "2008"
        If InStr(1, CPP1, "SERVER 2008 R2") > 0 Then SYSTEM_TYPE = "2008R2"
        If InStr(1, CPP1, "SERVER 2010") > 0 Then SYSTEM_TYPE = "2010"
        If InStr(1, CPP1, "SERVER 2010 R2") > 0 Then SYSTEM_TYPE = "2010R2"
        If InStr(1, CPP1, "SERVER 2012") > 0 Then SYSTEM_TYPE = "2012"
        If InStr(1, CPP1, "SERVER 2012 R2") > 0 Then SYSTEM_TYPE = "2012R2"
        If InStr(1, CPP1, "SERVER 2016") > 0 Then SYSTEM_TYPE = "2016"
        If InStr(1, CPP1, "SERVER 2016 R2") > 0 Then SYSTEM_TYPE = "2016R2"
         Exit For
    Next
 '***************************操作系统名称、版本*****************************************************************88

         Get_If = Get_If & "操作系统:" & CPP1 '操作系统名称及sp版本

         
         IS_64X = Val(cpp2) > 0 '是否是64位操作系统
OP_TYPE = SYSTEM_TYPE & "-" & Val(cpp2) '操作系统类型
Set objSWbemObject = Nothing
Set objSWbemObjectSet = Nothing
Set objSWbemServices = Nothing
Set yan = Nothing

End Sub