none
Verificar Se O Usuário possui um email pessoal no exchange 2003 RRS feed

  • Pergunta

  • Bom dia...
    Estou precisando executar uma tarefa para cada usuário da rede que administro, mas isso só deve acontecer para os usuário que possuem um email pessoal no Exchange 2003. O domínio da rede é 2003 SP2. Alguém conhece um script que possa fazer isso? (Acessar o AD e verificar se o usuário possui um email pessoal). Ou pelo menos dar alguma sugestão. Desde já agradeço a qualquer ajuda.
    sexta-feira, 27 de fevereiro de 2009 12:14

Respostas

  • Olá,

    Quando você fala email pessoal, seria o email na guia Geral da propriedade do usuário no AD??

    Se sim, segue um script que mostra na tela se tem email, se não tem mostra mensagem dizendo que não tem.

     

    Option Explicit
    
    Dim objDSE, strDefaultDN, strDN, objContainer, objChild,objUser
    
    Set objDSE = GetObject("LDAP://rootDSE")
    strDefaultDN = "CN=Users," & objDSE.Get("defaultNamingContext")
    
    strDN =     InputBox("Coloque a OU ou container" & _
        vbCrLf & "(Ex.: " & strDefaultDN & ")", , strDefaultDN)
    
    If strDN = "" Then WScript.Quit(1)       
    
    Set objContainer = GetObject("LDAP://" & strDN)
    
    objContainer.Filter = Array("user")
    
    For Each objChild In objContainer
        set objUser = GetObject("LDAP://" & objChild.Name & "," & strDN)
        if isEmpty(objuser.mail) = True Then
     wscript.echo "Usuário " & objUser.displayname & " nao possui email"
        Else
     wscript.echo objUser.displayname & " email: " & objuser.mail
        End if
    Next


    Salve como .vbs e execute.

    Poste os resultados.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    sexta-feira, 27 de fevereiro de 2009 14:49

Todas as Respostas

  • Olá,

    Quando você fala email pessoal, seria o email na guia Geral da propriedade do usuário no AD??

    Se sim, segue um script que mostra na tela se tem email, se não tem mostra mensagem dizendo que não tem.

     

    Option Explicit
    
    Dim objDSE, strDefaultDN, strDN, objContainer, objChild,objUser
    
    Set objDSE = GetObject("LDAP://rootDSE")
    strDefaultDN = "CN=Users," & objDSE.Get("defaultNamingContext")
    
    strDN =     InputBox("Coloque a OU ou container" & _
        vbCrLf & "(Ex.: " & strDefaultDN & ")", , strDefaultDN)
    
    If strDN = "" Then WScript.Quit(1)       
    
    Set objContainer = GetObject("LDAP://" & strDN)
    
    objContainer.Filter = Array("user")
    
    For Each objChild In objContainer
        set objUser = GetObject("LDAP://" & objChild.Name & "," & strDN)
        if isEmpty(objuser.mail) = True Then
     wscript.echo "Usuário " & objUser.displayname & " nao possui email"
        Else
     wscript.echo objUser.displayname & " email: " & objuser.mail
        End if
    Next


    Salve como .vbs e execute.

    Poste os resultados.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    sexta-feira, 27 de fevereiro de 2009 14:49
  • Olá,

    É isso mesmo que você precisava???

    Poste os resultados.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    segunda-feira, 2 de março de 2009 14:25