How to find out which operating system is the system on

[Taftheman]

Hi, i have a system done in VB6 i was wondering is there a way i can find out what operating system is being used. I need this for drive mapping. Would i need to use the file system object at all.

Thanks in advance

[debasisdas]

select Project ---> Add Form
select About Dialog

On the new form you will get a button System Info and a lot of inbuilt code along with that.

Hope that solves your problem.

[jamesd0142]

Well in vb.net:

Public Function OS_Version() As String
 
        Dim osInfo As OperatingSystem
        Dim sAns As String
 
        osInfo = System.Environment.OSVersion
 
        With osInfo
            Select Case .Platform
                Case .Platform.Win32Windows
                    Select Case (.Version.Minor)
                        Case 0
                            sAns = "Windows 95"
                        Case 10
                            If .Version.Revision.ToString() = "2222A" Then
                                sAns = "Windows 98 Second Edition"
                            Else
                                sAns = "Windows 98"
                            End If
                        Case 90
                            sAns = "Windows Me"
                    End Select
                Case .Platform.Win32NT
                    Select Case (.Version.Major)
                        Case 3
                            sAns = "Windows NT 3.51"
                        Case 4
                            sAns = "Windows NT 4.0"
                        Case 5
                            If .Version.Minor = 0 Then
                                sAns = "Windows 2000"
                            ElseIf .Version.Minor = 1 Then
                                sAns = "Windows XP"
                            ElseIf .Version.Minor = 2 Then
                                sAns = "Windows Server 2003"
                            Else 'Future version maybe update
                                'as needed
                                sAns = "Unknown Windows Version"
                            End If
                    End Select
 
            End Select
        End With
 
        Return sAns
    End Function
--------------------------------------------------
USE:
 Dim sAns As String
        MsgBox(OS_Version())
--------------------------------------------------
 

example exe attached.
Unzip > change extension of txt file to ".exe"