Boa Tarde wagner! cara falta apenas declarar a variavel do script ,se eu não me engano.Então o script fica assim: Set objNetwork = CreateObject("Wscript.Network") strComputer = objNetwork.ComputerName Set colAccounts = GetObject("WinNT://" & strComputer & ",computer") Set objUser = GetObject("WinNT://" & strComputer & "/Administrador, user") objUser.SetPassword "TESTE@pass" objUser.SetInfo Tenta ai cara,acho que esse da certo! Abraço!