Script p/ desabilitar POP3 dos Usuários.

Todas as Respostas

• 

  

  0

  Entrar para Votar

  Segue o script que você precisa, ele irá ler todo o seu AD e comparar com um arquivo TXT que você deve criar no mesmo diretório onde o script será executado este TXT deve se chamar usuarios.txt e nele deve estar o login (o login e não o nome) de todos os usuários que serão alterados.

   

  Log_Saida.txt : Arquivo será criado automaticamente com o log da operação, irá dizer quais usuários foram alterados.

   

  Usuarios.txt : Arquivo que você precisa criar com a lista de todos os logins que serão aterados.

  Ex.:

  usuario1

  usuario2

  usuario3

  usuario3

   

  Code Snippet

  Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
  Set OutPutFile = FileSystem.CreateTextFile("Log_Saida.txt", True)

  Set oContainer = GetObject("LDAP://DC=educacao,DC=intragov")

  EnumerateUsers oContainer

  Sub EnumerateUsers(oCont)
       Dim oUser, bUser
       For Each oUser In oCont
            bUser = False
            Select Case LCase(oUser.Class)
                 Case "user"
                 bUser = True
                                     
    StrUser_AD = oUser.sAMAccountName
    StrCN = oUser.distinguishedName

    '### Lê o arquivo com os nomes dos usuários ###
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile("usuarios.txt", 1)

    Do Until objFile.AtEndOfStream

     StrUser = objFile.Readline
      
         If StrUser = StrUser_AD Then
       
       qstring = "LDAP://" & StrCN
       set objUser = GetObject(qstring)
       objUser.PutEx 2, "protocolSettings",ARRAY("POP3§0§1§4§ISO-8859-1§0§§§","IMAP4§0§1§4§ISO-8859-1§0§1§0§0")
       objUser.setinfo
       OutPutFile.WriteLine StrUser_AD & " - Modificado com sucesso."
          
             End if
       Loop
   
                 Case "organizationalunit", "container"
                      EnumerateUsers oUser
                 End Select
            If bUser Then
                 OutPutFile.WriteLine
            End If
       Next
  End Sub

  OutPutFile.Close
  Set FileSystem = Nothing
  Set objFSO = Nothing
  Set oContainer = Nothing
  WScript.echo "Finalizado"
  WScript.Quit(0)

   

   

  • Marcado como Resposta Fábio JrModerator segunda-feira, 12 de dezembro de 2011 15:38

  terça-feira, 25 de setembro de 2007 14:48

  Responder

  |

  Citação
• 

  

  0

  Entrar para Votar

   

  OFF: Tu trampa na prodesp?

  quarta-feira, 26 de setembro de 2007 23:28

  Responder

  |

  Citação