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

Active Directory per VBScript auslesen

Frage Entwicklung VB for Applications

Mitglied: Mainboard

Mainboard (Level 1) - Jetzt verbinden

01.10.2009 um 11:59 Uhr, 16310 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 ..
Neuester Wissensbeitrag
CPU, RAM, Mainboards

Angetestet: PC Engines APU 3a2 im Rack-Gehäuse

(1)

Erfahrungsbericht von ashnod zum Thema CPU, RAM, Mainboards ...

Ähnliche Inhalte
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 ...

Windows Server
gelöst Verschlüsselungsmethode Active-Directory Domänen Usern (4)

Frage von User79 zum Thema Windows Server ...

Heiß diskutierte Inhalte
DSL, VDSL
DSL-Signal bewerten (13)

Frage von SarekHL zum Thema DSL, VDSL ...

Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (9)

Frage von JayyyH zum Thema Switche und Hubs ...

Windows Server
Mailserver auf Windows Server 2012 (9)

Frage von StefanT81 zum Thema Windows Server ...

Backup
Clients als Server missbrauchen? (9)

Frage von 1410640014 zum Thema Backup ...