spacyfreak
Jul 15, 2010
view4086
view5
0
Goto Top

Massenabfragen ans Active Directory via LDAP?

GermanQuestionMicrosoft
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!
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 147007

Url: https://administrator.de/contentid/147007

Printed on: April 19, 2024 at 13:04 o'clock

5 Comments
Latest comment
Goto Top
Member: spacyfreak
spacyfreak Jul 15, 2010 at 17:37:48 (UTC)
Goto Top
http://excelldapsearch.sourceforge.net/

...dat sieht sehr interessant aus... !
Member: TuXHunt3R
TuXHunt3R Jul 15, 2010 at 18:03:16 (UTC)
Goto Top
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)
Member: spacyfreak
spacyfreak Jul 15, 2010 at 18:52:46 (UTC)
Goto Top
wow, danke pinguinjäger, das gefällt mir sehr gut!
Danke für den hinweis. ich gugge... face-smile
Member: 2hard4you
2hard4you Jul 15, 2010 at 19:17:19 (UTC)
Goto Top
Moin,


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

face-wink

Gruß

24
Member: TsukiSan
TsukiSan Jul 16, 2010 at 05:54:00 (UTC)
Goto Top
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

Gruss
Tsuki
GermanQuestionMicrosoft
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsjstrickerWIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 3 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment