Como abordar o horário de verão usando a ferramenta de actualização de calendário do Exchange

Sobre a ferramenta Exchange

Voltar para o início

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

Voltar para o início

Sobre a nova versão da ferramenta Exchange

• A extração de fuso horário e os processos de atualização do calendário são agiliza fourfold.
• A interface do usuário para a ferramenta de configuração é mais simplificada e intuitiva.
• A capacidade de atualizar o recurso e salas de conferência caixas de correio agora está incorporada à ferramenta de configuração.
• A capacidade de atualizar as caixas de correio do usuário agora foi incorporada ao ferramenta de configuração.
• Um documento de solução de problemas agora está incluído com o Ferramenta do Exchange e ele é integrado à ferramenta de configuração.
• O algoritmo de extração de fuso horário e o tratamento de erros Capacidades aperfeiçoadas.
• O processo de log é mais amigável.

Voltar para o início

Riscos da execução da ferramenta do Exchange

• Reduzir o intervalo entre a hora em que você atualizar computadores cliente e o tempo que você atualize os calendários da caixa de correio.
• Se os computadores na organização foram atualizados muito tempo atrás, use o Atualizar apenas reuniões recorrentes configuração emConfigurações avançadas.
  
  Normalmente, as pessoas não criar compromissos de ocorrência única muitos meses de antecedência. Portanto, se o DST as atualizações foram instaladas em muitos meses antes, a maioria das reuniões de ocorrência única que são classificados no período prolongado de hora de verão serão criado usando o novo Regras de transição do horário de verão. Nessas reuniões não precisam ser atualizados.
• Se você souber a exata data em que todos os computadores cliente foram atualizados, use o Data de Patch do sistema operacional configuração emConfigurações avançadas. Se for especificada uma data, uma única instância compromissos criados após essa data não são atualizados pelo Exchange ferramenta.

Voltar para o início

Opções para atualizar as caixas de correio

Voltar para o início

Como instalar a ferramenta Exchange

Recolher esta imagemExpandir esta imagem

Voltar para o início

Idiomas que são suportados pela 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 Standard Edition
• Microsoft Exchange Server 2003 Enterprise Edition
• 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 suportados pela ferramenta do Exchange

• Microsoft Windows Server 2003
• Microsoft Windows XP
• O Windows Vista

Voltar para o início

O que fazer antes de executar a ferramenta Exchange

Instalar atualizações

• Atualização 911829
• Atualização 924334

Verificar os requisitos de sistema

• O computador tem Microsoft Office Outlook 2003 Service Pack 2 (SP2) ou Microsoft Office Outlook 2007 instalado.
• O computador possui a ferramenta de dados de fuso horário do Outlook instalado.
• Microsoft.NET Framework versão 2.0 está instalado no computador cliente.

Verifique se as permissões e outros requisitos do usuário

• Administrar permissões de armazenamento de informações em cada Exchange Banco de dados de mensagem do servidor (MDB) são atualizados.
• São permissões Enviar como para todas as caixas de correio atualizado.
• Permissões de Full Mailbox Access para todas as caixas de correio são atualizado.
• São concedidas permissões de administrador local no computador que está executando a ferramenta do Exchange.

Voltar para o início

Sobre o script "Conceder permissão de caixa de correio"

• Quando você executa esse script no computador que está executando Exchange Server, o script retorna um caractere de ponto (.) quando o script processos de um usuário com êxito. O script retorna um ponto de exclamação caractere (!) quando o script não processa um usuário com êxito.
• O arquivo de saída do modo de extração de fuso horário não pode ser usado como um arquivo de entrada para esse script. Para criar o arquivo de entrada para este script, cole o conteúdo do arquivo de saída de modo a extração de fuso horário em Bloco de notas, salvar o conteúdo como um novo documento e, em seguida, use o novo documento como o arquivo de entrada.

Voltar para o início

Como usar a ferramenta Exchange

Executar o processo de extração de fuso horário

1. Na página de boas-vindas, clique em Avançar.
   
   Observação A página de boas-vindas apresenta a ferramenta Configuração e Discute as permissões necessárias para executar a ferramenta. A página também Fornece um link para este artigo.
2. Especifique as configurações da ferramenta de configuração. Podemos Recomendamos que você aloque pelo menos 200 megabytes (MB) de espaço em disco para log.
   
   Se você deseja alterar as configurações padrão, clique emConfigurações avançadas. Para obter mais informações sobre o avançado configurações, consulte a tabela a seguir este procedimento.
3. Selecione os servidores do Exchange no Active Directory local floresta de serviço de diretório que você deseja atualizar. Em seguida, clique emAvançar para iniciar o processo de extração de fuso horário.
   
   Observação Se você já executou a extração de fuso horário, você poderá ignorar Esta etapa clicando em Ignorar.
   
   Observe que um status barra, um link para o log de saída e uma exibição em tempo real do fuso horário processo de extração são exibidos. Após o fuso horário é o processo de extração Concluir, clique em Avançar.
   
   Se foram encontrados erros, um link para o documento de solução de problemas é exibida.
4. Configurar o Caixas de correio sem tempo Zonas página e clique em Avançar Para verificar o calendário itens.
   
   Observação Se a ferramenta encontrar usuários que não possuem propriedades de nível de caixa de correio que indicam o seu fuso horário, a ferramenta verifica os compromissos e reuniões reais dentro dos calendários para determinar o fuso horário. Você pode especificar o número dos itens de calendário através da qual você deseja que a ferramenta de configuração para fazer a varredura. O maior número de itens que você especificar, mais tempo levará a varredura.
5. No Resolver a exibição de fuso horário desconhecido nomes página, a ferramenta solicita o mapeamento de fusos horários que faz a ferramenta não reconhece a uma zona de tempo conhecida do sistema operacional. Depois de fazer isso, clique emAvançar
6. Se a ferramenta de configuração localiza os usuários que têm vários tempo zonas, você será solicitado para resolver manualmente o conflito, especificando um fuso horário com o qual deseja atualizar o calendário do usuário. Depois de fazer isso, clique emAvançar.
7. No Salvar DNs da caixa de correio com o tempo não resolvido Zonas página, os usuários restantes que ainda não têm nenhuma zona de tempo as informações ou que ainda têm informações conflitantes do fuso horário são registradas no um arquivo de log separado. Clique em Avançar.

Atualizar salas de conferência e caixas de correio de recurso

1. Sobre o Especificar o recurso e sala de conferência Calendários página, digite ou cole a lista de aliases de salas de conferência em sua organização. Clique em Resolver para validar os aliases, e, em seguida, clique em Avançar.
2. Sobre o Resolver fusos horários para recursos e Calendários de sala de conferência página, a ferramenta solicitará a manualmente especificar o fuso horário para uma sala de conferência, se a sala de conferência não ter um fuso horário. Fazer isso e, em seguida, clique em Avançar.
3. Uma página de lembrete é exibida para lembrá-lo que a ferramenta está prestes a atualizar os calendários. Clique em Avançar.
4. Observe que efetuar logon em uma barra de status, um link para a saída, e um exibição em tempo real da saída da ferramenta são exibidas. Clique emAvançar.
   
   Se forem encontrados erros, um link para o solução de problemas do documento é exibido na parte inferior desta página.

Atualizar o calendário da caixa de correio do usuário

1. Sobre o Configurações para a atualização da caixa de correio do usuário Calendários página, defina as configurações para a atualização.
   
   IF Você não especificou o A opção SuppressExchange ouSuppressAll configurações avançadas, selecione os fusos horários que são afetados pelo DST. Caso contrário, selecione todos os fusos horários.
   
   Clique emAvançar.
2. Uma página de lembrete é exibida para lembrá-lo que a ferramenta está prestes a atualizar os calendários. Clique em Avançar.
3. Observe que efetuar logon em uma barra de status, um link para a saída, e um exibição em tempo real da saída da ferramenta são exibidas. Após a atualização Concluir, clique em Avançar.
   
   Se forem encontrados erros, um link para o documento de solução de problemas é exibida na parte inferior desta página.
4. Clique em Concluir.

Voltar para o início

Arquivos de log da ferramenta e subdiretórios do Exchange

Arquivos de log

• Output. txt
  
  Este arquivo contém uma lista de todas as caixas de correio do usuário que foram extraídos juntamente com suas informações de fuso horário.
• TimeZoneExtraction.log
  
  Esse log contém a saída combinada do fuso horário processo de extração para todos os servidores.
• ResourceUpdate.log
  
  Esse log contém a saída do processo de atualização para as salas de conferência e para as caixas de correio de recurso.
• UserUpdate.log
  
  Esse log contém a saída combinada do usuário processo de atualização da caixa de correio para todos os servidores.
• CalendarScan.log
  
  Esse log contém a saída combinada do calendário Examine o processo para todos os servidores.
• ConflictUsers.txt
  
  Esse log contém uma lista de usuários que têm conflitantes fusos horários. Por exemplo, propriedades de caixa de correio dos usuários indicam que eles pertence a vários fusos.
• NonExistent.txt
  
  Esse log contém uma lista de usuários que não têm nenhuma zona de tempo informações.

Subdiretórios

• Recurso
  
  Esta é a subpasta de trabalho para o processo de atualização as salas de conferência e para as caixas de correio de recurso. Este diretório contém os seguintes arquivos:
  • Msextmz.log
    
    Este é o arquivo de saída da ferramenta Exchange para o processo de atualização.
  • Errors. txt também
    
    Este arquivo contém a lista de caixas de correio.
  • Processed.txt
    
    Este arquivo contém a lista de caixas de correio que foram atualizado com êxito.
  Observação Todas as subpastas de trabalho contém esses arquivos.
  
  O O subdiretório de recurso também contém o subdiretório a seguir:
  • Arquivos de log
    
    Essa subpasta contém os logs de atualização para cada caixa de correio que foi atualizado com êxito. Cada log de atualização deve conter uma lista de reuniões que foram atualizadas.
• Nome_do_servidor
  
  Há um subdiretório para cada servidor em que o processo de extração de fuso horário ou uma atualização do calendário foi executada. Essas subpastas contêm os seguintes subdiretórios:
  • CalendarScan
    
    Esta é a subpasta de trabalho para a varredura de calendário processo.
  • Extrair
    
    Esta é a subpasta de trabalho para o fuso horário processo de extração.
  • Atualização
    
    Este é o subdiretório de trabalho para a caixa de correio do usuário processo de atualização. Ele contém o subdiretório a seguir:
    • Arquivos de log
      
      Essa subpasta contém os logs de atualização para cada caixa de correio que foi atualizado com êxito. Cada log de atualização deve conter uma lista de reuniões que foram atualizadas.

Voltar para o início

O que fazer depois de executar a ferramenta Exchange

• 937656  (http://support.microsoft.com/kb/937656/ ) Você enfrentar problemas no Outlook Web Access para Exchange 2007 ao horário de verão (DST) começa na Nova Zelândia em 2007
• 932561  (http://support.microsoft.com/kb/932561/ ) Os compromissos que são enviados de uma organização do Exchange para outro usando o Exchange 2007 podem estar incorretos em uma hora se uma organização estiver no fuso horário Austrália Ocidental

Voltar para o início

Problemas conhecidos

• Reuniões recorrentes que são criadas no Outlook Web Access não são atualizadas pela ferramenta do Exchange
  
  Se você instalar as atualizações de Exchange Server a Antes de atualizar as caixas de correio, recorrente de reuniões que são do Exchange server criado no Outlook Web Access não são atualizados pela ferramenta do Exchange.
  
  Para resolver esse problema, remova as atualizações de Exchange Server, execute o Ferramenta do Exchange e, em seguida, reinstalar as atualizações de Exchange Server no Exchange servidor.
• Exchange 2007 deve ser reiniciado depois de executar a ferramenta Exchange
  
  Para exibir corretamente os itens de calendário, você deve reiniciar os serviços do Exchange depois de executar a ferramenta Exchange para Outlook Web Access no Exchange 2007.
• Não é possível instalar a ferramenta Exchange
  
  A ferramenta Exchange não é instalada com êxito se qualquer uma das seguintes chaves de registro existe:
  • HKEY_CLASS_ROOT\Outlook.Application.9
  • HKEY_CLASS_ROOT\Outlook.Application.10
  Nesse cenário, você recebe a seguinte mensagem de erro Quando você tenta instalar a ferramenta Exchange:
  Exchange Server A ferramenta de alteração da Base de calendário não pode ser instalada com esta versão do Microsoft Outlook.
  Para contornar esse problema, exclua essas chaves do registro, Instale a ferramenta Exchange e, em seguida, restaurar o registro chaves.
  
  Importante Nesta seção, método ou tarefa contém etapas que explicam como fazer para modificar o registro. No entanto, podem ocorrer sérios problemas se você modificar o Registro incorretamente. Portanto, certifique-se de que você siga estas etapas com cuidado. Para maior proteção, faça backup do registro antes de modificá-lo. Em seguida, você poderá restaurar o registro se ocorrer um problema. Para obter mais informações sobre como fazer backup e restaurar o registro, clique no seguinte artigo número 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
• 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 apenas 65.535 caixas de correio em um servidor. Se o servidor tiver mais de 65.535 caixas de correio, algumas caixas de correio não são processadas.
• Calendários de pastas públicos não são atualizados.
  
  A ferramenta Exchange não atualizar a pasta pública calendários. Para obter informações sobre como atualizar um calendário de pasta pública, consulte a documentação da ferramenta do Outlook.
• Você pode executar as ferramentas do Outlook e o Exchange no mesmo ambiente
  
  Se você executar a ferramenta Exchange em uma caixa de correio que tem já foram não atualizados pela ferramenta do Outlook, ou vice-versa, você enfrenta nenhum lado efeitos. No entanto, se você executar a ferramenta Exchange, não é necessário para que os usuários Execute a ferramenta de Outlook separadamente.
• Non-reunião lembretes mais tarde do que o esperado
  
  Non-reunião lembretes para caixas de correio que são atualizadas pela a ferramenta Exchange não são atualizados quando o Outlook nunca se conectou à caixa de correio no modo Online. Nessa situação, lembretes de uma hora posterior esperado.
  
  Se o Outlook nunca tiver conectado no modo Online, você deve ajustar os lembretes incorretos para compromissos do calendário que a ferramenta do Outlook Localiza. Além disso, a pasta de pesquisa de lembretes não existe na caixa de correio. Portanto, a ferramenta não atualiza os itens de email, contatos ou outros lembretes.
  
  Por exemplo, a ferramenta não atualiza o lembrete em um item de email acompanhamento ao mesmo tempo no futuro. A ferramenta também não atualiza o lembrete em um item de tarefa que tenha um lembrete.
• Você recebe uma mensagem de erro: "não é possível instalar, pois foram detectadas versões anteriores do 'Ferramenta de actualização de calendário do Microsoft Exchange'. Desinstale-os e execute a instalação novamente"
  
  Se você tiver instalado a atualização do calendário do Exchange Versão 1.0 da ferramenta, você deve desinstalar essa versão antes de instalar o Exchange Versão da ferramenta de atualização do calendário 2.0.
  
  Ferramenta de actualização de calendário do Exchange versão 1.0 foi distribuído como um arquivo executável de extração automática que continha dois pacotes. msi (Msextmz.msi e Msextmzcfg.msi). Você deve desinstalar ambos pacotes antes de instalar a versão 2.0 da ferramenta do Exchange.
  
  Se você ainda tiver problemas ao instalar a versão 2.0 da ferramenta Exchange, Tente reinstalar e, em seguida, desinstalar a versão 1.0 da ferramenta do Exchange. Fazer isso usando os pacotes. msi em vez de usando o Adicionar ou remover Programas recurso no painel de controle. Em seguida, reinicie seu computador, e em seguida, instale a versão 2.0 da ferramenta do Exchange.
  
  Se este procedimento não não funcionar, extrair os binários diretamente dos pacotes. msi.
• Quando você executar as ferramentas de atualização do Outlook ou Exchange, compromissos são desativados por uma hora nas caixas de correio onde o fuso horário é hora padrão da Nova Zelândia
  
  Esse comportamento ocorre quando as seguintes situações são verdadeiro:
  • Executar as ferramentas de atualização do Outlook ou Exchange um computador que esteja executando o Windows Vista.
  • O fuso horário das caixas de correio que estão sendo atualizado é a hora padrão da Nova Zelândia.
  Para contornar esse problema, você deve executar o Outlook ou Ferramentas de atualização do Exchange contra as caixas de correio pela segunda vez em ou após janeiro 1, 2008.
  
  Esse comportamento ocorre porque o Windows Vista lida com o fuso horário informações de forma diferente das outras versões do Windows para fazer. Se você não executar o O Outlook ou Exchange atualizar ferramentas novamente em ou após 1 de janeiro de 2008, todos os compromissos no segundo evento de hora de verão terão um desfasamento de uma hora. O segundo DST evento inclui datas entre 16 de março de 2008 por meio de 6 de abril de 2008.
  
  Se você não fizer isso deseja esperar até 1 de janeiro de 2008 para atualizar os compromissos no segundo o horário de verão evento, você pode executar as ferramentas de atualização do Outlook ou Exchange de um computador que está executando o Windows XP ou Windows Server 2003.
• Uma data no formato dd/mm/aaaa é alterada para o formato DD/M/aaaa
  
  Você definir o Data de Patch do sistema operacional opção de troca de Ferramenta de actualização de calendário. Quando você fizer isso, a ferramenta de actualização de calendário do Exchange não funcionar corretamente. Esse problema ocorre porque o formato de data MM/DD/YYYY é alterado para M/mm/aaaa.
  
  Além disso, uma mensagem de erro semelhante a seguinte mensagem de erro é registrada no log de erros:
  [28/02/2008 10: 7: 21 AM] [776]: wmain: Falha ao ler configuração - erro 0x80070057.
  Esse problema ocorre devido a uma configuração de opção incorreta na seção a seguir de caixas de correio as amostra.servidorarquivo. ini.

  ServerDN = /O=OrgName/OU=AdminGroup/cn=Configuration/cn=Servers/cn=ServerName 
  LogDirectory = C:\Program Files\MSExTmz\ServerName\Update\LogFiles\ 
  ErrorFile = C:\Program Files\MSExTmz\ServerName\Update\errors.ServerName.txt 
  ProcessedFile = C:\Program Files\MSExTmz\ServerName\Update\processed.ServerName.txt 
  LogFile = C:\Program Files\MSExTmz\ServerName\Update\msextmz.ServerName.log 
  SystemPatchDate = 2/28/2008  
  DebugFile = C:\Program Files\MSExTmz\debug\ServerName.debug.bin 
  PerMailboxTimeLimit = 15 
  PostMailboxDelay = 0 
  RebaseOptions = 171 
  InputFile = C:\Program Files\MSExTmz\ServerName\Update\Mailboxes.ServerName.txt 
  

  Observe que a linha "SystemPatchDate" contém a data "2/28/08." Essa data deve estar no formato DD/MM/AAAA.
  
  Para contornar esse problema, não use o Patch do sistema operacional Data opção.

Voltar para o início

O script "Conceder permissão de caixa de correio"

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 Server
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 Verification
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

		    ' Verify Full Mailbox Access and Send As permissions.
		    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 Send As or Full Mailbox Access permissions do not exist, add these permissions.
		    If ( (AccessTypeForFMA = ADS_ACETYPE_ACCESS_DENIED) Or (AccessTypeForSendAs = ADS_ACETYPE_ACCESS_DENIED_OBJECT) ) Then
			    'If Deny access is already granted, do not add permissions for 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 Full Mailbox Access permissions.
				    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 Send As permissions.
				    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
	'Retrieve the granted user from the first line of the 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)

		'The first column is the LDAP path.
		sUserLDAPPath = sArraySplit(0)
		'The second column is Full Mailbox Access permissions.
		fAddedFMA = sArraySplit(1)
		'The third column is Send As permissions.
		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 the output file name as the 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
		'Determine whether the output file already exists.
		If (objFSO.FileExists(sOutputFileName)) Then
			Set objfileOutput = objFSO.OpenTextFile(sOutputFileName, ForReading, False, TristateTrue)
			sOneRow = objfileOutput.ReadLine
			'If the user name in the file differs from the parameter, the process cannot continue.
			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 the log file is the user who is 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