Get Operating System Version

Module...

[blue]Option Explicit

Public Declare Function [/blue]GetVersionExA [blue]Lib [/blue]"kernel32" _
(lpVersionInformation [blue]As [/blue]OSVERSIONINFO) As [blue]Integer

Public Type [/blue]OSVERSIONINFO
dwOSVersionInfoSize [blue]As Long
[/blue]dwMajorVersion [blue]As Long
[/blue]dwMinorVersion [blue]As Long
[/blue]dwBuildNumber [blue]As Long
[/blue]dwPlatformId [blue]As Long
[/blue]szCSDVersion [blue]As String [/blue]* 128
[blue]End Type

Public Const [/blue]VER_PLATFORM_WIN32s = 0 [green]' Win32s on Windows 3.1
[/green][blue]Public Const [/blue]VER_PLATFORM_WIN32_WINDOWS = 1 [green]' Windows 95, Windows 98, or Windows Me
[/green][blue]Public Const [/blue]VER_PLATFORM_WIN32_NT = 2 [green]' Windows NT, Windows 2000, Windows XP, or Windows Server 2003 family.
[/green][blue]Public Function [/blue]getVersion() [blue]As String
Dim [/blue]OSInfo [blue]As [/blue]OSVERSIONINFO
[blue]Dim [/blue]retvalue [blue]As Integer

[/blue]OSInfo.dwOSVersionInfoSize = 148
OSInfo.szCSDVersion = Space$(128)
retvalue = GetVersionExA(OSInfo)

[blue]With [/blue]OSInfo
[blue]Select Case [/blue].dwPlatformId
[blue]Case [/blue]VER_PLATFORM_WIN32s [green]' Win32s on Windows 3.1
[/green]getVersion = "Windows 3.1"

[blue]Case [/blue]VER_PLATFORM_WIN32_WINDOWS [green]' Windows 95, Windows 98,
[/green][blue]Select Case [/blue].dwMinorVersion [green]' or Windows Me
[/green][blue]Case [/blue]0
getVersion = "Windows 95"
[blue]Case [/blue]10
[blue]If [/blue](OSInfo.dwBuildNumber [blue]And [/blue]&HFFFF&) = 2222 [blue]Then
[/blue]getVersion = "Windows 98SE"
[blue]Else
[/blue]getVersion = "Windows 98"
[blue]End If
Case [/blue]90
getVersion = "Windows Me"
[blue]End Select

Case [/blue]VER_PLATFORM_WIN32_NT [green]' Windows NT, Windows 2000, Windows XP,
[/green][blue]Select Case [/blue].dwMajorVersion [green]' or Windows Server 2003 family.
[/green][blue]Case [/blue]3
getVersion = "Windows NT 3.51"
[blue]Case [/blue]4
getVersion = "Windows NT 4.0"
[blue]Case [/blue]5
[blue]Select Case [/blue].dwMinorVersion
[blue]Case [/blue]0
getVersion = "Windows 2000"
[blue]Case [/blue]1
getVersion = "Windows XP"
[blue]Case [/blue]2
getVersion = "Windows Server 2003"
[blue]End Select
End Select

Case Else
[/blue]getVersion = "Failed"

[blue]End Select

End With
End Function
[/blue]

Form...

[blue]Private Sub [/blue]Command1_Click()
MsgBox getVersion
[blue]End Sub
[/blue]