Microsoft MVPs inside





 MCSEboard.de – IT Pro Forum zu Windows Server 2008 R2 / 2008 / 2003 & Windows 7 / Vista / XP
Registrieren Hilfe Regeln Benutzerliste Suchen Heutige Beiträge Alle Foren als gelesen markieren

Windows Forum — Scripting


Alles zum Thema System Administration Scripting — Q & A zum Thema Scripting: Batch, VBS, WMI, PowerShell


Antwort
     
Themen-Optionen
Alt 25.01.2012, 10:41   #1
Newbie
 
Offline
Registriert seit: 01-2012
Beiträge: 5
VBScript in txt-File schreiben

Hallo Zusammen,

ich habe ein Script mit dem ich alle User unseres ADs auslesen möchte. Dieses Script soll in einer Datei ausgegeben werden, allerdings weiß ich nicht, wie ich das machen soll?!!... :-/ Bekomme nur eine Bildschirmausgabe... :-(
Hab vom scripten nicht allzuviel Ahnung...


hier das Script:

serverName = "Test"
baseStr = "dc=test,dc=de"
userName = "test@test.de"
userPass = "test123"

filterStr = "(&(objectCategory=person)(objectClass=user))"

Set ado = CreateObject("ADODB.Connection")
ado.Provider = "ADSDSOObject"
ado.Properties("User ID") = userName
ado.Properties("Password") = userPass
ado.Properties("Encrypt Password") = True
ado.Open "AD-Search"

Set adoCmd = CreateObject("ADODB.Command") adoCmd.ActiveConnection = ado
adoCmd.Properties("Page Size") = 2500
adoCmd.Properties("Cache Results") = True
adoCmd.CommandText = "<LDAP://" & serverName & "/" & baseStr & ">;" & filterStr & ";ADsPath;subtree"

Set objectList = adoCmd.Execute

While Not objectList.EOF
Set user = GetObject(objectList.Fields("ADsPath"))

WScript.Echo user.displayName

objectList.MoveNext
Wend



Schon einmal "Danke" für eure Hilfe.
    Mit Zitat antworten
Alt 25.01.2012, 11:14   #2
Moderator
 
Offline
Registriert seit: 11-2002
Beiträge: 6.666
Hi,
Dann schau dir am besten den Scripting Guide zu VBs an:
Microsoft Windows 2000 Scripting Guide - Reading and Writing Text Files

blub

Signatur
www.powershellpraxis.de

Nec Cupias, Nec Metuas

    Mit Zitat antworten
Alt 25.01.2012, 11:36   #3
Expert Member
 
Benutzerbild von NilsK
 
Offline
Registriert seit: 06-2008
Ort: Hannover
Beiträge: 7.376
Moin,

was soll denn am Ende dabei herauskommen? Oder anders gefragt: Welche Aufgabe bzw. welches Problem möchtest du am Ende mit deinem Skript lösen?

Gruß, Nils

Signatur
Nils Kaczenski

MVP Directory Services: Architecture
... der beste Schritt zur Problemlösung: Anforderungen definieren!

Kostenlosen Support gibt es nur im Forum, nicht privat!

    Mit Zitat antworten
Alt 25.01.2012, 11:38   #4
Newbie
 
Offline
Registriert seit: 01-2012
Beiträge: 5
Hallo,

ich möchte am Schluss eine txt-Datei haben, in der Alle User des AD stehen. :-)
    Mit Zitat antworten
Alt 25.01.2012, 11:43   #5
Expert Member
 
Benutzerbild von NilsK
 
Offline
Registriert seit: 06-2008
Ort: Hannover
Beiträge: 7.376
Moin,

aha.

Dann ist "net user /domain > meineDatei.txt" im CMD-Fenster die einfachste Variante. Dafür braucht man nun wirklich kein VBS.

Du willst doch was anderes? Dann wäre jetzt eine gute Gelegenheit, dich zu erklären.

Gruß, Nils

Signatur
Nils Kaczenski

MVP Directory Services: Architecture
... der beste Schritt zur Problemlösung: Anforderungen definieren!

Kostenlosen Support gibt es nur im Forum, nicht privat!

    Mit Zitat antworten
Alt 25.01.2012, 11:46   #6
Board Veteran
 
Offline
Registriert seit: 05-2008
Ort: MKK
Beiträge: 727
Moin,

ich weiß, Du sagst oben VBScript, aber warum nicht PowerShell? Im AD-Modul gibt es den schönen Befehl "Get-ADUser", damit wird Deine Aufgabe ein Einzeiler...

Grüße,
Robert

Signatur
Error 2: Press F13 to continue.

    Mit Zitat antworten
Alt 25.01.2012, 11:47   #7
Newbie
 
Offline
Registriert seit: 01-2012
Beiträge: 5
ich brauche von allen Usern, egal ob inaktiv oder aktiv, den Namen (Vor- und Nachname) und den Loginnamen evtl auch noch die E-Mail-Adresse...

Und das ganze brauche ich in einer txt-Datei um die Daten danach weiterzuverarbeiten...
    Mit Zitat antworten
Alt 25.01.2012, 11:51   #8
Board Veteran
 
Offline
Registriert seit: 05-2008
Ort: MKK
Beiträge: 727
Hi,

dann nimm Powershell, Get-ADUser...

Grüße,
Robert

Signatur
Error 2: Press F13 to continue.

    Mit Zitat antworten
Alt 25.01.2012, 12:08   #9
Newbie
 
Offline
Registriert seit: 01-2012
Beiträge: 5
Get-ADUser auch unter MS Windows 2000??
    Mit Zitat antworten
Alt 25.01.2012, 14:05   #10
Newbie
 
Offline
Registriert seit: 01-2012
Beiträge: 5
Get-ADUser geht bei mir nicht...^^ :-(
    Mit Zitat antworten
Antwort


Themen-Optionen


Ähnliche Themen
Thema Autor Forum Antworten Letzter Beitrag
VBScript für definition file bei Symantec bergesel Windows Forum — Scripting 1 10.11.2008 12:19
VBScript - Variable in Excel-Liste schreiben Blade1981 Windows Forum — Scripting 1 20.09.2006 16:58
SID per VBscript in Ini-file ersetzen tbaumann Windows Server Forum 0 30.05.2006 13:59
CMD File schreiben mit hindernissen ... fieser Byter Windows Forum — Allgemein 9 17.10.2005 01:24
Formularinhalte in txt-file schreiben schlachtplatte Windows Forum — Allgemein 0 23.11.2004 20:48


Alle Zeitangaben in MEZ/CET. Es ist jetzt 15:25 Uhr. Seite generiert in 0,039 Sekunden.

- Unsere Partner -

Copyright © 2000 – 2012 MCSEboard.de

Sprung zum Seitenanfang