Option Explicit
Public Type OSVERSIONINFOEX
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128 ' Maintenance string for PSS usage
wServicePackMajor As Integer
wServicePackMinor As Integer
wSuiteMask As Integer
wProductType As Byte
wReserved As Byte
End Type
Public Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128 ' Maintenance string for PSS usage
End Type
Public Const VER_PLATFORM_WIN32s = 0
Public Const VER_PLATFORM_WIN32_WINDOWS = 1
Public Const VER_PLATFORM_WIN32_NT = 2
Public Const VER_NT_WORKSTATION = 1
Public Const VER_NT_DOMAIN_CONTROLLER = 2
Public Const VER_NT_SERVER = 3
Public Const VER_SERVER_NT = &H80000000
Public Const VER_WORKSTATION_NT = &H40000000
Public Const VER_SUITE_ENTERPRISE = &H2
Public Const VER_SUITE_DATACENTER = &H80
Public Const VER_SUITE_PERSONAL = &H200
Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFOEX) As Long Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const KEY_QUERY_VALUE = &H1
Public Function GetWinVer() As String '调用函数
Dim osi As OSVERSIONINFOEX, osi1 As OSVERSIONINFO, bOsVersionInfoEx As Boolean, strVer As String
osi.dwOSVersionInfoSize = Len(osi)
bOsVersionInfoEx = GetVersionEx(osi)
If (bOsVersionInfoEx = 0) Then
osi.dwOSVersionInfoSize = Len(osi1)
Call GetVersionEx(osi)
End If
Select Case osi.dwPlatformId
Case VER_PLATFORM_WIN32_NT:
If (osi.dwMajorVersion <= 4) Then
strVer = "Microsoft Windows NT"
ElseIf (osi.dwMajorVersion = 5 And osi.dwMinorVersion = 0) Then
strVer = "Microsoft Windows 2000"
ElseIf (osi.dwMajorVersion = 5 And osi.dwMinorVersion = 1) Then
strVer = "Microsoft Windows XP"
End If
If (bOsVersionInfoEx) Then
If (osi.wProductType = VER_NT_WORKSTATION) Then
If (osi.wSuiteMask And VER_SUITE_PERSONAL) Then
strVer = strVer & " Personal"
Else
strVer = strVer & " Professional"
End If
ElseIf (osi.wProductType = VER_NT_SERVER) Then
If (osi.wSuiteMask And VER_SUITE_DATACENTER) Then
strVer = strVer & " DataCenter Server"
ElseIf (osi.wSuiteMask And VER_SUITE_ENTERPRISE) Then
strVer = strVer & " Advanced Server"
Else
strVer = strVer & " Server"
End If
End If
Else
Dim hKey As Long
Dim szProductType As String * 80
Dim dwBufLen As Long
Call RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SYSTEM/CurrentControlSet/Control/ProductOptions", 0, KEY_QUERY_VALUE, hKey)
Call RegQueryValueEx(hKey, "ProductType", 0&, 0&, ByVal szProductType, dwBufLen)
Call RegCloseKey(hKey)
If (szProductType = "WINNT") Then
strVer = strVer & " Professional"
ElseIf (szProductType = "LANMANNT") Then
strVer = strVer & " Server"
ElseIf (szProductType = "SERVERNT") Then
strVer = strVer & " Advanced Server"
End If
End If
If (osi.dwMajorVersion <= 4) Then
strVer = strVer & " Version" & CStr(osi.dwMajorVersion) & "." & CStr(osi.dwMinorVersion) & " " & CStr(osi.szCSDVersion) & " (Build " & CStr((osi.dwBuildNumber And &HFFFF)) & ")"
Else
strVer = strVer & " " & CStr(Left(osi.szCSDVersion, InStr(1, osi.szCSDVersion, Chr(0)) - 1)) & "(Build " & CStr(osi.dwBuildNumber And &HFFFF) & ")"
End If
Case VER_PLATFORM_WIN32_WINDOWS:
If (osi.dwMajorVersion = 4 And osi.dwMinorVersion = 0) Then
strVer = "Microsoft Windows 95"
If (Mid(osi.szCSDVersion, 2, 1) = "C" Or Mid(osi.szCSDVersion, 2, 1) = "B") Then
strVer = strVer & " OSR2"
End If
ElseIf (osi.dwMajorVersion = 4 And osi.dwMinorVersion = 10) Then
strVer = strVer & "Microsoft Windows 98"
If (Mid(osi.szCSDVersion, 2, 1) = "A") Then
strVer = strVer & " SE"
End If
ElseIf (osi.dwMajorVersion = 4 And osi.dwMinorVersion = 90) Then
strVer = strVer & "Microsoft Windows Me"
End If
Case VER_PLATFORM_WIN32s:
strVer = "Microsoft Win32s"
Case Else:
strVer = ""
End Select
GetWinVer = strVer
End Function
Public Type OSVERSIONINFOEX
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128 ' Maintenance string for PSS usage
wServicePackMajor As Integer
wServicePackMinor As Integer
wSuiteMask As Integer
wProductType As Byte
wReserved As Byte
End Type
Public Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128 ' Maintenance string for PSS usage
End Type
Public Const VER_PLATFORM_WIN32s = 0
Public Const VER_PLATFORM_WIN32_WINDOWS = 1
Public Const VER_PLATFORM_WIN32_NT = 2
Public Const VER_NT_WORKSTATION = 1
Public Const VER_NT_DOMAIN_CONTROLLER = 2
Public Const VER_NT_SERVER = 3
Public Const VER_SERVER_NT = &H80000000
Public Const VER_WORKSTATION_NT = &H40000000
Public Const VER_SUITE_ENTERPRISE = &H2
Public Const VER_SUITE_DATACENTER = &H80
Public Const VER_SUITE_PERSONAL = &H200
Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFOEX) As Long Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const KEY_QUERY_VALUE = &H1
Public Function GetWinVer() As String '调用函数
Dim osi As OSVERSIONINFOEX, osi1 As OSVERSIONINFO, bOsVersionInfoEx As Boolean, strVer As String
osi.dwOSVersionInfoSize = Len(osi)
bOsVersionInfoEx = GetVersionEx(osi)
If (bOsVersionInfoEx = 0) Then
osi.dwOSVersionInfoSize = Len(osi1)
Call GetVersionEx(osi)
End If
Select Case osi.dwPlatformId
Case VER_PLATFORM_WIN32_NT:
If (osi.dwMajorVersion <= 4) Then
strVer = "Microsoft Windows NT"
ElseIf (osi.dwMajorVersion = 5 And osi.dwMinorVersion = 0) Then
strVer = "Microsoft Windows 2000"
ElseIf (osi.dwMajorVersion = 5 And osi.dwMinorVersion = 1) Then
strVer = "Microsoft Windows XP"
End If
If (bOsVersionInfoEx) Then
If (osi.wProductType = VER_NT_WORKSTATION) Then
If (osi.wSuiteMask And VER_SUITE_PERSONAL) Then
strVer = strVer & " Personal"
Else
strVer = strVer & " Professional"
End If
ElseIf (osi.wProductType = VER_NT_SERVER) Then
If (osi.wSuiteMask And VER_SUITE_DATACENTER) Then
strVer = strVer & " DataCenter Server"
ElseIf (osi.wSuiteMask And VER_SUITE_ENTERPRISE) Then
strVer = strVer & " Advanced Server"
Else
strVer = strVer & " Server"
End If
End If
Else
Dim hKey As Long
Dim szProductType As String * 80
Dim dwBufLen As Long
Call RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SYSTEM/CurrentControlSet/Control/ProductOptions", 0, KEY_QUERY_VALUE, hKey)
Call RegQueryValueEx(hKey, "ProductType", 0&, 0&, ByVal szProductType, dwBufLen)
Call RegCloseKey(hKey)
If (szProductType = "WINNT") Then
strVer = strVer & " Professional"
ElseIf (szProductType = "LANMANNT") Then
strVer = strVer & " Server"
ElseIf (szProductType = "SERVERNT") Then
strVer = strVer & " Advanced Server"
End If
End If
If (osi.dwMajorVersion <= 4) Then
strVer = strVer & " Version" & CStr(osi.dwMajorVersion) & "." & CStr(osi.dwMinorVersion) & " " & CStr(osi.szCSDVersion) & " (Build " & CStr((osi.dwBuildNumber And &HFFFF)) & ")"
Else
strVer = strVer & " " & CStr(Left(osi.szCSDVersion, InStr(1, osi.szCSDVersion, Chr(0)) - 1)) & "(Build " & CStr(osi.dwBuildNumber And &HFFFF) & ")"
End If
Case VER_PLATFORM_WIN32_WINDOWS:
If (osi.dwMajorVersion = 4 And osi.dwMinorVersion = 0) Then
strVer = "Microsoft Windows 95"
If (Mid(osi.szCSDVersion, 2, 1) = "C" Or Mid(osi.szCSDVersion, 2, 1) = "B") Then
strVer = strVer & " OSR2"
End If
ElseIf (osi.dwMajorVersion = 4 And osi.dwMinorVersion = 10) Then
strVer = strVer & "Microsoft Windows 98"
If (Mid(osi.szCSDVersion, 2, 1) = "A") Then
strVer = strVer & " SE"
End If
ElseIf (osi.dwMajorVersion = 4 And osi.dwMinorVersion = 90) Then
strVer = strVer & "Microsoft Windows Me"
End If
Case VER_PLATFORM_WIN32s:
strVer = "Microsoft Win32s"
Case Else:
strVer = ""
End Select
GetWinVer = strVer
End Function