Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 3266 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
Linux Netzwerk
gelöst Linux als Active Directory Domäne (7)

Frage von 134408 zum Thema Linux Netzwerk ...

Windows Server
gelöst Active Directory Report (7)

Frage von mah0ni 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
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (20)

Frage von Dobby zum Thema Router & Routing ...

Windows 10
Windows 10 Ordnerfreigabe (18)

Frage von Xaero1982 zum Thema Windows 10 ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (17)

Frage von liquidbase zum Thema Voice over IP ...

Monitoring
Netzwerk-Monitoring Software (17)

Frage von Ghost108 zum Thema Monitoring ...