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, 3211 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
Vmware
ESXi 6 Active Directory (3)

Frage von VerwirrterUser zum Thema Vmware ...

Windows Server
Active Directory-Verwaltungscenter macht Probleme (1)

Frage von MrFuzz zum Thema Windows Server ...

Heiß diskutierte Inhalte
Windows Installation
Eine etwas (wirklich) speziellere Frage: Windows 10-Installation über (14)

Frage von DerFurrer zum Thema Windows Installation ...

Linux
gelöst Boot failed: not a bootable disk (10)

Frage von Fleckmen zum Thema Linux ...

Netzwerkgrundlagen
gelöst Cisco SG500 Series LAG hat sich von selbst umgestellt (10)

Frage von Ex0r2k16 zum Thema Netzwerkgrundlagen ...

Multimedia & Zubehör
gelöst Iphone 6 prob (9)

Frage von jensgebken zum Thema Multimedia & Zubehör ...