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, 4173 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
Windows 8
gelöst Active Directory Default User.v2 Profile - Windows 8.1 Apps Error (4)

Frage von adm2015 zum Thema Windows 8 ...

Windows Userverwaltung
gelöst Server 2012 R2 Active Directory über den Webbrowser öffnen (4)

Frage von blackhawk17 zum Thema Windows Userverwaltung ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Festplatten, SSD, Raid
PC stellt nach dem Bios ab (18)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...

iOS
16 iPads zentrall verwalten (18)

Frage von simonlohr zum Thema iOS ...

Viren und Trojaner
Ransomware .nm4 (15)

Frage von Zyklo92 zum Thema Viren und Trojaner ...

Windows 7
Freeware MSI Tool (13)

Frage von uridium69 zum Thema Windows 7 ...