Cr�er un fichier de commandes pour ex�cuter sur Windows NT AT Command Planificateur (disponible dans le Kit de ressources Windows NT) ou une autre application de planification tiers. Voici un exemple des fichiers de commandes :
Exemple 1: (suppose que le Service Messagerie Internet fonctionne en permanence)
PING <other_hosts_ip_address> ---> makes the dialup router initiate its connection
PING <other_hosts_ip_address> ---> verify connection
FINGER My.DomainA.Com@ISP.Host.DomainB.Com ---> to dequeue
exemple 2: (suppose que le Service Messagerie Internet fonctionne en permanence)
PING <other_hosts_ip_address> ---> makes the dialup router initiate its connection
PING <other_hosts_ip_address> ---> verify connection
<Retrieval Program> ---> third-party program that dequeues mail
exemple 3: (suppose NOT ex�cute le Service Messagerie Internet)
PING <other_hosts_ip_address> ---> makes the dialup router initiate its connection
PING <other_hosts_ip_address> ---> verify connection
NET START MSExchangeIMC ---> starts the Internet Mail Service
<Retrieval Method: command or executable>
NET STOP MSExchangeIMC ---> stops the Internet Mail Service
En outre, la possibilit� d'utiliser ETRN est requise en dehors de connexions d'acc�s � distance, est une autre solution de contournement disponible. La commande ETRN peut �tre configur�e pour �tre envoy� � tous les h�tes du Service Messagerie Internet se connecte �. Pour ce faire, proc�dez comme suit.
Avertissement : Si vous utilisez l'�diteur du Registre incorrectement, vous exposez � de graves probl�mes pouvant vous obliger � r�installer votre syst�me d'exploitation. Microsoft ne peut pas garantir que vous puissiez r�soudre les probl�mes r�sultant d'une mauvaise utilisation de l'�diteur du Registre. Utilisez l'�diteur du Registre � vos risques et p�rils.
- D�marrez l'�diteur du Registre (Regedt32.exe).
- Recherchez la cl� suivante dans le Registre :
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MSExchangeIMC
\Parameters
- Dans le menu Edition, cliquez sur Ajouter une valeur et ajoutez la valeur de Registre suivante :
Nom de la valeur : AlwaysUseETRN
Type de donn�es : REG_DWORD
Valeur: 0 x 1
- Quittez l'�diteur du Registre.
La d�finition de cette entr�e indique le service de messagerie Internet pour envoyer la commande ETRN � n'importe quel ESMTP � h�tes qu'il se connecte � (qui signalent qu'ils prennent en charge ETRN). Il utilisera tous les domaines r�pertori�s dans la table de routage configur�e avec le Service Messagerie Internet.
Remarque : il est recommand� d'utiliser cette entr�e uniquement lorsque le transfert des messages � un seul ordinateur h�te. Cela s'explique par le temps n�cessaire pour envoyer et attendre une r�ponse � la commande ETRN.
' ------------------------------------------------------------------------
' Q241157 Script to enable ETRN for IMS on LAN or Demand Dial Networks
' ------------------------------------------------------------------------
' Copyright (C) 1996-2000 Microsoft Corporation
'
' You have a royalty-free right to use, modify, reproduce and distribute
' the Sample Application Files (and/or any modified version) in any way
' you find useful, provided that you agree that Microsoft has no warranty,
' obligations or liability for any Sample Application Files.
' ------------------------------------------------------------------------
Windows Script Host doit �tre install�
http://msdn2.microsoft.com/en-us/library/ms950396.aspx
Choice = InputBox("Enter 1 to enable ETRN or 2 to disable ETRN")
Select Case Choice
Case "1"
L_Welcome_MsgBox_Message_Text = "This script adds the AlwaysUseETRN value to the Internet Mail Service that enables LAN based ETRN."
L_Welcome_MsgBox_Title_Text = "Enabling ETRN"
Call Welcome()
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Popup "Set value HKLM\System\CurrentControlSet\Services\MSExchangeIMC\Parameters\AlwaysUseETRN to REG_DWORD 1"
WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\MSExchangeIMC\Parameters\AlwaysUseETRN" , 1, "REG_DWORD"
Case "2"
L_Welcome_MsgBox_Message_Text = "Setting the Value AlwaysUseETRN to zero"
L_Welcome_MsgBox_Title_Text = "disabling ETRN"
Call Welcome()
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Popup "Set value HKLM\System\CurrentControlSet\Services\MSExchangeIMC\Parameters\AlwaysUseETRN to REG_DWORD 0"
WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\MSExchangeIMC\Parameters\AlwaysUseETRN" , 0, "REG_DWORD"
End Select
Sub Welcome()
Dim intDoIt
intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, vbOKCancel + vbInformation, L_Welcome_MsgBox_Title_Text )
If intDoIt = vbCancel Then
WScript.Quit
End If
End Sub