Usando a ferramenta de atualização do calendário do Exchange a alterações de horário de verão do endereço para Exchange Server

Sobre a ferramenta Exchange

Voltar para o início

Descrição de alto nível da ferramenta do Exchange

Voltar para o início

Versão 2 da ferramenta Exchange

• Desempenho em versão 2 é tão rápido como versão 1 duas vezes quando você executa a ferramenta no modo de atualização.
• Aperfeiçoada a interface do usuário.
• Vazamento de memória é fixa que computadores cliente necessário para ser reiniciado com freqüência.
• Algoritmo aprimorado é incluído para mapeamento de fusos horários extraídos para o fuso horário do sistema operacional.

Voltar para o início

Riscos e limitações de executar a ferramenta do Exchange

Voltar para o início

Opções para atualizar as caixas de correio

Voltar para o início

Como instalar a ferramenta do Exchange

• Msextmz.exe
• Msextmzcfg.exe
• Msextmz.ini
  
  Este arquivo é o arquivo .ini mestre que documenta todos os parâmetros usados por Msextmz.exe.
• Msextmzcfg.XML
  
  Este arquivo está o arquivo de mapeamento de fuso horário que mapeia o fuso horário Outlook, CDO e o Outlook Web Access para fusos horários sistema operacional.

Voltar para o início

Linguagens compatíveis com a ferramenta do Exchange

Voltar para o início

Versões do Exchange Server que são compatíveis com a ferramenta Exchange

• Microsoft Exchange Server 2007 Enterprise Edition
• Microsoft Exchange Server 2007
• Microsoft Exchange Server 2007 Standard Edition
• Microsoft Exchange Server 2003
• Microsoft Exchange Server 2003 Enterprise Edition
• Microsoft Exchange 2000 Server
• Microsoft Exchange Server 2003 Standard Edition
• Microsoft Exchange 2000 Server Enterprise Edition
• Microsoft Exchange 2000 Server Standard Edition

Voltar para o início

Sistemas operacionais compatíveis com a ferramenta do Exchange

• Microsoft Windows Server 2003
• Microsoft Windows XP
• Microsoft Windows 2000

Voltar para o início

O que fazer antes de executar a ferramenta do Exchange

Instalar atualizações

1. Instale a atualização de horário de verão do Windows em computadores cliente e servidor. Para obter mais informações sobre como atualizar um computador que está executando o software do sistema operacional Windows, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
   942763  (http://support.microsoft.com/kb/942763/ ) Atualização de cumulativa de fuso horário de dezembro de 2007 para os sistemas operacionais Microsoft Windows
2. Para o Exchange 2003 SP2, instale a atualização seguinte que é relevante para sua organização:
   • 911829  (http://support.microsoft.com/kb/911829/ ) Você receber uma mensagem de erro quando tentar executar as tarefas de edição ou você deve clicar para ativar o quadro de composição no Outlook Web Access
   • 924334  (http://support.microsoft.com/kb/924334/ ) O formulário compor mensagem pára de responder após instalar o Internet Explorer 7.0 e o controle S/MIME em um cliente Outlook Web Access no Exchange Server 2003
   Observação Essa etapa pode ser concluída ao mesmo tempo como etapa 1.

Verificar os requisitos de sistema

1. Clique em Iniciar , clique em Executar , digite regedit e, em seguida, clique em OK .
2. Expanda a seguinte subchave:
   HKEY_CURRENT_USER\Software\Microsoft\Exchange\client\options\
3. Clique em Opções e, em seguida, determinar se o valor PickLogonProfile existe. Se o valor PickLogonProfile existe e é definido como 1, defina o valor como 0. Para fazer isso, execute as seguintes etapas:
   1. Clique com o botão direito do mouse PickLogonProfile e, em seguida, clique em Modificar .
   2. Na caixa dados do valor , digite 0 e, em seguida, clique em OK .

Voltar para o início

Como configurar e executar Msextmz.exe manualmente

Configurar o arquivo Msextmz.ini

Especificar o modo de execução Msextmz.exe

• extração de fuso horário
  
  Nesse modo, Msextmz.exe extrai as informações de fuso horário de cada caixa de correio lendo um conjunto de propriedades MAPI.
  
  Msextmz.exe pode examinar compromissos recorrentes que são organizados pelo usuário em Calendário ?s usuário e, em seguida, tente determinar um fuso horário para o usuário. No entanto, essa opção é uso intensivo de recursos. Por padrão, portanto, essa opção não é habilitada. Para ativar essa opção, defina o parâmetro ReadCalendarTimezones no arquivo Msextmz.ini.
  
  Msextmz.exe registra as informações de fuso horário para cada usuário em um arquivo de saída que contém uma lista da caixa de correio DNs legados. Cada caixa de correio DN herdado tem os seguintes tipos de valores de fuso horário:
  • O Outlook Web Access Time Zone
  • Fuso de horário do CDO
  • Fuso de horário o Outlook
  • Fuso de horário reunião recorrente
  O formato do arquivo usa o seguinte formato:
  User_DN<\TAB >CDO_Time_Zone<\TAB>Outlook Web Access_Time_Zone<\TAB>Outlook_Time_Zone<\TAB >Recurring_Meeting_Time_Zone<\CRLF>
  Se Msextmz.exe não é possível extrair informações de fuso horário para qualquer um dos quatro tipos de zonas de tempo, a caixa de correio DN Herdado será registrado no arquivo de erro do.
  
  Para mapear o usuário para somente um fuso horário, você deve importar o arquivo de saída para o Microsoft Excel. No Excel, filtre a lista de usuários de acordo com dentre os fusos horários. O fuso horário que você usa depende do seu ambiente.
  
  Por exemplo, se a maioria dos usuários usar dispositivos BlackBerry, Exchange 5.5 Outlook Web Access, ou outras soluções baseadas em CDO, filtrar a lista por fuso horário do CDO. Se a maioria dos usuários usar Exchange Outlook Web Access, filtrar a lista pelo Outlook Web Access fusos. Se a maioria dos usuários não couberem em um desses cenários, filtre a lista por recorrente reunião fuso horário.
  
  Para executar a ferramenta no modo de extração de fuso horário, configure o arquivo .ini da seguinte maneira:
  • Deixe o CommandLine uncommented de parâmetro.
  • Defina o parâmetro arquivo_de_saída.
  • Defina o parâmetro ErrorFile.
  • Defina o parâmetro ServerDN.
  • Defina o parâmetro de perfil.
  • Defina o parâmetro arquivo de log.
  • Defina o parâmetro ExportTimezones como 1.
  • Comentário check-out do restante dos parâmetros no arquivo .ini.
• atualização
  
  Nesse modo, Msextmz.exe atualizará todas as caixas de correio especificadas em um arquivo de entrada. O arquivo de entrada deve estar no seguinte formato:
  User_DN<\TAB>Server_Friendly_Name<\TAB>OS_Time Zone_Registry_Key<\CRLF>
  Somente uma instância de Msextmz.exe pode ser executada em um cliente. No entanto, Msextmz.exe pode ser executado em vários clientes ao mesmo tempo.
  
  Para executar Msextmz.exe nesse modo, você deve configurar o arquivo Msextmz.ini da seguinte maneira:
  • Certifique-se que o parâmetro CommandLine é uncommented e aponta para o local correto do Tzmove.exe.
  • Defina o parâmetro arquivo_de_entrada.
  • Comentar o parâmetro arquivo_de_saída.
  • Defina o parâmetro ErrorFile.
  • Defina o parâmetro ServerDN.
  • Defina o parâmetro arquivo de log.
  • Defina o parâmetro LogDirectory.
  • Comentar o parâmetro ExportTimezones.
  • Retire os comentários restantes parâmetros.
  No modo de atualização, Msextmz.exe pode aceitar um arquivo de entrada que contém os usuários do Exchange diferente servidores. A configuração de .ini requer que você forneça o DN de um Exchange servidor. Nesse caso, você só precisará especificar um servidor DN do Exchange servidor na organização do Exchange.
  
  Para atualizar apenas compromissos recorrentes, configure o parâmetro CommandLine com o seguinte valor:
  tzmove.exe /q /onlyrecurring
  Para atualizar compromissos recorrentes ou single-instance, use o valor de linha de comando padrão.

Configurar permissões para Msextmz.exe

Voltar para o início

Script de "Caixa de correio de conceder permissão"

Voltar para o início

Como funciona o log no modo de atualização

Logs da ferramenta de actualização de dados de fuso horário

Erro ao arquivo

Arquivo de log

Voltar para o início

Como executar Msextmzcfg.exe

Permissões necessárias

• Administrador somente para exibição do Exchange
• Administrador local

Exemplo de processo para atualizar um servidor Exchange usando Msextmzcfg.exe

1. No computador cliente, crie um perfil do Outlook que faz logon em uma caixa de correio que reside no servidor do Exchange que você está tentando atualizar. Verifique se o perfil está no modo online e, em seguida, configurar este perfil para ser o perfil padrão.
   
   Observação O servidor Exchange deve oferecer suporte modo on-line.
2. Execute Msextmzcfg.exe para iniciar a ferramenta Exchange.
3. Na página um assistente a ferramenta de actualização de calendário do Exchange, preencha um dos seguintes procedimentos:
   
   Para extrair o fuso horário do todas as caixas de correio em um servidor do Exchange, execute estas etapas:
   1. Na caixa Server Name , digite o nome amigável ou o FQDN (nome de domínio totalmente qualificado) do servidor do Exchange. Se o nome amigável contiver um ".", use o nome NetBIOS em vez disso. Msextmzcfg.exe falhará se o servidor está em outra floresta do Active Directory.
   2. No Arquivo de saída de extração , digite o nome do arquivo que irá conter todas as informações de fuso horário da caixa de correio.
   3. Se você deseja extrair os fusos horários para reuniões recorrentes, clique para selecionar a caixa de seleção extrair fuso horário reunião recorrente .
      
      importante Se você usar esta configuração, o tempo de execução do modo de extração será ser aumentado significativamente. Por padrão, o extrair reunião recorrente fusos caixa de seleção está desmarcada.
   4. Clique na lista Nome de perfil do Outlook e, em seguida, clique no perfil criado na etapa 1.
   5. Clique em Avançar.
   
   
   Para ignorar a extração de fuso horário, execute estas etapas:
   1. Clique para selecionar a caixa de seleção Ignorar extração de fuso horário . Por padrão, a caixa de seleção Ignorar extração de fuso horário é desmarcada.
   2. No Arquivo de saída de extração , digite o nome de um arquivo de saída de uma extração de fuso horário anteriores executar.
   3. Na caixa Server Name , digite o nome amigável ou o FQDN do servidor do Exchange que foi usado para gerar o arquivo de saída que você especificou na etapa 3b.
   4. Clique em Avançar .
4. Depois que termina a extração de fuso horário, Msextmzcfg.exe analisa o arquivo de saída e tenta mapear o fuso horário de caixas de correio do usuário para o sistema operacional real fusos.
   
   Se não corresponder a qualquer fuso horário, você deve mapear manualmente o fuso horário na página fuso horário de mapa . Para fazer isso, clique no fuso horário Windows que coincide com o fuso do usuário na lista Fuso de horário do Windows e, em seguida, clique em Avançar .
5. Quando o processo de mapeamento estiver concluído, Msextmzcfg.exe categoriza os usuários para os seguintes grupos:
   • Usuários que têm apenas um fuso horário (por exemplo, usuários que têm o fuso horário CDO, Outlook Web Access, Outlook ou reunião recorrente) ou usuários que têm vários fusos horários que mapear para o mesmo fuso do sistema operacional
   • Usuários que têm vários fusos horários que mapear para fusos horários diferentes do sistema operacional
   • Usuários não informações de fuso horário
   Msextmzcfg.exe permite que você salvar a lista de usuários ? inexistentes ? e ? conflito ? em arquivos de texto separado. Para fazer isso, execute as seguintes etapas:
   1. Na área usuários com informações conflitantes do fuso horário , digite ConflictUsers.txt na caixa Arquivo de saída .
   2. Na área usuários sem informações de fuso horário , digite NonExistent.txt na caixa Arquivo de saída .
6. Na página configuração de atualização do calendário , forneça as informações necessárias para gerar os arquivos de entrada de lista do usuário, os arquivos .ini e os arquivos em lotes com o qual atualizar as caixas de correio. Para fazer isso, execute as seguintes etapas:
   1. Na lista Selecione o fuso horário que precisam ser atualizados , clique para selecionar a caixa de seleção para o fuso horário que você deseja atualizar.
   2. Na caixa Número de arquivos em lote , digite o número de lotes de usuários que você deseja gerar.
      
      Essas informações são útil se você deseja agilizar a atualização de tempo de execução. Você pode fazer isso dividir uma grande lista de usuários em lotes menores e, em seguida, executando várias instâncias do Msextmz.exe no modo de atualização. Fazer isso em computadores separados e ter cada instância do processo Msextmz.exe um lote de usuários separado.
      
      Observação Não é possível executar várias instâncias do Msextmz.exe no mesmo computador cliente.
   3. Na caixa caminho Tzmove.exe , digite o caminho da ferramenta de Outlook e seus parâmetros. Se você quiser atualizar apenas reuniões recorrentes, clique para selecionar a caixa de seleção apenas reuniões recorrente .
   4. No Post Mailbox atraso (segundos) caixa, digite o número de segundos pelo qual você deseja atrasar perfil criação entre atualizar as caixas de correio. Recomendamos que você use o valor padrão de 0 segundos.
   5. No Tempo por caixa de correio limite (minutos) , digite o número de minutos para o qual você deseja que a ferramenta do Outlook para aguardar antes que ele irá expirar. Recomendamos que você use o valor padrão de 15 minutos.
7. Clique em Concluir . Msextmzcfg.exe gera um subdiretório no diretório de execução atual. O nome da subpasta é o nome amigável do servidor do Exchange. A subpasta contém os seguintes arquivos:
   • MSExTmz _x .ini
     
     Este arquivo é o arquivo .ini é usado por Msextmz.exe para executar no modo de atualização. x é um espaço reservado para o número de lote.
   • Mailboxes_ x .txt
     
     Este arquivo é o arquivo de entrada de lista de usuário que é usado por Msextmzcfg.exe para executar no modo de atualização. x é um espaço reservado para o número de lote.
   • MSExTmz_ x .bat
     
     Este arquivo é o arquivo em lotes que executa o Msextmzcfg.exe na atualização modo contra os usuários que são especificadas no arquivo Mailboxes_ x .txt.
   • NonExistent.txt
     
     Este arquivo contém a lista de usuários que não têm informações de fuso horário em sua caixa de correio.
   • ConflictUsers.txt
     
     Este arquivo contém a lista de usuários que têm conflitos de fuso horário.
8. Localize o subdiretório é denominado após o servidor, abra o arquivo Mailboxes_x.txt no bloco de notas, remova quaisquer entradas da caixa de correio de recurso ou sistema e em seguida, salve o arquivo Mailboxes_x.txt.
9. Execute as seguintes etapas:
   1. Inicie o Outlook e, em seguida, verifique se que Outlook corretamente efetuar logon no servidor usando o perfil padrão e sem solicitar que você selecione um perfil.
   2. Verifique se há avisos são exibidos durante a inicialização do Outlook. Msextmz.exe não pode ser executado se houver avisos.
   3. Verifique se o seguinte arquivo não existem:
      %USERPROFILE%\Configurações Locais\Dados Data\Microsoft\Outlook\Extend.dat
      Se esse arquivo existir, renomeie-o.
   Atualizar as caixas de correio indo para o subdiretório é denominado após o servidor e executando os arquivos em lotes, uma a uma. Para executar arquivos em lotes com êxito, você deve usar uma conta que tenha direitos de Full Mailbox Access e Send As para as caixas de correio que você deseja atualizar.

Voltar para o início

O que fazer depois de executar a ferramenta do Exchange

Instalar atualizações

Voltar para o início

Problemas conhecidos

• reuniões recorrente que são criadas no Outlook Web Access não são atualizadas pela ferramenta do Exchange
  
  Se você instalar a actualização mencionada no artigo do Knowledge Base 926666 no servidor do Exchange antes de atualizar as caixas de correio, reuniões recorrentes criados no Outlook Web Access não são atualizadas pela ferramenta Exchange. Para resolver esse problema, remover atualização 926666, executar a ferramenta Exchange e, em seguida, reinstalar atualização 926666 no servidor do Exchange.
• o Exchange 2007 deve ser reiniciado depois de executar a ferramenta do Exchange
  
  Para o Exchange 2007 Outlook Web Access exibir itens de calendário corretamente depois de executar a ferramenta do Exchange, os serviços do Exchange devem ser reiniciados.
• não é possível instalar a ferramenta do Exchange
  
  A ferramenta Exchange não será instalada com êxito se uma das seguintes chaves do Registro existe:
  • HKEY_CLASS_ROOT\Outlook.Application.9
  • HKEY_CLASS_ROOT\Outlook.Application.10
  Neste caso, você receberá a seguinte mensagem de erro ao tentar instalar a ferramenta Exchange:
  Exchange Server calendário Rebasing Tool não pode ser instalado com esta versão do Microsoft Outlook.
  Para contornar esse problema, exclua essas chaves do Registro, instalar a ferramenta Exchange e, em seguida, restaurar as chaves do Registro.
• um fuso horário pode ser ambíguo
  
  Itens de calendário recorrente que são criados utilizando regras de 2006 da DST no fuso horário do Pacífico (PST) no Outlook 2003 ou em uma versão anterior do Outlook não são atualizados pela ferramenta do Outlook. Esse problema afeta Msextmz.exe porque Msextmz.exe executa a ferramenta do Outlook.
  
  Para contornar esse problema, altere o registro para remover o México fuso horário no computador que esteja executando o Msextmz.exe. Executar Msextmzcfg.exe no modo de atualização e restaure os México fusos horários no registro. Para fazer isso, siga estas etapas.
  
  importante Esta seção, método ou tarefa contém etapas que informam sobre como modificar o registro. No entanto, sérios problemas poderão ocorrer se você modificar o registro incorretamente. Por isso, certifique-se que você execute essas etapas cuidadosamente. Para proteção adicional, fazer backup do registro antes de modificá-lo. Em seguida, você pode restaurar o registro se ocorrer um problema. Para obter mais informações sobre como fazer backup e restaurar o registro, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
  322756  (http://support.microsoft.com/kb/322756/ ) Como fazer backup e restaurar o registro no Windows
  1. Fazer backup do Registro.
  2. Clique em Iniciar , clique em Executar , digite regedit e, em seguida, clique em OK .
  3. Expanda a seguinte subchave:
     HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones
  4. Clique com o botão direito do mouse Hora padrão e, em seguida, clique em Excluir .
  5. Na caixa de diálogo Confirmar exclusão da chave , clique em Sim .
  6. Clique México hora padrão 2 com o botão direito do mouse e, em seguida, clique em Excluir .
  7. Na caixa de diálogo Confirmar exclusão da chave , clique em Sim .
  8. Executar Msextmzcfg.exe no modo de atualização.
  9. Restaure o registro do backup que você criou na etapa 1.
  Para obter mais informações sobre como fazer backup e restaurar o registro, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
  256986  (http://support.microsoft.com/kb/256986/ ) Descrição do registro do Microsoft Windows
• há um limite no número de caixas de correio que podem ser processados por servidor
  
  No modo lista de usuário e no modo de extração de fuso horário, Msextmz.exe pode processar caixas de correio apenas 65.535 em um servidor. Se o servidor tiver mais de 65.535 caixas de correio, algumas caixas de correio não serão processadas.
• pode haver conflitos com as atribuições de sala de conferência
  
  Quando você usa a ferramenta do Outlook, as reuniões são deslocadas para a hora correta. No entanto, isso pode causar conflitos com conferência atribuições de espaço.
  
  Se você estiver executando o Exchange Server 2007, recomendamos que você defina o limite de conflito para o Atendedor de reserva recursos no Exchange 2007 para 3. Após a atualização todas as caixas de correio, os conflitos automaticamente será resolvidos.
  
  Se você estiver usando o agendamento direto ou o agente de aceitação automática, execute estas etapas para atualizar as caixas de correio de recurso:
  
  para agendamento direto
  
  Observação Os seguintes passos requerem que você baixe o hotfix mais recente para a ferramenta de actualização de dados de fuso horário para Microsoft Office Outlook (Tzmove.exe).
  1. Executar tzmove.exe (a ferramenta Outlook) com o / FORCEREBASESUPPRESSALLUPDATES parâmetro de linha de comando em relação a caixas de correio de recursos.
  2. Executar tzmove.exe no modo normal em todas as outras caixas de correio.
  Após a atualização for concluída, se usar o Outlook para fazer logon no andto de caixas de correio de recurso ler as atualizações que são enviadas na etapa 2, as atualizações de reunião aparecem como "provisórias" no calendário da caixa de correio do recurso. Se ninguém fizer logon em caixa de correio da recurso, as solicitações de reunião original que foram atualizadas na etapa 1 serão exibida como "Aceito" no calendário da caixa de correio do recurso.
  
  Para obter mais informações sobre FORCEREBASESUPPRESSALLUPDATES, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
  933146  (http://support.microsoft.com/kb/933146/ ) Descrição do pacote de hotfix para a ferramenta de actualização de dados de fuso horário para Microsoft Office Outlook
  
  
  para o Auto Accept Agent
  1. Verifique se o agente de aceitação automática está em execução no servidor.
  2. Instale a atualização de horário de verão no computador cliente.
  3. Executar tzmove.exe (a ferramenta Outlook) com o / FORCEREBASESUPPRESSALLUPDATES parâmetro de linha de comando contra caixas de correio recursos que tenham o agente de aceitação automática ativada.
  4. Verificar novamente se o agente de aceitação automática está sendo executado. Isso é importante para garantir que os usuários receberão o email de aceitação para as reuniões atualizados que elas organizadas.
  5. Executar tzmove.exe no modo normal em todas as outras caixas de correio.
• calendários de pasta pública
  
  A ferramenta Exchange não atualiza a pasta pública calendários. Para obter informações sobre como atualizar um calendário de pasta pública, consulte a documentação de ferramenta do Outlook.
• você deve usar "Executar como" na linha de comando
  
  Se você pretende executar Msextmz.exe usando ? Executar como ? na linha de comando, certifique-se que você também use ? executar como ? para configurar o Editor do Registro para definir o valor PickLogonProfile no registro.
• Msextmz.exe pode parar de responder
  
  Problemas com os servidores de catálogo global podem causar Msextmz.exe pare de responder. Se isso acontecer, siga estas etapas:
  1. Pare Msextmz.exe.
  2. Se o parâmetro arquivo de log foi definido no Msextmz.ini, descubra qual caixa de correio estava sendo processada. A Caixa de correio processamento entrada no arquivo de log fornece o DN de usuário para a caixa de correio que estava sendo processada quando Msextmz.exe parou de responder.
     
     Se o arquivo de log parâmetro não foi definido no Msextmz.ini, as informações de processamento de caixas de correio podem ser encontradas na janela do prompt de comando.
     
     Todas as caixas de correio do usuário que vêm após a caixa de correio estava sendo processada quando Msextmz.exe parou de responder não são processadas. Isso se aplica a caixas de correio ServerName_TimeZone_Input_File.txt que foi usado como o arquivo de entrada para essa execução.
  3. Crie um novo arquivo de entrada que contém o usuário DNs de caixas de correio que não foram processadas.
  4. Antes de executar Msextmz.exe novamente com esse novo arquivo de entrada, certifique-se que você processar o arquivo de erro que foi gerado pela execução anterior os usuários.
• você pode executar a ferramenta do Outlook e a ferramenta Exchange no mesmo ambiente
  
  Você pode executar a ferramenta do Outlook e a ferramenta do Exchange no mesmo ambiente. Se você executa a ferramenta Exchange em uma caixa de correio já foi atualizada pela ferramenta do Outlook, ou vice-versa, você terá sem efeitos colaterais. No entanto, se o administrador executa a ferramenta do Exchange, não há nenhuma necessidade de usuários executar a ferramenta de Outlook separadamente.
• os lembretes aparecem posteriormente que o esperado
  
  Lembretes de reunião não para caixas de correio que são atualizadas pela ferramenta Exchange não serão atualizadas se Outlook nunca tiver conectado à caixa de correio no modo online. Nessa situação, receberá lembretes uma hora depois que o esperado.
  
  Se Outlook nunca tiver conectado no modo online, você deve ajustar os lembretes incorretos para compromissos do calendário que a ferramenta de actualização de fuso horário encontrar. Se Outlook nunca tiver conectado no modo online, a pasta de pesquisa de lembretes não existe na caixa de correio. Portanto, a ferramenta não irá atualizar itens de email, contatos ou outros lembretes. Por exemplo, a ferramenta não irá atualizar um lembrete em um item de email para acompanhamento em um momento no futuro ou um lembrete em um item de tarefa que tenha um lembrete.
• tempo de execução pode ser longo
  
  Msextmz.exe é single-threaded. Portanto, ele pode levar muitos horas para executar a ferramenta em várias caixas de correio.
  
  Para referência, TI da Microsoft pôde atualizar aproximadamente caixas de 53,000 correio em 16 horas usando nove clientes. Isso equivale a uma taxa de atualização de 6.13 caixas de correio por minuto para cada cliente.
  
  O número de convidados em uma solicitação de reunião não deve afetar o tempo de execução do modo de atualização. Isso ocorre porque da perspectiva do cliente, enviar uma atualização de reunião para um destinatário leva o mesmo tempo como enviar uma atualização de reunião para destinatários de cem.
  
  O número de convidados afeta o número de cópias da atualização de reunião. No entanto, que é um problema de fluxo de email, e não de tempo de execução.
• o log de eventos pode ficar sem espaço depois de atualizar várias caixas de correio
  
  Tzmove.exe gera um evento informativo que inclui a fonte TZMOVE EventID 32 para cada atualização bem-sucedida. Muitos eventos podem causar o log de aplicativo para exceder o espaço alocado no disco. No modo de atualização, Msextmz.exe depende esses eventos para determinar a execução bem-sucedida de Tzmove.exe. Se Msextmz.exe não conseguir localizar o evento Tzmove.exe correspondente que está associado com a caixa de correio Msextmz.exe está tentando atualizar, Msextmz.exe pressupõe que a atualização não teve êxito. Portanto Msextmz.exe registra a caixa de correio DN no arquivo error.txt. Para evitar esse problema, recomendamos que você definir o tamanho do log de eventos como máximo e que seja substituindo.
• ? não é possível instalar porque versões anteriores do ? ferramenta de actualização de calendário do Microsoft Exchange ? foram detectadas. Desinstale-los e execute a instalação novamente. ?
  
  Se você tiver instalado a ferramenta de actualização de calendário do Exchange versão 1.0, você deve desinstalar versão 1.0 antes de instalar a versão 2.0. Versão 1.0 foi distribuída como um programa executável auto-extraível que continha dois pacotes MSI: Msextmz.msi e Msextmzcfg.msi. Você deve desinstalar os dois pacotes antes de instalar a versão 2.0. Se você ainda tiver problemas ao instalar a versão 2.0, tente desinstalar e reinstalar a versão 1.0 usando pacotes *.msi em vez de usar a ferramenta Adicionar ou remover programas. Em seguida, reinicie o computador e instalar a versão 2.0. Se tudo o mais falhar, diretamente extrair os binários de pacotes *.msi.

Mensagens de erro e resoluções

• Não é possível localizar caixa de correio timezone:Error 0 x 80004005
  Essa mensagem de erro pode ser causada por qualquer um dos seguintes problemas:
  • A ferramenta não pôde localizar quaisquer valores de fuso horário na caixa de correio do usuário específico. Para resolver esse problema, tente adicionar ? ReadCalendarTimeZones = 1 ? (sem as aspas) para o arquivo Msextmz.ini para forçar a ferramenta para examinar itens de calendário recorrente para informações de fuso horário. Você pode criar um novo arquivo de entrada usando os DNs do log de erro que você recebeu da última execução.
  • Você está fazendo referência Tzmove.exe do diretório errado. Para resolver esse problema, extraia o arquivo baixado instalação para a pasta onde Msextmz reside ou atualizar Msextmz.ini para incluir um caminho completo para onde Tzmove.exe está instalado na estação de trabalho que você está usando.
    
    Observação Quando você baixar a ferramenta de actualização de dados fuso horário para Microsoft Office Outlook, o arquivo Tzmove.exe é o instalador da ferramenta real. Referência o instalador causará erros quando você executa Msextmz.
  • A conta que você está usando para executar Msextmz não tem permissões de caixa de correio completa e não foi recebido as permissões corretas Exchange. Para resolver esse problema, execute o script ? conceder permissão de caixa de correio ? de um computador com Exchange Server.
• Não é possível processar caixa de correio /O = CONTOSO / OU = FIRST ADMINISTRATIVE GROUP / CN = RECIPIENTS / CN = TESTMB01 - 0 x 80004005
  Cuidadosamente, examine o legacyExchangeDN e faça as correções necessárias. Para certificar-se que o valor é preciso, use ADSIEdit para copiar e colar o valor.
• Caixa de correio não é possível abrir tabela para servidor /O = CompanyRoot / OU = IT / cn = Configuration/cn = servidores/cn = EXCH01. Erro 80040115
  Este é um erro RPC. Cuidadosamente examine o legacyExchangeDN e faça as correções necessárias.
  Selecione o servidor válido
  Precisar o nome distinto (DN) do servidor. O DN deve ser semelhante o DN seguinte:
  ServerDN: / O = CompanyRoot/OU = IT / cn = Configuration/cn = servidores/cn = EXCH01
• O aplicativo não inicializou corretamente (0xc0000135). Clique em OK para encerrar o aplicativo
  Essa mensagem de erro ocorre porque o .NET Framework 2.0 não está instalado.
• HrTestMailboxAccess: não é possível caixa de correio abrir - 0x8004011D.
  Se você receber essa mensagem de erro durante a operação de atualização, a conta que você está usando não tem acesso completo para a caixa de correio. A conta deve ter permissões Full Mailbox Access para todas as caixas de correio para a ferramenta poder atualizar as caixas de correio.
  
  Verifique se que as permissões corretas foram concedidas usando o método descrito na seção "Configurar permissões para Msextmz.exe".

Voltar para o início

Script de "Caixa de correio de conceder permissão"

Option Explicit
' For FileSystemObject
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Const TristateTrue = -1
Const TristateUseDefault = -2
Const TristateFalse = 0

'Permission Type: Allow or Deny
Const ADS_ACETYPE_ACCESS_ALLOWED = &H0
Const ADS_ACETYPE_ACCESS_DENIED = &H1
Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5
Const ADS_ACETYPE_ACCESS_DENIED_OBJECT = &H6

Const ADS_ACEFLAG_INHERIT_ACE = &H2
Const ADS_ACEFLAG_NO_PROPAGATE_INHERIT_ACE = &H4
Const ADS_ACEFLAG_INHERIT_ONLY_ACE = &H8
Const ADS_ACEFLAG_INHERITED_ACE = &H10
Const ADS_ACEFLAG_VALID_INHERIT_FLAGS = &H1f
Const ADS_ACEFLAG_SUCCESSFUL_ACCESS = &H40
Const ADS_ACEFLAG_FAILED_ACCESS = &H80

'Declare ADSI constants
Const ADS_SCOPE_SUBTREE = 2
Const ADS_OPTION_SECURITY_MASK = 3
Const ADS_OPTION_REFERRALS	= 1
Const ADS_SECURITY_INFO_DACL = 4
Const ADS_CHASE_REFERRALS_NEVER = &h00 
Const ADS_CHASE_REFERRALS_SUBORDINATE = &h20 
Const ADS_CHASE_REFERRALS_EXTERNAL = &h40

'Microsoft Exchange 
Const EX_MB_SEND_AS_ACCESSMASK  = &H00100
Const EX_FULLMAILBOX_ACCESSMASK = 1
Const EX_MB_SEND_AS_GUID = "{AB721A54-1E2F-11D0-9819-00AA0040529B}"

'Application Parameter Index
Const ARG_INDEX_MODE = 0
Const ARG_INDEX_USERNAME = 1
Const ARG_INDEX_FILENAME = 2
Const MIN_ARG = 1

Const MODE_INVALID = -1 
Const MODE_ADD = 0
Const MODE_REMOVE = 1

Const ADD = "-ADD"
Const REMOVE = "-REMOVE"

'Application Const String
Const EMPTYSTRING = ""
Const ERROR_FILENAME = "GrantMailboxPermission.err"
Const OUTPUT_FILENAME = "GrantMailboxPermission.log"
Dim OUTPUT_DELIMITER
OUTPUT_DELIMITER = vbTab

'Logging file
Dim objFSO
Dim objfileError
Dim objfileOutput
Dim objfileImport
Dim objconn
Dim objCommand
Dim rootDSE
Dim sDomainContainer
Dim sUserLDAPPath
Dim objUser
Dim objSDNTsecurity
Dim objDACLNT
Dim objDACLEX
Dim objSDMailbox
Dim fFMA
Dim fSendAs
Dim AccessTypeForFMA
Dim AccessTypeForSendAS
Dim fAddedFMA
Dim fAddedSendAs
Dim fRemovedFMA
Dim fRemovedSendAs
Dim sArraySplit
Dim sOneRow
Dim sGrantedUser
Dim dArgCount
Dim cScriptMode
Dim dArgExpected
Dim fOneError

On Error Resume Next
'Parameter Checking
dArgCount = Wscript.Arguments.Count
If (dArgCount < MIN_ARG) Then
	DisplaySyntax
End If

cScriptMode = MODE_INVALID
Select Case UCase(WScript.Arguments(ARG_INDEX_MODE))
	Case ADD
		cScriptMode = MODE_ADD
		dArgExpected = ARG_INDEX_FILENAME + 1
	Case REMOVE
		cScriptMode = MODE_REMOVE
		dArgExpected = ARG_INDEX_MODE + 1
	Case Else
		cScriptMode = MODE_INVALID
End Select

If (cScriptMode = MODE_INVALID Or dArgCount <> dArgExpected) Then
	DisplaySyntax
End If

If (cScriptMode = MODE_ADD) Then
	sGrantedUser = WScript.Arguments(ARG_INDEX_USERNAME)
	If (IsValidUserName(sGrantedUser) = False) Then
		DisplaySyntax
	End If
End If

CreateImportExportFiles

If (cScriptMode = MODE_ADD) Then
	err.Clear
	
	'Prepare LDAP connection
	Set objconn = CreateObject("ADODB.Connection")
	Set objCommand = CreateObject("ADODB.Command")
	objconn.Provider = "ADSDSOObject"
	objconn.Open "ADs Provider"
	If (err.number <> 0) Then
		WScript.StdOut.WriteLine("Failed to bind to Active Directory server, error:" & err.Description)
		objfileError.WriteLine("Failed to bind to Active Directory server, error:" & err.Description)
		WScript.Quit
	End If
		
	Set rootDSE = GetObject("LDAP://rootDSE")
	sDomainContainer = rootDSE.Get("defaultNamingContext")
	If (err.number <> 0) Then
		WScript.StdOut.WriteLine("Failed to find a Domain Container:" & err.Description)
		objfileError.WriteLine("Failed to find a Domain Container:" & err.Description)
		WScript.Quit
	End If
		
	Set objCommand.ActiveConnection = objconn

	Do While objfileImport.AtEndOfStream <> True
		fOneError = False
		sUserLDAPPath = EMPTYSTRING
		err.Clear

		sOneRow = Trim(objfileImport.ReadLine)
		If sOneRow <> EMPTYSTRING Then
		
		    sUserLDAPPath = GetLDAPPathFromLegacyDN(sOneRow)
		    If (err.number <> 0) Then
			    objfileError.WriteLine("Failed to get user's LDAP path from " & sOneRow)
			    fOneError = True
			    err.Clear
		    End If

		    If (fOneError = False) Then
			    Set objUser = GetObject(sUserLDAPPath)
			    If (err.number <> 0) Then
				    objfileError.WriteLine("Failed to get user object from " & sUserLDAPPath)
				    objfileError.WriteLine("Error: " & err.Description)
				    fOneError = True
				    err.Clear
			    End If
		    End If
    	
		    If (fOneError = False) Then
			    Set objSDMailBox = objUser.MailboxRights
			    Set objDACLEX = objSDMailbox.DiscretionaryAcl
			    Set objSDNTsecurity = objUser.ntSecurityDescriptor
			    Set objDACLNT = objSDNTsecurity.DiscretionaryAcl
			    If (err.number <> 0) Then
				    objfileError.WriteLine("Failed to get DACL of " & sUserLDAPPath)
				    objfileError.WriteLine("Error: " & err.Description)
				    fOneError = True
				    err.Clear
			    End If
		    End If

		    ' Check Full Mailbox Access and Send As permission
		    fFMA = False
		    fSendAs = False
		    AccessTypeForFMA = ADS_ACETYPE_ACCESS_ALLOWED
		    AccessTypeForSendAS = ADS_ACETYPE_ACCESS_ALLOWED

		    If (fOneError = False) Then
			    CheckFullMailboxAccess objDACLEX, sGrantedUser, fFMA, AccessTypeForFMA
			    CheckSendAs objDACLNT, sGrantedUser, fSendAs, AccessTypeForSendAS
			    If (err.number <> 0) Then
				    objfileError.WriteLine("Failed to Check permission of " & sUserLDAPPath)
				    objfileError.WriteLine("Error: " & err.Description)
				    fOneError = True
				    err.Clear
			    End If
		    End If

		    'If we don't have either SendAS or FMA, we're going to add these permission
		    If ( (AccessTypeForFMA = ADS_ACETYPE_ACCESS_DENIED) Or (AccessTypeForSendAs = ADS_ACETYPE_ACCESS_DENIED_OBJECT) ) Then
			    'Deny access already granted, won't add permission to this user
			    objfileError.WriteLine("Deny permission already added: " & sUserLDAPPath)
			    fOneError = True
		    End If
    		
		    If ( fOneError = False And ((fFMA = False) Or (fSendAs = False)) ) Then
			    fAddedFMA = False
			    fAddedSendAs = False
    			
			    If (fFMA = False) Then
				    'Add FMA permission
				    err.Clear
				    AddAce objDACLEX, sGrantedUser, EX_FULLMAILBOX_ACCESSMASK, ADS_ACETYPE_ACCESS_ALLOWED, ADS_ACEFLAG_INHERIT_ACE, 0,0,0
				    objSDMailbox.DiscretionaryAcl = objDACLEX
				    objUser.MailboxRights = Array(objSDMailbox)
				    If ( err.number <> 0 ) Then
					    objfileError.WriteLine("Failed to add FullMailbox Access: " & sUserLDAPPath)
					    objfileError.WriteLine("Error: " & err.Description)
					    fOneError = True
					    fAddedFMA = False
					    err.Clear
				    Else
					    fAddedFMA = True
				    End If
			    End If
    			
			    If (fSendAs = False) Then
				    'Add SendAs permission
				    err.Clear
				    AddAce objDACLNT, sGrantedUser, EX_MB_SEND_AS_ACCESSMASK, ADS_ACETYPE_ACCESS_ALLOWED_OBJECT, 0,1, EX_MB_SEND_AS_GUID, 0
				    objSDNTsecurity.DiscretionaryAcl = objDACLNT
				    objUser.Put "ntSecurityDescriptor", Array( objSDNTsecurity )
				    objUser.SetOption ADS_OPTION_SECURITY_MASK, ADS_SECURITY_INFO_DACL
				    If ( err.number <> 0 ) Then
					    objfileError.WriteLine("Failed to add SendAs permission: " & sUserLDAPPath)
					    objfileError.WriteLine("Error: " & err.Description)
					    fOneError = True
					    fAddedSendAs = False
					    err.Clear
				    Else
					    fAddedSendAs = True
				    End If
			    End If

			    If (fOneError = False ) Then 
				    objUser.SetInfo
				    If (err.number <> 0) Then
					    objfileError.WriteLine("Failed to update user: " & sUserLDAPPath)
					    objfileError.WriteLine("Error: " & err.Description)
					    fOneError = True
					    err.Clear		
				    Else
					    'Update Logging
					    objfileOutput.WriteLine(sUserLDAPPath & OUTPUT_DELIMITER & fAddedFMA & OUTPUT_DELIMITER & fAddedSendAs)		
				    End If
			    End If
		    End If

		    Set objUser = Nothing
		    Set objSDNTsecurity = Nothing
		    Set objDACLNT = Nothing
		    Set objDACLEX = Nothing
		    Set objSDMailBox = Nothing

		    If (fOneError = True) Then
			    WScript.StdOut.Write("!")
		    Else
			    WScript.StdOut.Write(".")
		    End If
        End If
	Loop

Set rootDSE = Nothing
Set objCommand = Nothing
Set objconn = Nothing

End If

If (cScriptMode = MODE_REMOVE) Then
	'Retreive the granted user from the first line of import file
	sGrantedUser = objfileImport.ReadLine
	If (IsValidUserName(sGrantedUser) = False) Then
		WScript.StdOut.WriteLine("Invalid User in import file. please check import file..")
		objfileError.WriteLine("Invalid User in import file. please check import file..")
		WScript.Quit
	End If
	
	Do While objfileImport.AtEndOfStream <> True
		fOneError = False
		sUserLDAPPath = EMPTYSTRING
		fAddedFMA = False
		fAddedSendAs = False
		fRemovedFMA = False
		fRemovedSendAs = False
		err.Clear

		sOneRow = objfileImport.ReadLine
		sArraySplit = Split(sOneRow, OUTPUT_DELIMITER)

		'First column is Ldap path
		sUserLDAPPath = sArraySplit(0)
		'Second column is FullMailbox Permission
		fAddedFMA = sArraySplit(1)
		'Third column is SendAs
		fAddedSendAs = sArraySplit(2)

		Set objUser = GetObject(sUserLDAPPath)
		If (err.number <> 0) Then
			objfileError.WriteLine("Failed to get user object from " & sUserLDAPPath)
			objfileError.WriteLine("Error: " & err.Description)
			fOneError = True
			err.Clear
		End If
		
		If ((fOneError = False) And (fAddedFMA = "True")) Then		
			Set objSDMailBox = objUser.MailboxRights
			Set objDACLEX = objSDMailbox.DiscretionaryAcl
			fRemovedFMA = RemoveFullMailboxAccess(objDACLEX, sGrantedUser)
			If (err.number <> 0) Then
				objfileError.WriteLine("Failed to Remove Full MailboxAccess from " & sUserLDAPPath)
				objfileError.WriteLine("Error: " & err.Description)
				fOneError = True
				err.Clear
			End If
			
			If (fRemovedFMA = False) Then
				objfileError.WriteLine("Couldn't find Full mailbox access permission on " & sUserLDAPPath)
			End If
			
			If ((fOneError = False) And (fRemovedFMA = True)) Then
				objSDMailbox.DiscretionaryAcl = objDACLEX
				objUser.MailboxRights = Array(objSDMailbox)
			End If
		End If

		If ((fOneError = False) And (fAddedSendAs = "True")) Then		
			Set objSDNTsecurity = objUser.ntSecurityDescriptor
			Set objDACLNT = objSDNTsecurity.DiscretionaryAcl

			fRemovedSendAs = RemoveSendAs(objDACLNT, sGrantedUser)
			If (err.number <> 0) Then
				objfileError.WriteLine("Failed to Remove SendAs from " & sUserLDAPPath)
				objfileError.WriteLine("Error: " & err.Description)
				fOneError = True
				err.Clear
			End If

			If (fRemovedSendAs = False) Then
				objfileError.WriteLine("Couldn't find SendAs permission on " & sUserLDAPPath)
			End If
			
			If ((fOneError = False) And (fRemovedSendAs = True)) Then
				objSDNTsecurity.DiscretionaryAcl = objDACLNT
				objUser.Put "ntSecurityDescriptor", Array( objSDNTsecurity )
				objUser.SetOption ADS_OPTION_SECURITY_MASK, ADS_SECURITY_INFO_DACL
			End If
		End If

		If ((fOneError = False) And (fRemovedFMA Or fRemovedSendAs)) Then
			objUser.SetInfo
			If (err.number <> 0) Then
				objfileError.WriteLine("Failed to update ADSI for user: " & sUserLDAPPath)
				objfileError.WriteLine("Error: " & err.Description)
				fOneError = True
				err.Clear		
			Else 
				If ( fRemovedFMA Or fRemovedSendAs ) Then
					'Update Logging
					objfileError.WriteLine("Removed Permission from " & sUserLDAPPath & OUTPUT_DELIMITER & fRemovedFMA & OUTPUT_DELIMITER & fRemovedSendAs)
				End If
			End If
		End If

		If (fOneError = True) Then
			WScript.StdOut.Write("!")
		Else
			WScript.StdOut.Write(".")
		End If
	Loop
End If

CloseImportexportFiles

Function IsValidUserName (sUserName)
	Dim dPosition
	dPosition = InStr(1, sUserName, "\")
	If (dPosition = 0 ) Then
		IsValidUserName = False
		objfileError.WriteLine("Invalid User:" & sUserName)
	Else
		IsValidUserName = True
	End If
End Function

Function CheckSendAs (objNTSD, sUser, fSendAs, AccessType)
	Dim intACECount
	Dim objACE
	
	err.Clear
	fSendAs = False
	AccessType = ADS_ACETYPE_ACCESS_ALLOWED
	intACECount = objNTSD.AceCount

	If intACECount Then
		For Each objACE In objNTSD
			err.Clear
			If ( (UCase(objACE.Trustee) = UCase(sUser)) And (objACE.ObjectType = EX_MB_SEND_AS_GUID) ) Then
				fSendAs = True
				AccessType = objACE.AceType
			End If
		Next
	End If	

	If (err.number <> 0) Then
		objfileError.WriteLine("Check SendAs permissions Failed : " & sUser)
		objfileError.WriteLine("Error: " & err.Description)
		err.Clear
		fOneError = True
	End If
	Set objACE = Nothing
End Function

Function CheckFullMailboxAccess (objACL, sUser, fFoundFMA, AccessType)
	Dim intACECount
	Dim objACE

	err.Clear
	fFoundFMA = False
	AccessType = ADS_ACETYPE_ACCESS_ALLOWED
	intACECount = objACL.AceCount
	If intACECount Then
		For Each objACE In objACL
			If ( (UCase(objACE.Trustee) = UCase(sUser)) And ((objACE.AccessMask And EX_FULLMAILBOX_ACCESSMASK) <> 0)) Then
				fFoundFMA = True
				AccessType = objACE.AceType
			End If
		Next
	End If

	If (err.number <> 0) Then
		objfileError.WriteLine("Check FullMailbox permissions Failed : " & sUser)
		objfileError.WriteLine("Error: " & err.Description)
		err.Clear
		fOneError = True
	End If
	Set ObjACE = Nothing
End Function

Function RemoveSendAs (objNTSD, sUser)
	Dim intACECount
	Dim objACE
	Dim fFound
	
	fFound = False
	intACECount = objNTSD.AceCount
	
	If intACECount Then
		For Each objACE In objNTSD
			If ((UCase(objACE.Trustee) = UCase(sUser)) And (objACE.ObjectType = EX_MB_SEND_AS_GUID) ) Then
				objNTSD.RemoveAce objACE
				fFound = True
			End If
		Next
	End If

	RemoveSendAs = fFound		
End Function

Function RemoveFullMailboxAccess (objACL, sUser)
	Dim intACECount
	Dim objACE
	Dim fFound
	
	fFound = False
	intACECount = objACL.AceCount
	
	If intACECount Then
		For Each objACE In objACL
			If((0 <> Instr(UCase(objACE.Trustee), UCase(sUser))) And (objACE.AccessMask And EX_FULLMAILBOX_ACCESSMASK) <> 0) Then
				objACE.AccessMask = (objACE.AccessMask Xor EX_FULLMAILBOX_ACCESSMASK)
				fFound = True
			End If
		Next
	End If

	RemoveFullMailboxAccess = fFound		
End Function

Function GetLDAPPathFromLegacyDN (sLegacyDN)
	Dim rsUsers
	Dim sLdapPath
	
	objCommand.CommandText = "<GC://" & sDomainContainer & ">;(&(&(& (mailnickname=*) (| (&(objectCategory=person)(objectClass=user)(legacyExchangeDN=" & sLegacyDN & ")) ))));adspath;subtree"
	objCommand.Properties("searchscope") = ADS_SCOPE_SUBTREE
	objCommand.Properties("Page Size") = 10
	objCommand.Properties("Timeout") = 30 
	objCommand.Properties("Chase referrals") = (ADS_CHASE_REFERRALS_SUBORDINATE Or ADS_CHASE_REFERRALS_EXTERNAL)

	err.Clear	
	Set rsUsers = objCommand.Execute
	If (err.number <> 0) Then
		objfileError.WriteLine("Search for mailbox owners failed, error:" & err.Description)
		fOneError = True
	End If
	
	If (rsUsers.RecordCount = 0) Then
		objfileError.WriteLine("No mailbox owner user accounts found for " & sLegacyDN & " in " & sDomainContainer & ".")
		fOneError = True		
	End If

	If (rsUsers.RecordCount > 1) Then
		objfileError.WriteLine("Multiple mailboxs owner user accounts found for " & sLegacyDN & " in " & sDomainContainer & ".")
		fOneError = True		
	End If

	sLdapPath = Replace(rsUsers.Fields(0).Value, "GC://", "LDAP://")	
	GetLDAPPathFromLegacyDN = sLdapPath
	Set rsUsers = Nothing
End Function

Function CloseImportexportFiles

	objfileError.WriteLine("*******************************************************")
	objfileError.WriteLine("End at " & Date & " " & Time)
	objfileError.WriteLine("*******************************************************")

	objFSO.Close
	objfileError.Close
	objfileOutput.Close
	objfileImport.Close
	
	Set objFSO = Nothing
	Set objfileError = Nothing
	Set objfileOutput = Nothing
	Set objfileImport = Nothing
End Function

Function CreateImportExportFiles
	Dim sErrorsFileName
	Dim sImportFileName
	Dim sOutputFileName

	err.Clear
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	sErrorsFileName = ERROR_FILENAME
	sImportFileName = EMPTYSTRING
	sOutputFileName = EMPTYSTRING

	Select Case cScriptMode
		Case MODE_ADD
			sImportFileName = WScript.Arguments(ARG_INDEX_FILENAME)
			sOutputFileName = OUTPUT_FILENAME
		Case MODE_REMOVE
			sImportFileName = OUTPUT_FILENAME 'Use output file name as import file
			sOutputFileName = EMPTYSTRING	
		Case Else
			DisplaySyntax
	End Select

	Set objfileError = objFSO.OpenTextFile(sErrorsFileName, ForAppending, True, TristateTrue)
	objfileError.WriteLine("*******************************************************")
	objfileError.WriteLine("Start at " & Date & " " & Time)
	objfileError.WriteLine("*******************************************************")

	If (cScriptMode = MODE_REMOVE) Then
		Set objfileImport = objFSO.OpenTextFile(sImportFileName, ForReading, False, TristateTrue)
	Else
		Set objfileImport = objFSO.OpenTextFile(sImportFileName, ForReading, False, TristateFalse)
	End If

	If (sOutputFileName <> EMPTYSTRING) Then
		'Check if output file already exists.
		If (objFSO.FileExists(sOutputFileName)) Then
			Set objfileOutput = objFSO.OpenTextFile(sOutputFileName, ForReading, False, TristateTrue)
			sOneRow = objfileOutput.ReadLine
			'If user name in the file is different from parameter, we can't proceed.
			If ( sOneRow <> sGrantedUser ) Then
				WScript.StdOut.WriteLine("The Domain\User must be the same as " & sOneRow )
				WScript.Quit
			End If
			Set objfileOutput = objFSO.OpenTextFile(sOutputFileName, ForAppending, True, TristateTrue)
		Else
			Set objfileOutput = objFSO.OpenTextFile(sOutputFileName, ForWriting, True, TristateTrue)
			'The first line of Log file is the user who is going to be granted the permissions
			objfileOutput.WriteLine(sGrantedUser)
		End If
	End If
	
	If (err.number <> 0) Then
		WScript.StdOut.WriteLine("Failed to open Log file, error:" & err.Description)
		WScript.Quit
	End If
End Function

Function AddAce(dacl, TrusteeName, gAccessMask, gAceType, gAceFlags, gFlags, gObjectType, gInheritedObjectType)
	Dim Ace1
	
	Set Ace1 = CreateObject("AccessControlEntry")
	Ace1.AccessMask = gAccessMask
	Ace1.AceType = gAceType
	Ace1.AceFlags = gAceFlags
	Ace1.Flags = gFlags
	Ace1.Trustee = TrusteeName
	'Determine whether ObjectType has to be set
	If CStr(gObjectType) <> "0" Then
		Ace1.ObjectType = gObjectType
	End If

	'Determine whether InheritedObjectType has to be set.
	If CStr(gInheritedObjectType) <> "0" Then
		Ace1.InheritedObjectType = gInheritedObjectType
	End If
	dacl.AddAce Ace1

    Set Ace1 = Nothing
End Function

Function DisplaySyntax
	WScript.StdOut.WriteLine("Syntax:")
	WScript.StdOut.WriteLine()
	WScript.StdOut.WriteLine("Grant Full mailbox access and SendAs permission to USER based on IMPORT_FILE:")
	WScript.StdOut.WriteLine("    CSCRIPT " & WScript.ScriptName & " -Add DOMAIN\USER IMPORT_FILE")
	WScript.StdOut.WriteLine("    NOTE: """ & OUTPUT_FILENAME & """ will be created for -Remove option ")
	WScript.StdOut.WriteLine()
	WScript.StdOut.WriteLine("Remove Full mailbox access and SendAs permission based on " & OUTPUT_FILENAME & ":")
	WScript.StdOut.WriteLine("    CSCRIPT """ & WScript.ScriptName & """ -Remove ")
	WScript.StdOut.WriteLine()
	WScript.StdOut.WriteLine("For all modes, errors are saved to " & ERROR_FILENAME )

	WScript.Quit	
End Function

Voltar para o início

Revisões

Voltar para o início