Hallo an alle, ich habe mit Begeisterung den Beitrag gelesen und teile vom Script für meine Zwecke kopiert. Leider klappt das ganze nicht so wie ich will, vielleicht kann mir jemand helfen.
Es geht darum das ich von einer x Anzahl von Usern die in einem txt File stehen den TerminalServicesHomeDirectory ausgelesen haben möchte und das ganze soll wieder in einer txt ausgegeben werden.
Dim fso, f, Zeile, Feld
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile ("user.txt",1,0)
Do while not f.AtEndOfLine
Zeile = f.readLine
Feld = split(Zeile,",")
Vorname = Feld(0)
Nachname = Feld(1)
Call BenuntzerAuslesen(Vorname,Nachname)
Loop
f.Close
Wscript.Quit(0)
Sub BenuntzerAuslesen(Vorname,Nachname)
Dim ouo, b
Set objUser = GetObject _
("LDAP://cn=" & Vorname & " " & Nachname",ou=MIS_User,ou=MIS,ou=Citrix_User,dc=Dump,dc=local")
strTerminalServicesProfilePath = objUser.TerminalServicesProfilePath
strTerminalServicesHomeDirectory = objUser.TerminalServicesHomeDirectory
strTerminalServicesHomeDrive = objUser.TerminalServicesHomeDrive
intAllowLogon = objUser.AllowLogon
WScript.echo "TerminalServicesProfilePath : " & strTerminalServicesProfilePath
WScript.echo "TerminalServicesHomeDirectory: " & _
strTerminalServicesHomeDirectory
Für den Export in eine txt habe ich überhaupt keine Idee. Kann mir jemand da helfen ?
Mir würde auch eine normal einfach LDAP Abfrage auch reichen die ich im AD unter Custom Search.
Danke euch schonmal vorab
Gruß