PDC ermitteln

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

Function GetPDCInfo() As String

        Dim objNTSysInfo As Object
        Dim str As New System.Text.StringBuilder
        Try
            objNTSysInfo = CreateObject("WinNTSystemInfo")

            With objNTSysInfo
                str.AppendLine("Computername:" & vbTab & .ComputerName)
                str.AppendLine("Domain-Name:" & vbTab & .DomainName)
                str.AppendLine("User-Name:" & vbTab & .UserName)
                str.AppendLine("PDC:" & vbTab & vbTab & .PDC)
            End With
        Catch ex As Exception
            str.AppendLine("Kein PDC verfügbar, System vermutl. kein Domänenmitglied")
        End Try
        Return str.ToString

End Function