#Region "Betriebssystem ermitteln"
 
    Public Shared Function ErmittelBetriebssystem(ByVal MitArchitektur As _
      Boolean) As String
        Dim sWert As String = String.Empty
 
        ' Wir rufen die Windows Version incl. Edition ab (ab Windows 2000 oder 
        ' höher)
        Dim Suchwert As New ManagementObjectSearcher("SELECT Caption FROM" & _
          "Win32_OperatingSystem")
        For Each os As ManagementObject In Suchwert.[Get]()
            sWert = os("Caption").ToString()
            Exit For
        Next
 
        ' Architektur überprüfen
        If MitArchitektur Then
            If Environment.GetEnvironmentVariable( _
              "PROCESSOR_ARCHITECTURE").Contains("64") Then
                sWert += " (64 Bit)"
            Else
                sWert += " (32 Bit)"
 
            End If
        End If
        Return (sWert)
    End Function
 
#End Region

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.