Opret bruger med VBS

Den her stump kan:

strComputer = InputBox("Indtast navn på computer. Efterlad feltet blankt, for lokal maskine.","Computernavn")
If strComputer = "" Then strComputer = "."
UserName = InputBox("Indtast navn på brugeren","Brugernavn")
PassWord = InputBox("Indtast kodeord til brugeren","Kodeord")
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", UserName)
objUser.SetPassword PassWord
objUser.SetInfo
MsgBox "Brugeren er oprettet."

Skal der sættes bestemme flags, såsom 'Password never expires' ?

Prøv dette: http://www.mtekk.com.au/downloads/bulk%20create%20local%20user%20script.zip

Du skal bare redigere scriptet for at fortælle det hvor de skal gemmes,
f.eks Local Users and groups ->Users

hindu_skp >> Skal der sættes bestemme flags, såsom 'Password never expires' ?

Ja der skal

Er der et sted man kan finde nogle gode eksempler ?

www.microsoft.com/technet ikke et dumt sted at starte.

Hvilke flags skal sættes ?
Så bikser jeg det lige til dig

Password never expires
User cannot change password

Description, Full name, Group membership ?

hindu_skp >> Ja

llgpublic >> har lige testet det script men af en eller anden grund opretter den kun den første bruge og kommer så med fejlen:

P:\Users.vbs(90, 4) (null): A member could not be added to or removed from the l
ocal group because the member does not exist.

Så skulle den være der:

Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
Const ADS_UF_PASSWD_CANT_CHANGE = &H40
strComputer = InputBox("Indtast navn på computer. Efterlad feltet blankt, for lokal maskine.","Computernavn")
If strComputer = "" Then strComputer = "."
UserName = InputBox("Indtast navn på brugeren","Brugernavn")
PassWord = InputBox("Indtast kodeord til brugeren","Kodeord")
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", UserName)
objUser.SetPassword PassWord
objUser.SetInfo
objUserFlags = objUser.Get("UserFlags")
objPasswordExpirationFlag = objUserFlags OR ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordExpirationFlag
objUser.SetInfo
objUserFlags = objUser.Get("UserFlags")
objPasswordCannotChange = objUserFlags OR ADS_UF_PASSWD_CANT_CHANGE
objUser.Put "userFlags", objPasswordCannotChange
objUser.SetInfo
MsgBox "Brugeren er oprettet."

sidste sp hvordan gør man brugeren medlem af en gruppe ??

hindu_skp >> Smid et svar så deler jeg point mellem dig og llgpublic da jeg har brugt fra begge scripts.

Tak for hjælpen

Jeg kan se at du har samme problem med at smide folk i en gruppe, som jeg havde...
http://www.eksperten.dk/spm/493956

men alle problemer er løst nu.

Endnu en gang tak for hjælpen