VB: list_local_admins

0

Nachfolgend ein Beispiel, um die lokalen Administratoren aufzulisten, oder hier als Download.

'Option Explicit Off
Imports System.DirectoryServices
Imports System.Diagnostics
Imports System.Runtime.InteropServices
Imports ActiveDs
Imports System.Threading
Module Module1
    Sub Main()
        Dim DeEntry As DirectoryEntry
        Dim groupcoll As New DirectoryEntry("WinNT://.")
        For Each DeEntry In groupcoll.Children
            If DeEntry.Name = "Administratoren" Then
                EnumGroupMembers(DeEntry.Name)
            End If
            'If DeEntry.SchemaEntry.Name = "Group" Then
            '   EnumGroupMembers(DeEntry.Name)
            'End If
        Next
        Thread.Sleep(50000)
    End Sub
 
    Public Sub EnumGroupMembers(ByVal group As String)
        Dim strUsername, strGroupName As String
        Dim aryUsername, aryGroupName As Array
        Dim MembersCollection As IADsMembers
        Dim GroupToEnum As New DirectoryEntry("WinNT://./" & group & ",group")
        MembersCollection = GroupToEnum.Invoke("Members")
        Dim filter As System.Object() = {"user"}
        MembersCollection.Filter = filter
        Dim user As IADsUser
        Dim grp As IADsGroup
        For Each user In MembersCollection
            strUsername = LCase(user.ADsPath)
            aryUsername = strUsername.Split("/")
            Console.WriteLine(strUsername)
            Console.WriteLine(aryUsername(2) & "" & aryUsername(3))
        Next
        Dim grpfilter As System.Object() = {"group"}
        MembersCollection.Filter = grpfilter
        For Each grp In MembersCollection
            'Console.WriteLine(LCase(grp.ADsPath))
            strGroupName = LCase(grp.ADsPath)
            aryGroupName = strGroupName.Split("/")
            Console.WriteLine(aryGroupName(2) & "" & aryGroupName(3))
        Next
    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