PDC ermitteln – dotnet-snippets.de

Sprache: VB

Diese kleine Funktion ermittelt den PDC

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

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

Abgelegt unter ADS Domäncontroller PDC

Alte URL: /snippet/pdc-ermitteln/420

1 Kommentar