Local user account to have admin rights.

[guyvernews]

Dear all,

Is there a way to script to add a local user account to become a member of the administrators group?

Thanks

Paul

 

[jonscott8]

You can use ADSI.

If the current logged-on user doesnt have the necessary permissions, use the following replacing MyComputer with the name of the PC, Admin with a username who does have the necessary permissions, pass with the username's password.

Set oWinNT = GetObject("WinNT:&quot
Set oComputer = oWinNT.OpenDSObject("WinNT:MyComputerName,Computer","admin","pass",1)

If the current logged-on user does have the necessary permissions, use the following replacing MyComputer with the name of the PC.

Set oComputer = GetObject("WinNT://MyComputer,Computer&quot

Then, get the group and add the user:

Set oGroup = oComputer.GetObject("Group","Administrators&quot
If Not oGroup.IsMember("WinNT://yourdomain,youruser&quot Then
oGroup.Add "WinNT://yourdomain,youruser"
End If Jon Hawkins