none
SCRIPT PARA INSERIR NOVOS SERVIDORES IMAP E SMTP NO MICROSOFT OUTLOOK 2007

    Question

  • Senhores

    Tenho analisado alguns scripts pela internet, porém não encontrei nenhum que se adapte ao cenário que temos aqui na empresa. Os computadores possuem Microsoft Outlook 2007 e precisaremos trocar os IPs do servidor de entrada (IMAP), servidor de saída (SMTP) de todas as contas de email das estações da rede. Abaixo mostro um script que rodamos nas estações porém alterou somente o servidor de saída para o IP novo. Caso conheçam algum script, GPO ou até mesmo saibam a falha neste agradeço o contato.

    Jaderson Gomes

    "
    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 = "."
    strIMAPServer = "192.168.10.205"
    strSMTPServer = "192.168.10.205"

    IMAPmax = len(strIMAPServer)
    For intLoop = 1 to IMAPmax step 1
        asciiIMAP = asc(mid(strIMAPServer, intLoop, 1))
        if newasciiIMAP = "" Then
            newasciiIMAP = asciiIMAP
            'newAsciiInitials = asciiIMAP
        else
            newasciiIMAP = newasciiIMAP & "," & "00" & "," & asciiIMAP
        end if  

    Next

    newasciiIMAP = newasciiIMAP & "," & "00" & "," & "00" & "," & "00"
    updateIMAP = Split(newasciiIMAP,",")

    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

    "

    Thursday, January 06, 2011 10:15 PM