VB: find_ad_group

0

Nachfolgend ein Beispiel, wie man prüfen kann, ob eine AD-Gruppe existiert oder nicht, oder hier als Download.

Imports System.DirectoryServices.AccountManagement
Imports System.Threading
Module Module1
    Private Function CheckADGroupAvailibility(strGroupName As String)
        Try
            Dim context As New PrincipalContext(ContextType.Domain)
            ' find a user
            'Dim user As UserPrincipal = UserPrincipal.FindByIdentity(context, "Christian.Scholz")
            Dim group As GroupPrincipal = GroupPrincipal.FindByIdentity(context, strGroupName)
            If group IsNot Nothing Then
                Return "1"
            Else
                Return "0"
            End If
        Catch ex As Exception
            Return ex.Message
        End Try
    End Function
    Sub Main()
        Console.WriteLine(CheckADGroupAvailibility("ADGroupToCheck"))
        Thread.Sleep(5000)
    End Sub
End Module
Teilen.

Über den Autor

Seit der Ausbildung zum Fachinformatiker Systemintegration (2002-2005) bei der DaimlerChrysler AG, beruflich im Bereich der E-Mail Kommunikation (Exchange, Linux) sowie des ActiveDirectory, mit entsprechenden Zertifizierungen (MCSE 2003, MCITP Ent.-Admin 2008, MCSE 2012, LPIC 1-3) tätig. Abgeschlossenes Studium zum Master of Science der IT-Management an der FOM sowie zertifizierter Datenschutzbeauftragter. Aktuell im Projektmanagement tätig.

Antworten