Anyone Running on Win XP?

[amitabh]

Is there somebody who is running on Win XP? I need to determine the OS version info through code. I already know how to extract the relevant information, but I don't have access to XP machine, so if somebody could run my code on XP and return me the data needed, it would be great.
The code is in a class module, and you just need to call the GetPlatform function of the class. The output of the function is what I want.


Thanks
Amitabh

[CVMichael]

I have XP... where is the class ?

[peet]

Public Declare Function GetVersionExA Lib "kernel32" _
               (lpVersionInformation As OSVERSIONINFO) As Integer
 
            Public Type OSVERSIONINFO
               dwOSVersionInfoSize As Long
               dwMajorVersion As Long
               dwMinorVersion As Long
               dwBuildNumber As Long
               dwPlatformId As Long
               szCSDVersion As String * 128
            End Type
 
            Public Function getVersion() As String
               Dim osinfo As OSVERSIONINFO
               Dim retvalue As Integer
 
               osinfo.dwOSVersionInfoSize = 148
               osinfo.szCSDVersion = Space$(128)
               retvalue = GetVersionExA(osinfo)
 
               With osinfo
               Select Case .dwPlatformId
 
                Case 1
                
                    Select Case .dwMinorVersion
                        Case 0
                            getVersion = "Windows 95"
                        Case 10
                            getVersion = "Windows 98"
                        Case 90
                            getVersion = "Windows Mellinnium"
                    End Select
    
                Case 2
                    Select Case .dwMajorVersion
                        Case 3
                            getVersion = "Windows NT 3.51"
                        Case 4
                            getVersion = "Windows NT 4.0"
                        Case 5
                            If .dwMinorVersion = 0 Then
                                getVersion = "Windows 2000"
                            Else
                                getVersion = "Windows XP"
                            End If
                    End Select
    
                Case Else
                   getVersion = "Failed"
            End Select
 
               End With
            End Function

might be helpful

[amitabh]

Sorry here it is:

[amitabh]

Peet
Which edition of XP are you running?

[CVMichael]

Windows XP Professional

Here's the output: "v5.1 (Build 2600)"

Nice Class... can I use it for myself ?

[amitabh]

Definitely.
Thanks for your response.
BTW, here is full class code that is in the original. I trimmed it so that it was easy to ask questions.

[amitabh]

Anyone else running on other editons of XP, 2000 Advanced server, DataCenter Server. Or anyplace I can find the relevant values.

[peet]

Originally posted by amitabh
Peet
Which edition of XP are you running?

Version 5.1 (Build 2600.xpclnt_qfe.010827-1803) (whaterver that last part means beats me )

but the class return the same as CVMichael

[amitabh]

Thanks. This will most probably work with all versions of XP.