Private Function GetOSDomain() As String
        Dim temp As String = String.Empty
 
        Dim query As New SelectQuery("Win32_ComputerSystem")
        Dim search As New ManagementObjectSearcher(query)
 
        For Each info As ManagementObject In search.Get()
 
            Try
                temp = info("Domain").ToString
            Catch
                temp = "n.a."
            End Try
 
        Next
 
        If search IsNot Nothing Then search.Dispose()
 
        Return temp
 
    End Function

    Private Function GetOSPartOfDomain() As Boolean
        Dim temp As Boolean
 
        Dim query As New SelectQuery("Win32_ComputerSystem")
        Dim search As New ManagementObjectSearcher(query)
 
        For Each info As ManagementObject In search.Get()
 
            Try
                temp = CBool(info("PartOfDomain"))
            Catch
                temp = False
            End Try
 
        Next
 
        If search IsNot Nothing Then search.Dispose()
 
        Return temp
 
    End Function

    'Microsoft CodeNamen
    Private Const strChicago As String = "Chicago"
    Private Const strDaytona As String = "Daytona"
    Private Const strDetroit As String = "Detroit"
    Private Const strMemphis As String = "Memphis"
    Private Const strGeorgia As String = "Georgia"
    Private Const strCairo As String = "Cairo"
    Private Const strCairoNT5 As String = "Cairo/NT5"
    Private Const strWhistler As String = "Whistler"
    Private Const strWhistlerServer As String = "Whistler Server"
    Private Const strLonghorn As String = "Longhorn"
    Private Const strVienna As String = "Vienna (Blackcomb)"
 
 
    Private Shared Function GetOSCodeName() As String
        Dim intMinorVersion As Integer
        Dim intMajorVersion As Integer
 
        intMajorVersion = Environment.OSVersion.Version.Major
        intMinorVersion = Environment.OSVersion.Version.Minor
 
        Select Case Environment.OSVersion.Platform
            Case System.PlatformID.Win32Windows
 
                Select Case intMinorVersion
                    Case 0
 
                        If mRevision = String.Empty Then
                            Return strChicago
                        Else
                            Return strDetroit
                        End If
 
                    Case 10
                        Return strMemphis
                    Case 90
                        Return strGeorgia
                    Case Else
                        Return mUnknown
                End Select
 
            Case System.PlatformID.Win32NT
 
                ' get information for Windows NT SP6 and above
                If intMajorVersion = 4 And intMinorVersion = 0 Then
                    ' Windows NT
                    Return strCairo
                ElseIf intMajorVersion = 5 And intMinorVersion = 0 Then
                    ' Windows 2000
                    Return strCairoNT5
                ElseIf intMajorVersion = 5 And intMinorVersion = 1 Then
                    ' Windows XP
                    Return strWhistler
                ElseIf intMajorVersion = 5 And intMinorVersion = 2 Then
                    ' Windows Server 2003
                    Return strWhistlerServer
                ElseIf intMajorVersion = 6 And intMinorVersion = 0 Then
                    ' Windows Vista
                    Return strLonghorn
                ElseIf intMajorVersion = 6 And intMinorVersion = 1 Then
                    ' Windows 7 oder Windows Server 2008
                    Return strVienna
                Else
                    Return mUnknown
                End If
            Case Else
                Return mUnknown
        End Select
 
   End Function