Windows 2000 Server User Activate

[Himon.de]

Hallo Leute,

wir haben vor kurzem Active Directory bei uns eingeführt. Früher gab es die Möglichkeit User per Shell zu sperren und endspeeren. Und zwar so:

net user %1 /domain /active:yes

Das geht aber seit AD nicht mehr so. Weiss einer von euch wies jetzt funtzt?

[PhilS]

Per WSH!

'************************************************

' File: DisableUser (WSH in VBScript)

'************************************************

Option Explicit

Dim objUser, user, domain

domain = "//Rom"

user = "Bill"

If (MsgBox ("Benutzerkonto sperren " & user, vbQuestion + vbYesNo, _

"DisableUsern") = vbYes) Then

Set objUser = GetObject("WinNT:" & domain & "/" & user)

objUser.AccountDisabled = True

objUser.SetInfo ' speichern

WScript.Echo "Benutzerkonto " & user & " gesperrt"

Else

WScript.Echo "Nichts gesperrt"

End if

' Ende