Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Active Directory (User sowie dessen Gruppen ausgeben)

Frage Microsoft Windows Server

Mitglied: Schneidaa

Schneidaa (Level 1) - Jetzt verbinden

29.06.2010 um 13:29 Uhr, 4168 Aufrufe

Hallo @ all,
ich habe ein Problem, welches sich auf das Auslesen von Usern sowie deren Berechtigungsgruppen bezieht. Ich will, das alle User welche eine bestimmte Kostenstelle besitzen, sammt ihren Berechtigungsgruppen in ein Excel Sheet geschrieben werden. Ich bin nicht sehr eingearbeitet in dem Thema Active Directory und habe auch versucht mich auf den unzähligen Seiten mit der Problematik auseinanderzusetzen.

Was ich bisher habe ist das:

Set con = CreateObject("ADODB.Connection")
con.Provider = "ADsDSOObject"
con.Open "Active Directory Provider"

Set ocommand = CreateObject("ADODB.Command")
ocommand.ActiveConnection = con

ocommand.CommandText = "<GC://" & GetObject("GC://RootDSE").Get("defaultNamingContext") & ">;" & _
"(&(objectCategory=person)(objectClass=user)(extensionattribute2=" & strKostenstelle & "*))" & _
";Displayname,Department,cn,distinguishedName;subTree"
Set rs = ocommand.Execute
iCount = rs.RecordCount
i = 8
Do Until rs.EOF
On Error Resume Next
sName = "": sAbteilung = ""
sName = rs.fields(0)
sAbteilung = rs.fields(1)
sCN = rs.fields(2)
sdistinguishedName = rs.fields(3)
rs.movenext
Cells(i, 1).Value = sName
Cells(i, 2).Value = sAbteilung
Cells(i, 3).Value = sCN
i = i + 1
Loop
rs.Close
End Sub


Was heißt: Ich lese die Kostenstelle mit Hilfe eines Textfeldes ein und stelle die Verbindung zum AD her anschließend werden
Name
Abteilung
Benutzername
in entsprechende Felder eingetragen nur habe ich leider keine Ahnung wie ich jetzt an die jeweiligen Berechtigungsgruppen der jeweiligen Personen komme. Danach sollten die Benutzergruppen gruppiert werden sodass nur der User angezeigt werden soll und auf knopfdruck die jeweiligen Gruppen.
Ich Bitte um Hilfe am besten in Codeform da mir die ganzen Seiten wenig geholfen haben.
Gruppen befinden sich bei mir unter: ldap://btnweuce1/ou=groups,ou=local,ou=btn,ou=de,dc=euce,dc=corp,dc=bshg,dc=com
User unter: ldap://btnweuce1/ou=accounts,ou=local,ou=btn,ou=de,dc=euce,dc=corp,dc=bshg,dc=com
Ähnliche Inhalte
Neue Wissensbeiträge
Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(6)

Anleitung von BassFishFox zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Batch & Shell
gelöst ZIP-Archive nach Dateien durchsuchen und Pfade ausgeben (33)

Frage von evinben zum Thema Batch & Shell ...

Router & Routing
Routingproblem in Homerouter-Kaskade mit Raspi (20)

Frage von Oldschool zum Thema Router & Routing ...

Server
Freenas schlechte Schreib Performance bei NFS (16)

Frage von janosch12 zum Thema Server ...

Windows Userverwaltung
gelöst TeamViewer mit Software Restriction Policy (9)

Frage von geocast zum Thema Windows Userverwaltung ...