Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

NT 4.0 Domänen-User Terminal Services Attribute per Script modifizieren
Autor: Andy2005
Datum: 05.04.05 19:46
Hallo, ich hab ein massives Problem, innerhalb einer NT 4.0 Domäne die TerminalServer-Attribute innerhalb der gewünschten User zu verändern. Ich kann zwar das Objekt erzeugen, aber ein Zugriff auf die spezifischen/erweiterten Attriute TerminalServicesHomeDir, Path, Profilpath, usw.. klappt partou nicht. Was muss man da besonderes machen, damit auch diese Eigenschaften ausgelesen, bzw. modifiziert werden können. (NT 4.0Domäne, Windows XP Workstation zum Bearbeiten und Ausführen des Scripts) Ich hänge das Script mal hinten dran, dann kann man besser nachvollziehen, worums mir geht, denke ich .. Vielen Dank für Eure Hilfe ! -------------------------------------------- Dim nZeilenzaehler As Integer Dim nSpaltenzaehler As Integer Dim cTabellenname As String Dim cName As String Dim cFullname As String Dim cDescription As String Dim cHomeDirDriveold As String Dim cHomeDirectoryold As String Dim cHomeDirDrivenew As String Dim cHomeDirectorynew As String Dim cTSEProfilePathold As String Dim cTSEProfilePathnew As String Dim cTSEHomeDriveold As String Dim cTSEHomeDrivenew As String Dim cTSEHomeDirectoryold As String Dim cTSEHomeDirectorynew As String Dim cLoginscript As String Dim cDisabled As String Dim cProfile As String Dim cProfilepath As String Set oNT4Provider = GetObject("WinNT:") Set odomaene = oNT4Provider.openDSObject("WinNT://" + "WWU", "Administrator", "password", 1) ' Eintragen aller User in Sheet For Each oitem In odomaene cName = "" cFullname = "" cDescription = "" cHomeDirDriveold = "" cHomeDirectoryold = "" cHomeDirDrivenew = "" cHomeDirectorynew = "" cTSEProfilePathold = "" cTSEProfilePathnew = "" cTSEHomeDriveold = "" cTSEHomeDrivenew = "" cTSEHomeDirectoryold = "" cTSEHomeDirectorynew = "" cLoginscript = "" cDisabled = "" cProfile = "" cProfilepath = "" cName = oitem.Name cFullname = oitem.FullName cDescription = oitem.Description cHomeDirDriveold = oitem.homedirdrive cHomeDirectoryold = oitem.HomeDirectory cTSEProfilePathold = oitem.TerminalServicesProfilePath // Ab Hier hakts !!!!!!!!!!! cTSEHomeDriveold = oitem.TerminalServicesHomeDrive cTSEHomeDirectoryold = oitem.TerminalServicesHomeDirectory cLoginscript = oitem.loginscript cDisabled = oitem.accountdisabled cProfile = oitem.profile cProfile = oitem.profilepath Änderungen durchführen ' Wegschreiben der Änderungen ins Object 'oItem.SetInfo 'Set oItem = Nothing End If Next End Sub

NT 4.0 Domänen-User Terminal Services Attribute per Script m...

973

Andy2005

05.04.05 19:46

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen