Supportnet / Forum / Skripte(PHP,ASP,Perl...)
vbsript - Gruppenname konnte nicht gefunden werden
Frage
Hallo zusammen,
Ich probiere mit folgendem Script die Option beim User (Password never expires) zu aktivieren. Ich kriege aber immer diese Meldung => Der Gruppenname konnte nicht gefunden werden. Zeile 6
Was mache ich falsch?
strComputer = "PC"
'set the user account
strUser = "USER1"
Set User = Getobject("WinNT://" & strComputer & "/" & strUser)
Flags = User.Get("UserFlags")
'check the "Password never expires" option
User.put "Userflags", flags OR &H10000
user.setinfo
Set User = nothing
GRÜSSE
Antwort 1 von Gala
Hallo zusammen,
Hier habe ich ein Printscreen der Fehlermeldung:
http://www.bilder-space.de/show.php?file=pqdTkEpi3GhiMt1.jpg
Mit freundlichen Grüssen
Hier habe ich ein Printscreen der Fehlermeldung:
http://www.bilder-space.de/show.php?file=pqdTkEpi3GhiMt1.jpg
Mit freundlichen Grüssen
Antwort 2 von Gala
hallo zusammen,
haben diesen code geschrieben und es funktioniert ;)
mit freundlichen grüssen
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
strComputer = "COMPUTERNAME"
strUserName = "BENUTZERNAME"
Set objUser = GetObject("WinNT://" & strComputer & "/" & strUserName)
objUserFlags = objUser.Get("UserFlags")
objPasswordExpirationFlag = objUserFlags OR ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordExpirationFlag
objUser.SetInfo
MsgBox ("'Password never expire' option is ENABLED")ED")
haben diesen code geschrieben und es funktioniert ;)
mit freundlichen grüssen
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
strComputer = "COMPUTERNAME"
strUserName = "BENUTZERNAME"
Set objUser = GetObject("WinNT://" & strComputer & "/" & strUserName)
objUserFlags = objUser.Get("UserFlags")
objPasswordExpirationFlag = objUserFlags OR ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordExpirationFlag
objUser.SetInfo
MsgBox ("'Password never expire' option is ENABLED")ED")