none
Alterar POP e SMTP via policie RRS feed

  • Pergunta

  • Bom dia

     

    Amigos preciso alterar o pop e o smtp de quase 700 maquinas e tambem setar as portas do email (SSL 993, TSL 587)

    Será que alguem tem alguma ideial de como fazer isto via Script?

     

    Obrigado.

    sexta-feira, 30 de abril de 2010 10:03

Respostas

  • Fiz esse script para fazer isso, rode esse script via GPO nas configurações de computador.

    Antes de colocar em produção teste em uma ou algumas máquinas manualmente e se tiver algum valor errado ou alguma coisa que esteja diferente do que vc precisa poste.

    Salve como vbs.

    Set nw = CreateObject("WScript.Network")

    Const HKEY_CURRENT_USER = &H80000001
    Const HKEY_LOCAL_MACHINE = &H80000002
    Const HKEY_USERS = &H80000003

    strOutLookPath = "Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\9375CFF0413111d3B88A00104B2A6676\00000003"
    strMachineName = "."
    strPopServer = "pop3.teste.com.br"
    strSMTPServer = "smtp.teste.com.br"

    popmax = len(strPopServer)
    For intLoop = 1 to popmax step 1
        asciiPop = asc(mid(strPopServer, intLoop, 1))
        if newasciiPop = "" Then
            newasciiPop = asciiPop
            'newAsciiInitials = asciiPop
        else
            newasciiPop = newasciiPop & "," & "00" & "," & asciiPop
        end if   

    Next

    newasciiPop = newasciiPop & "," & "00" & "," & "00" & "," & "00"
    updatePop = Split(newasciiPop,",")

    SMTPmax = len(strSMTPServer)
    For intLoop = 1 to SMTPmax step 1
        asciiSMTP = asc(mid(strSMTPServer, intLoop, 1))
        if newasciiSMTP = "" Then
            newasciiSMTP = asciiSMTP
            'newAsciiInitials = asciiSMTP
        else
            newasciiSMTP = newasciiSMTP & "," & "00" & "," & asciiSMTP
        end if   

    Next

    newasciiSMTP = newasciiSMTP & "," & "00" & "," & "00" & "," & "00"
    updateSMTP = Split(newasciiSMTP,",")

    strMoniker = "winMgmts:\\" & strMachineName & "\root\default:StdRegProv"
    Set oReg = GetObject(strMoniker)
    oReg.EnumKey HKEY_USERS, "", arrSubKeys

    For Each subkey In arrSubKeys
        strpath = subkey & "\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\9375CFF0413111d3B88A00104B2A6676"
        oReg.EnumKey HKEY_USERS, strpath, arrSubKeys2
        If Not IsNull (arrSubKeys2) Then
           For Each subkey2 In arrSubKeys2
              strPath = subkey & "\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\9375CFF0413111d3B88A00104B2A6676\" & subkey2
              'Wscript.Echo strPath
              returnEmail = oReg.GetBinaryValue(HKEY_USERS,strpath,"Email",arrEmailBinary)

              If Not IsNull (arrEmailBinary) Then
      PopServerSet = oReg.SetBinaryValue(HKEY_USERS, strPath, "POP3 Server", updatePop)
      SMTPServerSet = oReg.SetBinaryValue(HKEY_USERS, strPath, "SMTP Server", updateSMTP)
      POPSSLSet = oReg.SetDWORDValue(HKEY_USERS,strPath,"POP3 Use SSL",1)
      POPPortSet = oReg.SetDWORDValue(HKEY_USERS,strPath,"POP3 Port",993)
      SMTPConSet = oReg.SetDWORDValue(HKEY_USERS,strPath,"SMTP Secure Connection",2)
      SMTPSSLSet = oReg.SetDWORDValue(HKEY_USERS,strPath,"SMTP Use SSL",1)
      SMTPPortSet = oReg.SetDWORDValue(HKEY_USERS,strPath,"SMTP Port",587)
              End If


           Next
        End If 
       
    Next

    Qualquer dúvida poste e se for útil vote.

    Abraço.

     

     

     


    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    domingo, 2 de maio de 2010 15:41

Todas as Respostas

  • Qual a versão do Outlook?
    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    sexta-feira, 30 de abril de 2010 12:44
  • Microsoft Outlook 2003.

     

    Estamos mudando o servidor de emails e preciso alterar para todos os usuarios.....

     

    Valeu

    sexta-feira, 30 de abril de 2010 15:20
  • Fiz esse script para fazer isso, rode esse script via GPO nas configurações de computador.

    Antes de colocar em produção teste em uma ou algumas máquinas manualmente e se tiver algum valor errado ou alguma coisa que esteja diferente do que vc precisa poste.

    Salve como vbs.

    Set nw = CreateObject("WScript.Network")

    Const HKEY_CURRENT_USER = &H80000001
    Const HKEY_LOCAL_MACHINE = &H80000002
    Const HKEY_USERS = &H80000003

    strOutLookPath = "Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\9375CFF0413111d3B88A00104B2A6676\00000003"
    strMachineName = "."
    strPopServer = "pop3.teste.com.br"
    strSMTPServer = "smtp.teste.com.br"

    popmax = len(strPopServer)
    For intLoop = 1 to popmax step 1
        asciiPop = asc(mid(strPopServer, intLoop, 1))
        if newasciiPop = "" Then
            newasciiPop = asciiPop
            'newAsciiInitials = asciiPop
        else
            newasciiPop = newasciiPop & "," & "00" & "," & asciiPop
        end if   

    Next

    newasciiPop = newasciiPop & "," & "00" & "," & "00" & "," & "00"
    updatePop = Split(newasciiPop,",")

    SMTPmax = len(strSMTPServer)
    For intLoop = 1 to SMTPmax step 1
        asciiSMTP = asc(mid(strSMTPServer, intLoop, 1))
        if newasciiSMTP = "" Then
            newasciiSMTP = asciiSMTP
            'newAsciiInitials = asciiSMTP
        else
            newasciiSMTP = newasciiSMTP & "," & "00" & "," & asciiSMTP
        end if   

    Next

    newasciiSMTP = newasciiSMTP & "," & "00" & "," & "00" & "," & "00"
    updateSMTP = Split(newasciiSMTP,",")

    strMoniker = "winMgmts:\\" & strMachineName & "\root\default:StdRegProv"
    Set oReg = GetObject(strMoniker)
    oReg.EnumKey HKEY_USERS, "", arrSubKeys

    For Each subkey In arrSubKeys
        strpath = subkey & "\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\9375CFF0413111d3B88A00104B2A6676"
        oReg.EnumKey HKEY_USERS, strpath, arrSubKeys2
        If Not IsNull (arrSubKeys2) Then
           For Each subkey2 In arrSubKeys2
              strPath = subkey & "\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\9375CFF0413111d3B88A00104B2A6676\" & subkey2
              'Wscript.Echo strPath
              returnEmail = oReg.GetBinaryValue(HKEY_USERS,strpath,"Email",arrEmailBinary)

              If Not IsNull (arrEmailBinary) Then
      PopServerSet = oReg.SetBinaryValue(HKEY_USERS, strPath, "POP3 Server", updatePop)
      SMTPServerSet = oReg.SetBinaryValue(HKEY_USERS, strPath, "SMTP Server", updateSMTP)
      POPSSLSet = oReg.SetDWORDValue(HKEY_USERS,strPath,"POP3 Use SSL",1)
      POPPortSet = oReg.SetDWORDValue(HKEY_USERS,strPath,"POP3 Port",993)
      SMTPConSet = oReg.SetDWORDValue(HKEY_USERS,strPath,"SMTP Secure Connection",2)
      SMTPSSLSet = oReg.SetDWORDValue(HKEY_USERS,strPath,"SMTP Use SSL",1)
      SMTPPortSet = oReg.SetDWORDValue(HKEY_USERS,strPath,"SMTP Port",587)
              End If


           Next
        End If 
       
    Next

    Qualquer dúvida poste e se for útil vote.

    Abraço.

     

     

     


    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    domingo, 2 de maio de 2010 15:41
  • Funcionou o script?

    Qualquer dúvida poste.

    Abraço.


    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    terça-feira, 11 de maio de 2010 14:43
  • Gabriel, boa tarde. Sou leigo no assunto (VBS e GPO) e estou passando por um problema similar.

    Atualmente utilizo exchange em meu parque e vamos alterar o servidor de e-mail, consequentemente, precisamos alterar de forma automática as configurações  de centenas de usuários no outlook (SMTP e POP).

    Temos Outlook 2007, 2010, 2013 e 2016.

    Como posso criar GPO para aplicar essa mudança de servidor?

    Muito obrigado.

     
    domingo, 12 de março de 2017 15:05