none
Script para desbloquear todos os usuários RRS feed

  • Pergunta

  •  

    Boa tarde...

    estou precisando de um script para desbloquear todas as conta do AD de uma só vez, alguém pode me ajudar?

    Agradeço a todos
    sábado, 10 de janeiro de 2009 18:02

Respostas

  • Rafael

     

    segue um exemplo abaixo que pode lhe ser util

     

    lembre-se que algumas contas são desabilitadas por segurança, estas contas devem ser adicionados na condição para não serem habilitadas

     

     

     

    dtStart = TimeValue(Now())
    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.Open "Provider=ADsDSOObject;"
     
    Set objCommand = CreateObject("ADODB.Command")
    objCommand.ActiveConnection = objConnection
     
    objCommand.CommandText = "<LDAP://dc=sample,dc=corp>;(&(&(&(objectCategory=person)(objectSid=*)(userAccountControl=66050))));distinguishedName;subtree"
     
    Set objRecordSet = objCommand.Execute

    While Not objRecordSet.EOF
    user = objRecordSet.Fields ("distinguishedName")
     IF user <> "CN=SUPPORT_388945a0,CN=Users,DC=sample,DC=corp" then
     Set objUser = GetObject ("LDAP://" & user )
     intUAC = objUser.Get("userAccountControl")
     objUser.Put "userAccountControl", 66048
     objUser.SetInfo
     End IF
    objRecordSet.MoveNext
    Wend

    objConnection.Close

     

     

    terça-feira, 13 de janeiro de 2009 12:29