Getting Operating System 2

[Bitaoo]

Inside of my program (VB6) I want to check what Windows has been installed in the system. For example I want to check if it is Windows 98, 2000 and XP then so something other wise do something else. Wouls you please let me know how can I do this?

I appreciate help in advance,
--Bita

 

[rorubin]

Option Explicit


'
' API Declarations - Constants
'
Private Const VER_PLATFORM_WIN32s As Long = 0&
Private Const VER_PLATFORM_WIN32_WINDOWS As Long = 1&
Private Const VER_PLATFORM_WIN32_NT As Long = 2&

'
' The following declarations are valid only for Windows 2000 and later
'

' Suite Types
Private Const VER_SUITE_SMALLBUSINESS As Long = &H1
Private Const VER_SUITE_ENTERPRISE As Long = &H2
Private Const VER_SUITE_BACKOFFICE As Long = &H4
Private Const VER_SUITE_COMMUNICATIONS As Long = &H8
Private Const VER_SUITE_TERMINAL As Long = &H10
Private Const VER_SUITE_SMALLBUSINESS_RESTRICTED As Long = &H20
Private Const VER_SUITE_EMBEDDEDNT As Long = &H40
Private Const VER_SUITE_DATACENTER As Long = &H80
Private Const VER_SUITE_SINGLEUSERTS As Long = &H100

' Product Types
Private Const VER_NT_WORKSTATION As Long = &H1
Private Const VER_NT_DOMAIN_CONTROLLER As Long = &H2
Private Const VER_NT_SERVER As Long = &H3

' VerifyVersionInfo Masks
Private Const VER_MINORVERSION As Long = &H1
Private Const VER_MAJORVERSION As Long = &H2
Private Const VER_BUILDNUMBER As Long = &H4
Private Const VER_PLATFORMID As Long = &H8
Private Const VER_SERVICEPACKMINOR As Long = &H10
Private Const VER_SERVICEPACKMAJOR As Long = &H20
Private Const VER_SUITENAME As Long = &H40
Private Const VER_PRODUCT_TYPE As Long = &H80

' VerifyVersionInfo comparison Constants
Private Const VER_EQUAL = 1
Private Const VER_GREATER = 2
Private Const VER_GREATER_EQUAL = 3
Private Const VER_LESS = 4
Private Const VER_LESS_EQUAL = 5
Private Const VER_AND = 6
Private Const VER_OR = 7

Private Const VER_CONDITION_MASK = 7
Private Const VER_NUM_BITS_PER_CONDITION_MASK = 3


'
' API Declarations - Types
'
Private 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

'
' This structure is for Windows 2000 and later
'
Private 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
wSPMajor As Integer ' Service Pack Major Version
wSPMinor As Integer ' Service Pack Minor Version
wSuiteMask As Integer ' Suite Identifier
bProductType As Byte ' Server / Workstation / Domain Controller ?
bReserved As Byte ' Reserved
End Type

'
' API Declarations - Functions
'
Private Declare Function GetOSVersion Lib "kernel32" _
Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Private Declare Function GetOSVersionEx Lib "kernel32" _
Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFOEX) As Long

Private Declare Function VerifyVersionInfo Lib "kernel32" _
Alias "VerifyVersionInfoA" (lpVersionInformation As OSVERSIONINFOEX, _
ByVal dwTypeMask As Long, ByVal dwlConditionMask As Currency) _
As Long

Private Declare Function VerSetConditionMask Lib "kernel32" ( _
ByVal ConditionMask As Currency, _
ByVal TypeMask As Long, _
ByVal Condition As Byte) As Currency

'
' Enums
'
Public Enum OSType
Win32s
Win95
Win95OSR2
Win98
Win98R2
WinMillennium
WinNT3
WinNT31
WinNT35
WinNT4
Win2000
WinDontKnow
End Enum

' The Following Enums are for Windows 2000 or later.
Public Enum ProductType
OSTypeUnSupported = 0
OSTypeWorkStation = VER_NT_WORKSTATION
OSTypeDomainController = VER_NT_DOMAIN_CONTROLLER
OSTypeServer = VER_NT_SERVER
End Enum

Public Enum SuiteType
SuiteUnSupported = 0
SuiteBackOffice = VER_SUITE_BACKOFFICE
SuiteDataCenterServer = VER_SUITE_DATACENTER
SuiteAdvancedServer = VER_SUITE_ENTERPRISE
SuiteSmallBusinessServer = VER_SUITE_SMALLBUSINESS
SuiteSmallBusinessRestricted = VER_SUITE_SMALLBUSINESS_RESTRICTED ' Restricted Client Licnese
SuiteTerminalServices = VER_SUITE_TERMINAL

' Don't know what these are. They are defined in WinNT.H. But, No description
' exists in the Help file
[_SuiteCommunications] = VER_SUITE_COMMUNICATIONS
[_SuiteEmbeddedNT] = VER_SUITE_EMBEDDEDNT
[_SuiteSingleUser] = VER_SUITE_SINGLEUSERTS
End Enum


'
' Class Variables
'
Dim m_OS As OSType ' OS Enum
Dim m_OSString() As String ' The Name of the OS

Dim m_Major As Long ' Major Version
Dim m_Minor As Long ' Minor Version
Dim m_BuildNumber As Long ' Build Number of the OS
Dim m_SPMajor As Long ' Service Pack Minor Version. Win2000 or later
Dim m_SPMinor As Long ' Service Pack Minor Version. Win2000 or later
Dim m_PSSInfo As String ' PSS Info. Contains Service Pack Info in NT

' The Following vars are for Windows 2000 or later
Dim m_SuiteType As SuiteType
Dim m_ProductType As ProductType

Private Sub Class_Initialize()
'
' Calls GetVersionInfo to Initialize the Object
'
Dim OSInfo As OSVERSIONINFO, OSInfoEx As OSVERSIONINFOEX, APIRetVal As Long

'
' Before anything, initialize the OSString Array with elements corresponding to
' the Enum values of OSType
'
ReDim m_OSString(0 To OSType.WinDontKnow)
m_OSString(Win32s) = "Win32s"
m_OSString(Win95) = "Windows '95"
m_OSString(Win95OSR2) = "Windows '95 OSR 2"
m_OSString(Win98) = "Windows '98"
m_OSString(Win98R2) = "Windows '98 Release 2"
m_OSString(WinMillennium) = "Windows Millennium"
m_OSString(WinNT3) = "Windows NT 3.0"
m_OSString(WinNT31) = "Windows NT 3.1"
m_OSString(WinNT35) = "Windows NT 3.5"
m_OSString(WinNT4) = "Windows NT 4.0"
m_OSString(Win2000) = "Windows 2000/XP"
m_OSString(WinDontKnow) = "[Unknown]"

' Initialize the Structure
OSInfo.dwOSVersionInfoSize = Len(OSInfo)
OSInfoEx.dwOSVersionInfoSize = Len(OSInfoEx)

APIRetVal = GetOSVersion(OSInfo)

'
' Check if the OS is Windows 2000 or later. If so, it provides additional information
' through OSVERSIONINFOEX and Supports VerifyVersionInfo API.
'
If OSInfo.dwPlatformId = VER_PLATFORM_WIN32_NT And OSInfo.dwMajorVersion >= 5 Then

'
' Use Windows 2000 OSINFOEX Structure
'
GetOSVersionEx OSInfoEx

'
' Build the Results
'
m_OS = Win2000

m_Major = OSInfoEx.dwMajorVersion
m_Minor = OSInfoEx.dwMinorVersion
m_BuildNumber = OSInfoEx.dwBuildNumber
m_SPMajor = OSInfoEx.wSPMajor
m_SPMinor = OSInfoEx.wSPMinor
m_PSSInfo = OSInfoEx.szCSDVersion

' Get PSSInfo String
If Len(m_PSSInfo) > 0 Then
If InStr(m_PSSInfo, Chr$(0)) > 0 Then
m_PSSInfo = left$(m_PSSInfo, InStr(m_PSSInfo, Chr$(0)) - 1)
End If
End If

m_ProductType = OSInfoEx.bProductType
m_SuiteType = OSInfoEx.wSuiteMask
Else
'
' May be one of those Win9x or NT 3 to 4.51
' The Common Items are Major and Minor Verions and the PSS Strings
' As far as the Build Number goes, the NT/2000 systems return the Build Number in
' dwBuildNumber of the OSINFO structure. For Win9x, the HighWord of dwBuildNumber
' member contains the Major and Minor Versions and the BuildNumber is stored in the Lower
' order byte of the member
'

' Fill in the variables
m_Major = OSInfo.dwMajorVersion
m_Minor = OSInfo.dwMinorVersion
m_BuildNumber = OSInfo.dwBuildNumber

m_PSSInfo = OSInfo.szCSDVersion

' Features not available other than Windows 2000 or later
m_ProductType = OSTypeUnSupported
m_SuiteType = SuiteUnSupported

' Get PSSInfo String
If Len(m_PSSInfo) > 0 Then
If InStr(m_PSSInfo, Chr$(0)) > 0 Then
m_PSSInfo = left$(m_PSSInfo, InStr(m_PSSInfo, Chr$(0)) - 1)
End If
End If

'
' Now, Check for Various versions
'
Select Case OSInfo.dwPlatformId

Case VER_PLATFORM_WIN32_WINDOWS
' Check for Various Win9x Versions

m_BuildNumber = LOWORD(m_BuildNumber)

If m_Major = 4 And m_Minor = 0 Then
If m_BuildNumber = 950 Then
m_OS = Win95
Else ' 1111 for OSR 2. For OSR 2.5 = ???
m_OS = Win95OSR2
End If

ElseIf m_Major = 4 And m_Minor = 10 Then
If m_BuildNumber = 1998 Then
m_OS = Win98
Else ' Build Number is 2222.
m_OS = Win98R2
End If

ElseIf m_Major >= 4 And m_Minor > 10 Then
m_OS = WinMillennium ' Version = 4.90 ?
End If


Case VER_PLATFORM_WIN32_NT
' Windows NT
If m_Major = 3 And m_Minor = 0 Then
m_OS = WinNT3
ElseIf m_Major = 3 And m_Minor = 1 Then
m_OS = WinNT31
ElseIf m_Major = 4 Then
m_OS = WinNT4
End If

m_BuildNumber = m_BuildNumber And &HFFFF&

Case Else
' The case that will never occur on Win32. It's Win 3.x
m_OS = Win32s

End Select
End If
End Sub

Public Function OSEnum() As OSType
OSEnum = m_OS
End Function

Public Function OSName() As String
OSName = m_OSString(m_OS)
End Function

Public Function OSMajorVersion() As Long
OSMajorVersion = m_Major
End Function

Public Function OSMinorVersion() As Long
OSMinorVersion = m_Minor
End Function

Public Function OSSPMajorVersion() As Long
OSSPMajorVersion = m_SPMajor
End Function

Public Function OSSPMinorVersion() As Long
OSSPMinorVersion = m_SPMinor
End Function

Public Function OSBuildNumber() As Long
OSBuildNumber = m_BuildNumber
End Function

Public Function PSSInfo() As String
PSSInfo = m_PSSInfo
End Function

Public Property Get IsNT() As Boolean
IsNT = (m_OS >= WinNT3)
End Property

Public Property Get IsWin98() As Boolean
IsWin98 = (m_OS = Win98 Or m_OS = Win98R2)
End Property

Public Property Get IsWin2K() As Boolean
IsWin2K = (m_OS = Win2000)
End Property

Public Property Get OSProductType() As ProductType
OSProductType = m_ProductType
End Property

Public Property Get OSSuiteType() As SuiteType
OSSuiteType = m_SuiteType
End Property

Private Function LOWORD(ByVal lData As Long)
'
' Returns the LoWORD of the Long
'
If (lData And &HFFFF&) > &H7FFF& Then
lData = lData - &H10000
Else
lData = lData And &HFFFF&
End If

LOWORD = lData
End Function

 

[rorubin]

Put that in a module and call it like this


Dim osData As New OSInfo
osData.OSEnum

 

[johnwm]

Look at the SysInfo control in VBHelp. It's properties include OSVersion, OSBuild and OSPlatform

Add the control to your app Project|Components|Sysinfo control

MsgBox "Platform " & SysInfo1.OSPlatform & " Version " & SysInfo1.OSVersion & " Build " & SysInfo1.OSBuild

VBHelp gives the values for OSPlatform as:
0 = Win32s
1 = 95/98
2 = NT
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[rorubin]

Yep the sysinfo will work for you, if you want, however you will need to analyze the Build and the Version. Because it will report 2000 and XP as NT. Good call johnwm.

 

[CCLINT]

See thread222-387746 [/b][/i][/u][sub]*******************************************************
General remarks:
If this post contains any suggestions for the use or distribution of code, components or files of any sort, it is still your responsibility to assure that you have the proper license and distribution rights to do so!

 

[Bitaoo]

Thank you all very much for your help.

Regards,
--Bita

 

[CCLINT]

You are welcome! [/b][/i][/u][sub]*******************************************************
General remarks:
If this post contains any suggestions for the use or distribution of code, components or files of any sort, it is still your responsibility to assure that you have the proper license and distribution rights to do so!

 

[dontee]

Just thinking of a simpler way of solving this problem. The environ function in VB returns a number of environment variables including the operating system. Code as follows:

dim OpSys as string

OpSys = Environ("OS&quot

select case OpSys

Case "WINDOWS_NT"
...


Believe that that is just as effective and much simpler.

 

[strongm]

Environment variables? Don't get me started again...

 

[kado]

Strongm,

Environment variables are almost as safe as registry settings and we use those all the time.

Please discuss

 

[CCLINT]

Oh, I've seen otherwise....

BTW, there often more than one method to call upon in order to get/do something. But, not just any of them are the best, or as reliable as another.
This is a known fact.

So, why would I use the one that is less reliable, over another one that is more reliable/better suited for the job, if it only means a little more typing?

I would choose, at least in this case, the safest route.

It's those 2% of the times where something doesn't work properly, because someone decided to take the easy way out, that keeps me most busy, and interrupts me from concentrating on moving onward.....
[/b][/i][/u][sub]*******************************************************
General remarks:
If this post contains any suggestions for the use or distribution of code, components or files of any sort, it is still your responsibility to assure that you have the proper license and distribution rights to do so!

 

[kado]

CCLINT,

We balance the advantages and disadvantages of using one method over another all the time. In this case you are probably correct that it is worth the extra complexity of makeing an API call. The question realy is where do we stop adding extra complexity.

 

[strongm]

I can't actually be bothered, I'm afraid, to go through the issues with environment variables. Suffice it to say that the user can change, delete and/or modify them to their heart's content, and therefore they are unreliable. They are nowhere near as safe as registry entries.

The fact that people insist on using them in the belief that they cannot, and won't, change continually surprises me. I assume, in most cases, that it is because some of those people think that environment variables are fixed.