Administrator mit VBS anlegen.

[4future]

Hi,
ich such einen VB Script mit dem auf dem rechner ein Benutzer angelegt wird und dieser in die Gruppe Administratoren hinzugefügt wird. Da ich leider die Objekte nicht mehr weis sitz ich jetzt auf der Leitung.

mfg 4future

 

[4future]

okey hat sich geklährt !
für alle die's auch interresiert:

username = "user"
fullname = ""
describe = ""
password = "user2"


Set network = CreateObject("Wscript.Network")
cname = network.ComputerName

set Computer = GetObject("WinNT://" & cname)

set kontoneu = computer.Create("User", username)

kontoneu.SetInfo

kontoneu.SetPassword password

kontoneu.FullName = fullname
kontoneu.Description = describe

kontoneu.SetInfo

pfad = "WinNT://" & cname & "/Administratoren,group"
set gruppe = GetObject(Pfad)
gruppe.Add kontoneu.ADsPath
gruppe.SetInfo

MsgBox "Konto wurde erfolgreich angelegt!"