[Script] VBScript adicionando usuário do dominio como administrador local

[marceloleaes]

Script para adicionar um usuário especifico no grupo de Administradores locais da estação de trabalho. Pode ser usado com GPO.

Código: Selecionar todos

Set objNet = CreateObject("WScript.Network" ) 

' Usuário que vai receber 
strUser = "fulano.beltrano"

strNetBIOSDomain = objNet.UserDomain 
strComputer = objNet.ComputerName 

Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group" ) 
Set objUser = GetObject("WinNT://" & strNetBIOSDomain & "/" & strUser & ",user" ) 

' Ignora se o usuário já pertencer ao grupo
On Error Resume Next 
objGroup.Add(objUser.ADsPath) 
On Error Goto 0