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, 16504 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
Exchange Server

WSUS bietet CU22 für Exchange 2007 SP3 nicht an. EOL Exchange 2007

Tipp von DerWoWusste zum Thema Exchange Server ...

Ähnliche Inhalte
Vmware
ESXi 6 Active Directory (3)

Frage von VerwirrterUser zum Thema Vmware ...

Windows Server
Active Directory-Verwaltungscenter macht Probleme (1)

Frage von MrFuzz zum Thema Windows Server ...

Windows Userverwaltung
gelöst Active Directory Migration von Benutzern (8)

Frage von JimPiet zum Thema Windows Userverwaltung ...

Heiß diskutierte Inhalte
Exchange Server
Test-ActiveSyncConnectivity Error nach neuem Zertifikat (17)

Frage von Driphex zum Thema Exchange Server ...

Batch & Shell
gelöst Batch xls nach aktuellem Datum auslesen und email senden (14)

Frage von michi-ffm zum Thema Batch & Shell ...

Backup
Datensicherung ARCHIV (12)

Frage von fautec56 zum Thema Backup ...