Massenabfragen ans Active Directory via LDAP?

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!

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 147007

Url: https://administrator.de/forum/massenabfragen-ans-active-directory-via-ldap-147007.html

Ausgedruckt am: 22.12.2024 um 11:12 Uhr

5 Kommentare

Neuester Kommentar

http://excelldapsearch.sourceforge.net/

...dat sieht sehr interessant aus... !

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)

wow, danke pinguinjäger, das gefällt mir sehr gut!
Danke für den hinweis. ich gugge...

Moin,

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

Gruß

24

Hallo spacyfreak,

suchst du eventuell soetwas hier (geht bei den lokal angelegten Benutzern und exportiert das in ein Excelfile)

On Error Resume Next

strComputer = "."  
Set objWMIService = GetObject("winmgmts:" _  
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  

Set colItems = objWMIService.ExecQuery _
    ("Select * from Win32_UserAccount Where LocalAccount = True")  

Set objXL = WScript.CreateObject("Excel.Application")  
objXL.Workbooks.Add

Dim Reihe , Spalte
Reihe = 1
Spalte = 1


For Each objItem in colItems

    objXL.Cells(Spalte,Reihe).Value = "Account Type: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.AccountType
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Caption: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Caption
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Description: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Description
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Disabled: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Disabled
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Domain: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Domain
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Full Name: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.FullName
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Local Account: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.LocalAccount
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Lockout: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Lockout
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Name: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Name
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Password Changeable: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.PasswordChangeable
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Password Expires: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.PasswordExpires
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Password Required: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.PasswordRequired
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "SID: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.SID
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "SID Type: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.SIDType
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Status: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Status
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "AccountDisabled: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.AccountDisabled
    Spalte = Spalte + 1
    Spalte = Spalte + 1

Next

	objXL.Columns("A:A").EntireColumn.HorizontalAlignment = 4  
	objXL.Columns("B:B").EntireColumn.HorizontalAlignment = 2  
    	objXL.Columns("A:B").EntireColumn.AutoFit  

	objXL.Visible = True