Office中国论坛/Access中国论坛

标题: 【技巧】完全获取Windows操作系统的版本信息(摘录) [打印本页]

---

作者: 盗梦    时间: 2015-3-21 16:04
标题: 【技巧】完全获取Windows操作系统的版本信息(摘录)
有些程序对Windows的版本是敏感的，所以要预先判断系统的windows版本，这里提供一个完全的判断系统版本号的函数，非常完整齐全。

1. Option Explicit
   
2. Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFOEX) As Long
   
3. 摘自：枕善居
   
4. Private Type OSVERSIONINFOEX
   
5.     dwOSVersionInfoSize As Long
   
6.     dwMajorVersion  As Long
   
7.     dwMinorVersion As Long
   
8.     dwBuildNumber As Long
   
9.     dwPlatformId As Long
   
10.     szCSDVersion As String * 128
    
11.     wServicePackMajor As Integer
    
12.     wServicePackMinor As Integer
    
13.     wSuiteMask As Integer
    
14.     wProductType As Byte
    
15.     wReserved As Byte
    
16. End Type
    
17. 
    
18. Private Const VER_PLATFORM_WIN32_NT As Long = 2
    
19. Private Const VER_PLATFORM_WIN32_WINDOWS As Long = 1
    
20. Private Const VER_PLATFORM_WIN32s As Long = 0
    
21. 
    
22. Private Const PRODUCT_UNLICENSED As Long = &HABCDABCD
    
23. Private Const PRODUCT_BUSINESS As Long = &H6
    
24. Private Const PRODUCT_BUSINESS_N As Long = &H10
    
25. Private Const PRODUCT_CLUSTER_SERVER As Long = &H12
    
26. Private Const PRODUCT_DATACENTER_SERVER As Long = &H8
    
27. Private Const PRODUCT_DATACENTER_SERVER_CORE As Long = &HC
    
28. Private Const PRODUCT_ENTERPRISE As Long = &H4
    
29. Private Const PRODUCT_ENTERPRISE_N As Long = &H1B
    
30. Private Const PRODUCT_ENTERPRISE_SERVER As Long = &HA
    
31. Private Const PRODUCT_ENTERPRISE_SERVER_CORE As Long = &HE
    
32. Private Const PRODUCT_ENTERPRISE_SERVER_IA64 As Long = &HF
    
33. Private Const PRODUCT_HOME_BASIC As Long = &H2
    
34. Private Const PRODUCT_HOME_BASIC_N As Long = &H5
    
35. Private Const PRODUCT_HOME_PREMIUM As Long = &H3
    
36. Private Const PRODUCT_HOME_PREMIUM_N As Long = &H1A
    
37. Private Const PRODUCT_HOME_SERVER As Long = &H13
    
38. Private Const PRODUCT_SERVER_FOR_SMALLBUSINESS As Long = &H18
    
39. Private Const PRODUCT_SMALLBUSINESS_SERVER As Long = &H9
    
40. Private Const PRODUCT_SMALLBUSINESS_SERVER_PREMIUM As Long = &H19
    
41. Private Const PRODUCT_STANDARD_SERVER As Long = &H7
    
42. Private Const PRODUCT_STANDARD_SERVER_CORE As Long = &HD
    
43. Private Const PRODUCT_STARTER As Long = &H8
    
44. Private Const PRODUCT_STORAGE_ENTERPRISE_SERVER As Long = &H17
    
45. Private Const PRODUCT_STORAGE_EXPRESS_SERVER As Long = &H14
    
46. Private Const PRODUCT_STORAGE_STANDARD_SERVER As Long = &H15
    
47. Private Const PRODUCT_STORAGE_WORKGROUP_SERVER As Long = &H16
    
48. Private Const PRODUCT_UNDEFINED As Long = &H0
    
49. Private Const PRODUCT_ULTIMATE As Long = &H1
    
50. Private Const PRODUCT_ULTIMATE_N As Long = &H1C
    
51. Private Const PRODUCT_WEB_SERVER As Long = &H11
    
52. Public Function GetWindowsVersion() As String
    
53. 
    
54. ' 变量声明
    
55. Dim retOSVersionInf As OSVERSIONINFOEX
    
56. Dim retLng As Long
    
57. 
    
58. '结构尺寸
    
59. retOSVersionInf.dwOSVersionInfoSize = Len(retOSVersionInf)
    
60. 
    
61. '获取 Windows 版本
    
62. retLng = GetVersionEx(retOSVersionInf)
    
63. 
    
64. If retLng = 0 Then
    
65.     GetWindowsVersion = "未知"
    
66.     Exit Function
    
67. End If
    
68. 
    
69. With retOSVersionInf
    
70. 
    
71. If .dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
    
72.         
    
73.         Select Case .dwMajorVersion
    
74.             Case 4
    
75.                 Select Case .dwMinorVersion
    
76.                     Case 0 ' Win 95
    
77.                         Select Case .szCSDVersion
    
78.                             Case "C" ' OSR2
    
79.                                 GetWindowsVersion = "Windows 95 OSR2"
    
80.                             Case "B" ' OSR2
    
81.                                 GetWindowsVersion = "Windows 95 OSR2"
    
82.                             Case Else
    
83.                                 GetWindowsVersion = "Windows 95"
    
84.                         End Select
    
85.                     Case 10 ' Win 98
    
86.                         Select Case .szCSDVersion
    
87.                             Case "A" ' SE
    
88.                                 GetWindowsVersion = "Windows 98 SE"
    
89.                             Case Else
    
90.                                 GetWindowsVersion = "Windows 98"
    
91.                         End Select
    
92.                     Case 90 ' Win ME
    
93.                         GetWindowsVersion = "Windows ME"
    
94.                 End Select
    
95.         End Select
    
96. 
    
97. ElseIf .dwPlatformId = VER_PLATFORM_WIN32_NT And .dwMajorVersion = 5 Then
    
98. 
    
99.     Select Case .dwMinorVersion
    
100.         Case 0 ' Win 2000
     
101.             Select Case .wProductType
     
102.                 Case 1
     
103.                     Select Case .wSuiteMask
     
104.                         Case &H80 ' 数据中心
     
105.                             GetWindowsVersion = "Windows 2000 Data center"
     
106.                         Case &H2 ' 高级版本
     
107.                             GetWindowsVersion = "Windows 2000 Advanced"
     
108.                         Case Else
     
109.                             GetWindowsVersion = "Windows 2000"
     
110.                     End Select
     
111.             End Select
     
112.         Case 1 ' Win XP
     
113.             Select Case .wProductType
     
114.                 Case 1
     
115.                     Select Case .wSuiteMask
     
116.                         Case &H0 ' Pro
     
117.                             GetWindowsVersion = "Windows XP Professional"
     
118.                         Case &H200 ' Home
     
119.                             GetWindowsVersion = "Windows XP Home"
     
120.                         Case Else ' XP
     
121.                             GetWindowsVersion = "Windows XP"
     
122.                     End Select
     
123.             End Select
     
124.         Case 2 ' Win Server 2003
     
125.             Select Case .wProductType
     
126.                 Case 3
     
127.                     Select Case .wSuiteMask
     
128.                         Case &H2
     
129.                             GetWindowsVersion = "Windows Server 2003 Enterprise"
     
130.                         Case &H80
     
131.                             GetWindowsVersion = "Windows Server 2003 Data center"
     
132.                         Case &H400
     
133.                             GetWindowsVersion = "Windows Server 2003 Web Edition"
     
134.                         Case &H0
     
135.                             GetWindowsVersion = "Windows Server 2003 Standard"
     
136.                         Case Else
     
137.                             GetWindowsVersion = "Windows Server 2003"
     
138.                     End Select
     
139.             End Select
     
140.     End Select
     

复制代码

---

作者: 盗梦    时间: 2015-3-21 16:05

1. 
   
2.    If .wServicePackMajor > 0 Then
   
3.         GetWindowsVersion = GetWindowsVersion & " Service Pack " & .wServicePackMajor & IIf(.wServicePackMinor >0, "." & .wServicePackMinor, vbNullString)
   
4.     End If
   
5. 
   
6. ElseIf .dwPlatformId = VER_PLATFORM_WIN32_NT And .dwMajorVersion = 6 Then
   
7. 
   
8.     Select Case .dwMinorVersion
   
9.         Case 0
   
10.                 Select Case .wProductType
    
11.                     Case PRODUCT_BUSINESS
    
12.                         GetWindowsVersion = "Business Edition"
    
13.                     Case PRODUCT_BUSINESS_N
    
14.                         GetWindowsVersion = "Business Edition (N)"
    
15.                     Case PRODUCT_CLUSTER_SERVER
    
16.                         GetWindowsVersion = "Cluster Server Edition"
    
17.                     Case PRODUCT_DATACENTER_SERVER
    
18.                         GetWindowsVersion = "Server Datacenter Edition (full installation)"
    
19.                     Case PRODUCT_DATACENTER_SERVER_CORE
    
20.                         GetWindowsVersion = "Server Datacenter Edition (core installation)"
    
21.                     Case PRODUCT_ENTERPRISE
    
22.                         GetWindowsVersion = "Enterprise Edition"
    
23.                     Case PRODUCT_ENTERPRISE_N
    
24.                         GetWindowsVersion = "Enterprise Edition (N)"
    
25.                     Case PRODUCT_ENTERPRISE_SERVER
    
26.                         GetWindowsVersion = "Server Enterprise Edition (full installation)"
    
27.                     Case PRODUCT_ENTERPRISE_SERVER_CORE
    
28.                         GetWindowsVersion = "Server Enterprise Edition (core installation)"
    
29.                     Case PRODUCT_ENTERPRISE_SERVER_IA64
    
30.                         GetWindowsVersion = "Server Enterprise Edition for Itanium-based Systems"
    
31.                     Case PRODUCT_HOME_BASIC
    
32.                         GetWindowsVersion = "Home Basic Edition"
    
33.                     Case PRODUCT_HOME_BASIC_N
    
34.                         GetWindowsVersion = "Home Basic Edition (N)"
    
35.                     Case PRODUCT_HOME_PREMIUM
    
36.                         GetWindowsVersion = "Home Premium Edition"
    
37.                     Case PRODUCT_HOME_PREMIUM_N
    
38.                         GetWindowsVersion = "Home Premium Edition (N)"
    
39.                     Case PRODUCT_HOME_SERVER
    
40.                         GetWindowsVersion = "Home Server Edition"
    
41.                     Case PRODUCT_SERVER_FOR_SMALLBUSINESS
    
42.                         GetWindowsVersion = "Server for Small Business Edition"
    
43.                     Case PRODUCT_SMALLBUSINESS_SERVER
    
44.                         GetWindowsVersion = "Small Business Server"
    
45.                     Case PRODUCT_SMALLBUSINESS_SERVER_PREMIUM
    
46.                         GetWindowsVersion = "Small Business Server Premium Edition"
    
47.                     Case PRODUCT_STANDARD_SERVER
    
48.                         GetWindowsVersion = "Server Standard Edition (full installation)"
    
49.                     Case PRODUCT_STANDARD_SERVER_CORE
    
50.                         GetWindowsVersion = "Server Standard Edition (core installation)"
    
51.                     Case PRODUCT_STARTER
    
52.                         GetWindowsVersion = "Starter Edition"
    
53.                     Case PRODUCT_STORAGE_ENTERPRISE_SERVER
    
54.                         GetWindowsVersion = "Storage Server Enterprise Edition"
    
55.                     Case PRODUCT_STORAGE_EXPRESS_SERVER
    
56.                         GetWindowsVersion = "Storage Server Express Edition"
    
57.                     Case PRODUCT_STORAGE_STANDARD_SERVER
    
58.                         GetWindowsVersion = "Storage Server Standard Edition"
    
59.                     Case PRODUCT_STORAGE_WORKGROUP_SERVER
    
60.                         GetWindowsVersion = "Storage Server Workgroup Edition"
    
61.                     Case PRODUCT_ULTIMATE
    
62.                         GetWindowsVersion = "Ultimate Edition"
    
63.                     Case PRODUCT_ULTIMATE_N
    
64.                         GetWindowsVersion = "Ultimate Edition (N)"
    
65.                     Case PRODUCT_UNDEFINED
    
66.                         GetWindowsVersion = "An unknown product"
    
67.                     Case PRODUCT_UNLICENSED
    
68.                         GetWindowsVersion = "Not activated product"
    
69.                     Case PRODUCT_WEB_SERVER
    
70.                         GetWindowsVersion = "Web Server Edition"
    
71.                 End Select
    
72.                
    
73.                 Select Case .wProductType
    
74.                     Case 1 ' Win Vista
    
75.                         GetWindowsVersion = "Windows Vista " & GetWindowsVersion
    
76.                     Case 3 ' Win Server 2008
    
77.                         GetWindowsVersion = "Windows Server 2008 " & GetWindowsVersion
    
78.                     Case Else
    
79.                         GetWindowsVersion = "Windows Vista " & GetWindowsVersion
    
80.                 End Select
    
81.                
    
82.                     If .wServicePackMajor > 0 Then
    
83.                         GetWindowsVersion = GetWindowsVersion & " Service Pack " & .wServicePackMajor &IIf(.wServicePackMinor > 0, "." & .wServicePackMinor, vbNullString)
    
84.                     End If
    
85.                     
    
86.         End Select
    
87. 
    
88. End If
    
89. 
    
90. GetWindowsVersion = GetWindowsVersion & " [Version: " & .dwMajorVersion & "." & .dwMinorVersion & "." &.dwBuildNumber & "]"
    
91. 
    
92. End With
    
93. 
    
94. 
    
95. End Function

复制代码

---

作者: leonshi    时间: 2015-3-21 17:32
没有看到获取win7以上的吗

---

作者: 盗梦    时间: 2015-3-21 17:34
这个代码发布时，win8还没出来，你利用取到的号码，改进一下 这个不难的

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3