how to create local user via VBscript??

[TheNewOne]

Hi forum. I have a problem how to create new local user via VBscript and add him to local administrators group. Can somebody help me. THX

 

[Whimp]

maybe this helps..
Set location = GetObject("WinNT://server,computer")
Set User1 = location.Create("user", "admin")
User1.SetPassword "something"
User1.SetInfo

Set Group = GetObject("WinNT://server/Administrators,group")
wscript.echo(user1.adspath)
Group.Add(User1.ADspath)

Hope it's works.

Richard

 

[TheNewOne]

Thx for reply Richard. Script works fine, just one more thing. How to disable "Password newer expires" option??? Do you maybe know how??
Thx again

Jure

 

[Whimp]

Set location = GetObject("WinNT://server,computer")
Set User1 = location.Create("user", "admin")
User1.SetPassword "something"
User1.Put "userAccountControl", &h10000
User1.SetInfo

This must be it. Hope you can use this.

Greetz,
Richard

 

[Whimp]

Set location = GetObject("WinNT://server,computer")
Set User1 = location.Create("user", "admin")
User1.SetPassword "something"
User1.Put "userAccountControl", &h10000
User1.SetInfo

This must be it. Hope you can use this. You can make a const from the &h10000 so you know what it did when you read the script again in a year.
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000

Greetz,
Richard

 

[TheNewOne]

Thx Richard, you just make my day.