Script Altera senha de administrador local

[Wagner Carvalho]

Ola galera Estou com um problema na empresa

preciso alterar a senha de administrador local de todas as máquinas tenho 250 máquinas no total

e achei um script de logon em VBScript que faz isso, mais o problema é que só conseguir fazer roda é determinada máquina, por exemplor

maquina de nome med01

maquina de onme med02

ou seja só consigo fazer o script rodar em uma maquina ou outra

quando tento por para roda em toda da um erro dizendo que eziste nome duplica na rede.

vou por o código do script dando certo e o dando errado

Codigo dando certo, como pode ver eu preciso mudar a senha de dois usuários

strComputer = "med01"
Set objUser = GetObject("WinNT://" & strComputer & "/Administrador, user")
Set objUser = GetObject("WinNT://" & strComputer & "/Suporte, user")
objUser.SetPassword "TESTE@pass"
objUser.SetInfo

Dando errado, então eu pensei comigo como eu quero alterar de todas as maquinas da rede basta troca o nome do host "med01" por "locahost" onde séria qualquer host

strComputer = "localhost"
Set objUser = GetObject("WinNT://" & strComputer & "/Administrador, user")
Set objUser = GetObject("WinNT://" & strComputer & "/Suporte, user")
objUser.SetPassword "TESTE@pass"
objUser.SetInfo

Dai então quando logo com um usúrario com permissão administrativas ele da uma erro

"Você não foi conectado porque existe um nome duplicado na rede."

Código. 80070034

Origem (null)

agradeço desde já a juda

Se estiver desobedencendo alguma regra peço sinceras desculpas desde já

att

wagner

[Jefferson.Brunheira]

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!

Editado Setembro 22, 2010 por Jefferson.Brunheira