RSS

Add user to Local Group Administrator

24 Aug
Dim DomainName
Dim UserAccount
Set net = WScript.CreateObject(“WScript.Network”)
local = net.ComputerName
DomainName = “test.com”
UserAccount = “testuser”
set group = GetObject(“WinNT://”& local &”/Administrators”)
on error resume next
group.Add “WinNT://”& DomainName &”/”& UserAccount &””
CheckError
sub CheckError
if not err.number=0 then
set ole = CreateObject(“ole.err”)
MsgBox ole.oleError(err.Number), vbCritical
err.clear
else
MsgBox “Done.”
end if
end sub
Advertisements
 
Leave a comment

Posted by on August 24, 2010 in Active Directory

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s

 
%d bloggers like this: