Active Directory Problem

Falls sich wer von euch mit dem AD auskennt kann er mir vielleicht weiterhelfen. Ich möchte mit dem VBS-Script die Useraccount properties für "Accout is trusted for Delegation" und "Account is sensitive ..." setzten:

Dim bSet 'gibt an ob die ADSI Flags gesetzt oder gelöscht werden sollen
Dim sGroup 'Gruppe deren User bearbeitet werden sollen

Main()

Function GetArguments()
Dim objArgs
Set objArgs = WScript.Arguments

If objArgs.Count < 1 Then
Exit Function
End If

If Len(objArgs.Item(0)) > 0 Then
sGroup = objArgs.Item(0)
Else
Exit Function
End If

If objArgs.Count > 1 Then
If Left(lCase(objArgs.Item(1)), 2) = "-r" Then
bSet = False
Else
bSet = True
End If
Else
bSet = True
End If
End Function

Function Main()
Dim oUser, oGroup, iAccAttrs

GetArguments()

Set oDomain = GetObject("WinNT://MyDomain")
oDomain.filter = Array("group")
For each oGroup in oDomain
If StrComp(sGroup, oGroup.Name, vbTextCompare) = 0 Then
For Each oUser in oGroup.Members
oUser.GetInfo

wscript.echo(oUser.Name)

oUser.GetInfoEx Array("userAccountControl"), 0

iAccAttrs = oUser.Get("userAccountControl")
iAccAttrs = iAccAttrs Or &H80000 'trusted for delegation
iAccAttrs = iAccAttrs Or &H100000 'sensitive
'oUser.Put "userAccountControl", iAccAttrs
'oUser.SetInfo
Next
Exit For
End If
Next
End Function


Das Problem ist egal was ich mache bei Befehl "oUser.Get("userAccountControl")" krieg ich immer die Meldung das das Property nicht im Cache ist und nicht drauf zugegriffen werden kann (Fehler: 8000500D).

Bin für jeden Hinweis dankbar, ...