Top-Themen

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

Active Directory per VBScript auslesen

Frage Entwicklung VB for Applications

Mitglied: Mainboard

Mainboard (Level 1) - Jetzt verbinden

01.10.2009 um 11:59 Uhr, 17580 Aufrufe, 4 Kommentare

Hallo zusammen, ich bin neu in diesem Forum und bitte auch schon um Hilfe bei einem Problem.

Vorweg sei gesagt ich befinde mich zurzeit in einer Ausbildung zum Fachinformatiker und bin im Gebiet des Programmierens in VBS noch recht unversiert.

Mein Problem: Ich soll ein Script in VBS schreiben, mit dem ich alle User aus dem Active Directory auslesen kann.
Relevant sind hierbei Daten wie: Vorname, Nachname und besonders wichtig, ob der Haken bei "Password never expires" unter "Account Optiones" gesetzt ist oder nicht.
Optimal wäre es, wenn das Script die ausgelesenen Daten in eine Excel-Tabelle schreibt.
Die Angelegenheit wird zusätzlich dadurch erschwert, dass das Script bis morgen fertig sein soll...
Ich habe auch schon lange im Internet recherchiert, aber keine Möglichkeit gefunden die Option "Password never expires" auszulesen.

Ich hoffe, jemand von Euch kann mir dabei helfen.


Mit freundlichen Grüßen

Mainboard
Mitglied: manuel-r
01.10.2009 um 12:05 Uhr
Hier findest du ganz bestimmt was. Und da wahrscheinlich auch.

Manuel
Bitte warten ..
Mitglied: TsukiSan
01.10.2009 um 17:03 Uhr
Hallo Mainboard,

eventuell hilft dir dies etwas weiter:
01.
'On Error Resume Next 
02.
 
03.
Const E_ADS_PROPERTY_NOT_FOUND  = &h8000500D 
04.
 
05.
Set objOU = GetObject _ 
06.
    ("LDAP://ou=DeineOU,dc=Firma,dc=local") 
07.
   
08.
ObjOU.Filter= Array("group") 
09.
  
10.
For Each objGroup in objOU 
11.
    objGroup.GetInfo 
12.
    arrMemberOf = objGroup.GetEx("member") 
13.
 
14.
    WScript.Echo "Members of """ & objGroup.cn & """:" 
15.
    For Each strMember in arrMemberOf 
16.
        WScript.echo strMember 
17.
    Next 
18.
 
19.
    WScript.Echo  
20.
Next
Ein bisschen umschreiben musst du dann noch selber

Gruß
Tsuki
Bitte warten ..
Mitglied: TsukiSan
01.10.2009 um 17:07 Uhr
...einen hätt' ich noch!

01.
On Error Resume Next 
02.
 
03.
Const wbemFlagReturnImmediately = &h10 
04.
Const wbemFlagForwardOnly = &h20 
05.
 
06.
arrComputers = Array("DELLAX") 
07.
For Each strComputer In arrComputers 
08.
   WScript.Echo 
09.
   WScript.Echo "==========================================" 
10.
   WScript.Echo "Computer: " & strComputer 
11.
   WScript.Echo "==========================================" 
12.
 
13.
   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
14.
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_GroupUser", "WQL", _ 
15.
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly) 
16.
 
17.
   For Each objItem In colItems 
18.
      WScript.Echo "GroupComponent: " & objItem.GroupComponent 
19.
      WScript.Echo "PartComponent: " & objItem.PartComponent 
20.
      WScript.Echo 
21.
   Next 
22.
Next
Gruß
Tsuki

Ps.: Leg dir mal den Scriptomat zu!
Bitte warten ..
Mitglied: Mainboard
02.10.2009 um 08:25 Uhr
Hallo TsukiSan,

danke für die beiden Script, ich werd's gleich mal ausprobieren.
Bitte warten ..
Ähnliche Inhalte
Windows Userverwaltung
"Tote" User im Active Directory auslesen, deaktivieren und verschieben
gelöst Frage von XxDarkAngelxXWindows Userverwaltung3 Kommentare

Hallo, ich brauche einmal Hilfe. Ich bin dabei das AD bei uns aufzuräumen. Jetzt benötige ich ein Tool oder ...

Batch & Shell
Powershell alle Active Directory Gruppen auslesen mit enthaltenen Benutzern
Frage von Berti1Batch & Shell6 Kommentare

Hallo, bin PS Neuling und wir benötigen hier eine Auswertung von unseren Gruppen inkl. Anwender. Aufgabenstellung: Alle Berechtigungsgruppen auslesen ...

Windows Server
Active Directory Vertrauensstellung
Frage von ukulele-7Windows Server11 Kommentare

Ich muss sagen das ist meine erste Vertrauensstellung. Ich habe sie in unserer alten AD ads.domain.local Windows 2003 und ...

Windows Server
Mit Tastenkürzel im Active Directory navigieren?
gelöst Frage von Fish01Windows Server3 Kommentare

Hallo! Folgender Fall als Beispiel: Habe in einer OU ca. 100 User und möchte zB: bei jedem User kontrollieren, ...

Neue Wissensbeiträge
Mac OS X

MacOS wo ist die Tilde ?

Tipp von Alchimedes vor 12 StundenMac OS X1 Kommentar

Hallo, ich hab eine MacOS qwertz Keyboard auf US Layout umgestellt da die Sonderzeichen besser erreichbar sind. Leider fehlt ...

Datenschutz

Weitere Informationen zum Sicherheitsproblem BeA

Information von Penny.Cilin vor 19 StundenDatenschutz

Im folgenden ein weiterer Bericht über die Sicherheitsprobleme von Bea. Fataler Konstruktionsfehler im besonderen elektronischen Anwaltspostfach Gruss Penny

Windows 10

Systemdienste behalten nach Win10 inplace-Upgrade nicht die ggf. modifizierte Startart bei

Tipp von DerWoWusste vor 21 StundenWindows 103 Kommentare

Stellt Euch vor, Ihr habt ein Win10 System und modifiziert dort die Startart von Systemdiensten. Zum Beispiel wollt Ihr ...

Microsoft Office

Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei

Anleitung von SarekHL vor 1 TagMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...

Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von fyrb38Windows 1018 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...

Microsoft Office
Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei
Anleitung von SarekHLMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...