OS Informationen

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

Public Class clsOperatingSystemInfo


    Public Function OSMainInformation() As String

        Dim majorVersion As Integer = Environment.OSVersion.Version.Major
        Dim minorVersion As Integer = Environment.OSVersion.Version.Minor
        Dim Plattform As String = String.Empty

        Select Case Environment.OSVersion.Platform

            Case PlatformID.Win32Windows

                If minorVersion = 90 Then                 ' Windows Me
                    Plattform = "Windows ME"
                Else
                    Plattform = ""
                End If

            Case PlatformID.Win32NT

                Select Case majorVersion
                    Case 5
                        If minorVersion = 0 Then          ' Windows 2000
                            Plattform = "Windows 2000"
                        ElseIf minorVersion = 1 Then      ' Windows XP
                            Plattform = "Windows XP"
                        ElseIf minorVersion = 2 Then      ' Windows Server 2003
                            Plattform = "Windows Server 2003"
                        Else
                            Plattform = ""
                        End If
                    Case 6
                        If minorVersion = 0 Then          ' Windows Vista
                            Plattform = "Windows Vista"
                        ElseIf minorVersion = 1 Then      ' Windows Server 2008 (?)

                            Plattform = "Windows Server XXXX. Possible Name: 2008 (?)"

                        Else
                            Plattform = ""
                        End If
                    Case Else
                        Plattform = "unkmnown"
                End Select
        End Select
        Return Plattform
    End Function