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, 3196 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 ..
Neuester Wissensbeitrag
Internet

Unbemerkt - Telekom Netzumschaltung! - BNG - Broadband Network Gateway

(3)

Erfahrungsbericht von ashnod zum Thema Internet ...

Ähnliche Inhalte
Windows Server
gelöst Active Directory CA öffentlich vertrauenswürdig machen, geht das? (2)

Frage von DeathangelCH zum Thema Windows Server ...

Windows Server
gelöst Active Directory File Extension - Associated Program (11)

Frage von adm2015 zum Thema Windows Server ...

Windows 8
gelöst Active Directory Default User.v2 Profile - Windows 8.1 Apps Error (4)

Frage von adm2015 zum Thema Windows 8 ...

Windows Server
Active Directory sinnvoll für kleine Firma (15)

Frage von WolfPeano zum Thema Windows Server ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (17)

Frage von JayyyH zum Thema Switche und Hubs ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

DSL, VDSL
DSL-Signal bewerten (14)

Frage von SarekHL zum Thema DSL, VDSL ...