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, 4161 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
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Windows Server
Active Directory User löschen inkl Profilordner (23)

Frage von aif-get zum Thema Windows Server ...

Windows 8
gelöst Active Directory Default User.v2 Profile - Windows 8.1 Apps Error (4)

Frage von adm2015 zum Thema Windows 8 ...

Windows Server
gelöst Active Directory Domain Default User Profile (for Windows 8.1) (4)

Frage von adm2015 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (21)

Frage von Xaero1982 zum Thema Microsoft ...

Windows Update
Treiberinstallation durch Windows Update läßt sich nicht verhindern (17)

Frage von liquidbase zum Thema Windows Update ...

Windows Tools
gelöst Aussendienst Datensynchronisierung (12)

Frage von lighningcrow zum Thema Windows Tools ...

Windows Server
Suche passender Treiber (12)

Frage von stolli zum Thema Windows Server ...