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, 4175 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 Server
gelöst Active Directory Report (7)

Frage von mah0ni zum Thema Windows Server ...

Windows Server
Active Directory-Verwaltungscenter macht Probleme (1)

Frage von MrFuzz zum Thema Windows Server ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(2)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Netzwerkprotokolle
gelöst Leiten "dumme" Switches VLAN-Tags mit durch? (26)

Frage von coltseavers zum Thema Netzwerkprotokolle ...

Netzwerkgrundlagen
Kann auf Freigabe nicht Zugreifen (16)

Frage von leon123 zum Thema Netzwerkgrundlagen ...

Windows Server
gelöst Neues KB für W10 1607 und W2K16 wieder mal nicht im WSUS 3.0, hat das noch jemand? (16)

Frage von departure69 zum Thema Windows Server ...

Router & Routing
FTTH bzw FTTB Router (13)

Frage von ukulele-7 zum Thema Router & Routing ...