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

Massenabfragen ans Active Directory via LDAP?

Frage Microsoft

Mitglied: spacyfreak

spacyfreak (Level 2) - Jetzt verbinden

15.07.2010 um 19:28 Uhr, 3260 Aufrufe, 5 Kommentare

Ich suche nach einer simplen Methode, um im Active Directory bestimmte Attribute der Benutzereigenschaften abzufragen.

Ich habe ein Textfile mit Anwender-Anmeldenamen, z. B.

mueller
mayer
schmidt
auberger
doofian
ploedmann

Nun will ich bei all den Usern in der Liste im AD bestimmte Dinge abfragen, z. B. den INhalt des Felds "Description".


Wie wäre das am einfachsten zu bewerkstelligen? DANKE!
Mitglied: spacyfreak
15.07.2010 um 19:37 Uhr
http://excelldapsearch.sourceforge.net/

...dat sieht sehr interessant aus... !
Bitte warten ..
Mitglied: TuXHunt3R
15.07.2010 um 20:03 Uhr
Hallo spacyfreak


Mein bevorzugtes Mittel der Wahl für solche Sachen:
http://www.microsoft.com/downloads/details.aspx?FamilyID=b4cb2678-dafb- ...

Vor allem für das AD hat es sehr viele gute Scriptbeispiele. Ich mache es dann meistens so, dass ich mir einzelne Codebeispiele zu einem Script zusammensetze, dann die Informationen mit Semikolons getrennt in ein CSV schreiben lasse und dieses dann in Excel importiere. Du kannst viele der Beispiele auch in Excel direkt verwenden, mit kleinen Unterschieden (VBS => Windows Scripting Host, VBA => Excel)
Bitte warten ..
Mitglied: spacyfreak
15.07.2010 um 20:52 Uhr
wow, danke pinguinjäger, das gefällt mir sehr gut!
Danke für den hinweis. ich gugge...
Bitte warten ..
Mitglied: 2hard4you
15.07.2010 um 21:17 Uhr
Moin,


die ds-Befehle (dsget etc.) von nem Client gegen nen DC bringen auch genug Ergebnisse....



Gruß

24
Bitte warten ..
Mitglied: TsukiSan
16.07.2010 um 07:54 Uhr
Hallo spacyfreak,

suchst du eventuell soetwas hier (geht bei den lokal angelegten Benutzern und exportiert das in ein Excelfile)
01.
On Error Resume Next 
02.
 
03.
strComputer = "." 
04.
Set objWMIService = GetObject("winmgmts:" _ 
05.
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
06.
 
07.
Set colItems = objWMIService.ExecQuery _ 
08.
    ("Select * from Win32_UserAccount Where LocalAccount = True") 
09.
 
10.
Set objXL = WScript.CreateObject("Excel.Application") 
11.
objXL.Workbooks.Add 
12.
 
13.
Dim Reihe , Spalte 
14.
Reihe = 1 
15.
Spalte = 1 
16.
 
17.
 
18.
For Each objItem in colItems 
19.
 
20.
    objXL.Cells(Spalte,Reihe).Value = "Account Type: " 
21.
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.AccountType 
22.
    Spalte = Spalte + 1 
23.
    objXL.Cells(Spalte,Reihe).Value = "Caption: " 
24.
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Caption 
25.
    Spalte = Spalte + 1 
26.
    objXL.Cells(Spalte,Reihe).Value = "Description: " 
27.
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Description 
28.
    Spalte = Spalte + 1 
29.
    objXL.Cells(Spalte,Reihe).Value = "Disabled: " 
30.
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Disabled 
31.
    Spalte = Spalte + 1 
32.
    objXL.Cells(Spalte,Reihe).Value = "Domain: " 
33.
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Domain 
34.
    Spalte = Spalte + 1 
35.
    objXL.Cells(Spalte,Reihe).Value = "Full Name: " 
36.
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.FullName 
37.
    Spalte = Spalte + 1 
38.
    objXL.Cells(Spalte,Reihe).Value = "Local Account: " 
39.
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.LocalAccount 
40.
    Spalte = Spalte + 1 
41.
    objXL.Cells(Spalte,Reihe).Value = "Lockout: " 
42.
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Lockout 
43.
    Spalte = Spalte + 1 
44.
    objXL.Cells(Spalte,Reihe).Value = "Name: " 
45.
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Name 
46.
    Spalte = Spalte + 1 
47.
    objXL.Cells(Spalte,Reihe).Value = "Password Changeable: " 
48.
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.PasswordChangeable 
49.
    Spalte = Spalte + 1 
50.
    objXL.Cells(Spalte,Reihe).Value = "Password Expires: " 
51.
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.PasswordExpires 
52.
    Spalte = Spalte + 1 
53.
    objXL.Cells(Spalte,Reihe).Value = "Password Required: " 
54.
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.PasswordRequired 
55.
    Spalte = Spalte + 1 
56.
    objXL.Cells(Spalte,Reihe).Value = "SID: " 
57.
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.SID 
58.
    Spalte = Spalte + 1 
59.
    objXL.Cells(Spalte,Reihe).Value = "SID Type: " 
60.
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.SIDType 
61.
    Spalte = Spalte + 1 
62.
    objXL.Cells(Spalte,Reihe).Value = "Status: " 
63.
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Status 
64.
    Spalte = Spalte + 1 
65.
    objXL.Cells(Spalte,Reihe).Value = "AccountDisabled: " 
66.
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.AccountDisabled 
67.
    Spalte = Spalte + 1 
68.
    Spalte = Spalte + 1 
69.
 
70.
Next 
71.
 
72.
	objXL.Columns("A:A").EntireColumn.HorizontalAlignment = 4 
73.
	objXL.Columns("B:B").EntireColumn.HorizontalAlignment = 2 
74.
    	objXL.Columns("A:B").EntireColumn.AutoFit 
75.
 
76.
	objXL.Visible = True
Gruss
Tsuki
Bitte warten ..
Ähnliche Inhalte
Windows Server
gelöst Active Directory Report (7)

Frage von mah0ni zum Thema Windows Server ...

Windows Server
gelöst Migration Manager for Active Directory (3)

Frage von adrian138 zum Thema Windows Server ...

Windows Server
Active Directory-Verwaltungscenter macht Probleme (1)

Frage von MrFuzz zum Thema Windows Server ...

Windows Server
gelöst Verschlüsselungsmethode Active-Directory Domänen Usern (4)

Frage von User79 zum Thema Windows Server ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

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
Router & Routing
gelöst Linksys wrt1200ac v2 mit dd-wrt: keine vlan-einstellungen im GUI (15)

Frage von Pixi123 zum Thema Router & Routing ...

E-Business
Wo tragt ihr eure privaten Termine ein? (13)

Frage von honeybee zum Thema E-Business ...

Netzwerkprotokolle
Leiten "dumme" Switches VLAN-Tags mit durch? (13)

Frage von coltseavers zum Thema Netzwerkprotokolle ...

Windows Server
Terminalserver starten willkürlich neu (12)

Frage von thaefliger zum Thema Windows Server ...