VBScript - Resetando senha de todos os usuários da OU

VBScript - Resetando senha de todos os usuários da OU

'impede que você use uma variável sem criá-la
Option Explicit 


'Dim declara variáveis
Dim objOU, objUser, objRootDSE

Dim strContainer, strDNSDomain, strPassword 

' Vincular a Domínio Active Directory

Set objRootDSE = GetObject("LDAP://RootDSE") 

strDNSDomain = objRootDSE.Get("DefaultNamingContext") 

' Importante mudar: OU="Nome da OU do seu domínio."

' Importante mudar: "P@ssw0rd" para o password desejado.

strContainer = "OU=Accounts, "

strPassword = "P@ssw0rd"

strContainer = strContainer & strDNSDomain

' Looping é feito através da OU= definindo a senha para todos usuários que estão dentro dela

set objOU =GetObject("LDAP://" & strContainer )

For each objUser in objOU

If objUser.class="user" then

objUser.SetPassword strPassword

objUser.SetInfo

End If

Next 

WScript.Quit