Script para desbloquear usuário no AD

E ai vai um script rápido pro dia a dia dos administradores. Esse script agiliza o desbloqueio de usuários no AD. Muito útil quando você precisa de agilidade.



'Script que desbloqueia o usuário no AD

nome = inputbox("Digite o usuario", "LDAP")
CheckForUser(nome)
Sub CheckForUser(samAccountName)
    strUserName = samAccountName
    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.Open "Provider=ADsDSOObject;"
    Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection

    objCommand.CommandText = "<LDAP://dc=empresa,dc=net>;(&(objectCategory=User)" & "(samAccountName=" & strUserName & ")) ;samAccountName;subtree" & ";userAccountControl,distinguishedName;subtree"
     
    Set objRecordSet = objCommand.Execute
caminho = objRecordset("distinguishedName")

    set objUser = GetObject ("LDAP://" & caminho &"")
objUser.IsAccountLocked = FALSE
objUser.SetInfo
wscript.echo "usuario desbloqueado"

objConnection.Close

End Sub