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