Manipulation des Attributes terminalserverprofilepath mittels VBS

In diesem Skript geht es um das Manipulieren des “terminalserverprofilepath” bei einer unbestimmten Anzahl von Benutzern durch das Einlesen einer Textdatei.

Inhalt der  Datei: z.B.: phalbdel,\\server$\Userdata\phalbdel

Set objFileToRead = CreateObject(“Scripting.FileSystemObject”).OpenTextFile(“C:dateiname.txt”,1)
Dim strLine,mystring,user,path,stringsplit

do while not objFileToRead.AtEndOfStream
mystring = objFileToRead.ReadLine()
stringsplit= Split(mystring,”,”,-1, 1)
user = stringsplit(0)
path = stringsplit(1)

Set objUser = GetObject(“LDAP://cn=”&user&”,ou=User,ou=Frankfurt,dc=contoso,dc=com”)

objUser.TerminalServicesProfilePath = path
objUser.TerminalServicesHomeDirectory = “”
objUser.TerminalServicesHomeDrive = “”
objUser.AllowLogon = Enabled
objUser.SetInfo

loop
objFileToRead.Close
Set objFileToRead = Nothing