Hallo zusammen,
Ich probiere gerade das folgende VB Script für Autoit abzuändern komme aber ab "set rechner" nicht mehr weiter.
Weiß einer wie ich weiter machen muss damit alle Felder ausgefüllt werden und der Flag für "Password never Expired" gesetzt wird?
Danke und Gruß
Norman
Code
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
userid = "John"
passwort = "jonny"
name = "Admin"
beschreibung = "Admin"
Set wn = CreateObject("Wscript.Network")
pc = wn.Computername
set rechner = GetObject("WinNT://" & pc )
set konto = rechner.Create("User", userid)
konto.SetPassword passwort
konto.fullname = name
konto.description = beschreibung
objPasswordExpirationFlag = ADS_UF_DONT_EXPIRE_PASSWD
konto.Put "userFlags", objPasswordExpirationFlag
konto.SetInfo 'Daten werden aus Cache in Objekt geschrieben.
Set userObj = GetObject("WinNT://" & pc & "/Administrators")
Set user = GetObject("WinNT://" & pc & "/" & userid)
userObj.Add user.ADsPath
msgbox("Useraccount " & userid & " wurde angelegt.")
Alles anzeigen