Alteração da senha de administrador local de estações de trabalho

Saudações! Caso necessitem alterar a senha de administradores locais da sua empresa, este script, ajudará e muito! Basta colocá-lo na GPO do AD, em startup ou logon, e ele rodará, assim, alterando a senha de administrador local do micro em questao. Veja que o script verifica se a versão do Sistema Operacional é em Inglês ou Portugues. ******************************************************* Set os = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem") Set wshNetwork = WScript.CreateObject( "WScript.Network") For Each obj In os    Set prps = obj.Properties_    OSLang = prps("OSLanguage").value Next If OSLang = 1046 Then  strAdmin = "Administrador" Else  strAdmin = "Administrator" End If  strComputer = wshNetwork.ComputerName  strPassAdmin = "SENHANOVA"  Set objUser = GetObject("WinNT://" & strComputer & "/" & strAdmin & ", user")  objUser.SetPassword strPassAdmin  objUser.SetInfo ******************************************************* Qualquer dúvida, me falem! Abraços, Addy Cunha

Quebra-Linha

Colaborador..: Addy Magalhães Cunha
Categoria(s).: Sistemas Operacionais;
Versão.......: 1.0
Data.........: 08/02/2008 11:39:54
Visualizado..: 3146 vezes
Fonte........: Microsoft TechNet