Add new Windows XP limited user with VBS?

[dustbuster]

How can I create a new (local)limited user account in Windows XP Pro using scripting?

User: User1
Password: user1pass

 

[markdmac]

Is this a Domain or Workgroup environment?

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

 

[dustbuster]

This is a workgroup environment.

Thanks,

 

[markdmac]

You will be faced with the challenge of needing admin credentials on each of the workgroup PCs.

The code to create the account is simple:

strComputer = "atl-ws-01"
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "Admin2")
objUser.SetPassword "09iu%4et"
objUser.SetInfo

Once you have the account you can add the user to the Admins group using the command NET LOCALGROUP

The syntax of this command is:


NET LOCALGROUP
[groupname [/COMMENT:"text"]] [/DOMAIN]
groupname {/ADD [/COMMENT:"text"] | /DELETE} [/DOMAIN]
groupname name [...] {/ADD | /DELETE} [/DOMAIN]


I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

 

[dustbuster]

In the code above strComputer is the name of the current machine, right? And the code is creating the user "Admin2"?