Visual Basic OS Info

[SnGtKs]

So hier mal ein Code Beispiel wie man mit Visual Basic das Betriebssystem herraus bekommt.
Natürlich ist es inzwischen quatsch Windows 9x/ME, NT3, NT4 und Win2000 abzufragen. Aber ich zeigs trotzdem.

Code:

Private Function GetOSVersion() As String
        Dim [OSVersion] As System.OperatingSystem = System.Environment.OSVersion
        Dim Result As String = "Unbekanntes System"

        Select Case [OSVersion].Platform
            Case System.PlatformID.Win32NT
                'WinNT, Win2000, WinXP, Win2003, Windows Vista, Windows 2008
                Select Case [OSVersion].Version.Major
                    Case 3 : Result = "Windows NT 3.51"
                    Case 4 : Result = "Windows NT 4.0"
                    Case 5
                        If [OSVersion].Version.Minor = 0 Then
                            Result = "Windows 2000"
                            If [OSVersion].Version.Minor = 1 Then
                                Result = "Windows XP"
                                If [OSVersion].Version.Minor = 2 Then
                                    Result = "Windows Server 2003"
                                End If
                            End If
                        End If
                    Case 6
                        If [OSVersion].Version.Minor = 0 Then
                            Result = "Windows Vista"
                            If [OSVersion].Version.Minor = 1 Then
                                Result = "Windows Server 2008"
                            'Im moment wird Windows 7 auch als Windows 2008 erkannt.
                            End If
                        End If
                End Select
            Case System.PlatformID.Win32Windows
                'Win95, Win98, Windows ME
                Select Case [OSVersion].Version.Minor
                    Case 0 : Result = "Windows 95"
                    Case 10 : Result = "Windows 98"
                    Case 90 : Result = "Windows ME"
                End Select
        End Select
        Return Result
    End Function

[Alex]

Code:

Public Function Get_Windows_and_SP() As String

        Dim WinVer As String = "-1"
        Dim SPVer As String = "-1"

        Try
            Dim query As New SelectQuery("Win32_OperatingSystem")
            Dim search As New ManagementObjectSearcher(query)
            Dim info As ManagementObject

            For Each info In search.Get()
                WinVer = info("Caption")
                SPVer = info("ServicePackMajorVersion")
                Exit For
            Next

            If Not WinVer = "-1" Or Not SPVer = "-1" Then
                Return WinVer & " " & "Service Pack " & SPVer
            Else
                Return "Fehler beim Auslesen"
            End If

        Catch
            Return "Fehler beim Auslesen"
        End Try

    End Function

Mit WMI

Sieht nur so viel aus, weil ich jeden erdenklichen Fehler abfange öö

[SnGtKs]

Gegen den VisualBasic King Alex komme ich nicht an Sorry

[Griggi]

Wers einfacher will: VB.Net hat n Code ums "einfacher" zu machen:

Code:

Label1.Text = My.Computer.Info.OSFullName

[Alex]

My stinkt

[Griggi]

Aber is halt hingegen WMI-Zeugs immer einfacher zu nutzen (dafür isses halt dann nich so gut )

[huttERic]

My stinkt wirklich. Ist im Microsoft.VisualBasic Namespace. Kann man in anderen .NET-Sprachen nicht nutzen, außer man importiert die Microsoft.VisualBasic.dll. Wobei ein Namespace parallel zu this in C# lustig wäre von mir aus that

[LukeGee]

huttERic schrieb:  My stinkt wirklich. Ist im Microsoft.VisualBasic Namespace. Kann man in anderen .NET-Sprachen nicht nutzen, außer man importiert die Microsoft.VisualBasic.dll. Wobei ein Namespace parallel zu this in C# lustig wäre von mir aus that

Natürlich gibts das, du Wurstkopf :o
Ist afaik unter System.Environment oder so ähnlich.

[huttERic]

LukeGee schrieb:  Natürlich gibts das, du Wurstkopf :o
Ist afaik unter System.Environment oder so ähnlich.

Der My-Namespace aus VB.NET hat übrigens mehr als nur System.Environment

[LukeGee]

Mir gins um diese OS Info geschichte.