Microsoft KB Archive/265200

= Description of a Script to Use to Configure Remote Domains for ETRN =

Article ID: 265200

Article Last Modified on 8/8/2007

-

APPLIES TO


 * Microsoft Commercial Internet System 2.0
 * Microsoft Commercial Internet System 2.5

-



This article was previously published under Q265200



SUMMARY
This article describes a script that takes advantage of the scripting capabilities of Windows Scripting Host to provide a graphical user interface (GUI) that you can use to add and configure remote domains for ETRN. You can use the GUI to select the virtual server that hosts the domain, and enter all the required domain information. The script then makes the necessary additions to the metabase.



MORE INFORMATION
' ' Script to enable ETRN for MCIS 2.x SMTP Site ' '              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 Scripting Host must be installed ' http://msdn2.microsoft.com/en-us/library/ms950396.aspx '

Option Explicit DIM SMTPObject, NewSMTPObject, NewSMTPMetaObject DIM smtpETRNDomain, NewSMTPRouteActionType DIM SMTPVirtualServer, szVirtualServer, szSMTPDomain

szVirtualServer = InputBox(&quot;Enter the SMTP Virtual Server ID&quot;, ,1) If szVirtualServer = &quot;&quot; Then WScript.Quit Else szSMTPDomain = InputBox(&quot;Enter NEW SMTP Domain that will use ETRN&quot;) End If  SMTPVirtualServer = szVirtualServer smtpETRNDomain = szSMTPDomain NewSMTPRouteActionType = &quot;4610&quot; ' adds the new domain Set SMTPObject = GetObject(&quot;IIS://LocalHost/SMTPSVC/&quot; & SMTPVirtualServer & &quot;/domain&quot;) set NewSMTPObject = SMTPObject.Create (&quot;IIsSmtpDomain&quot;,smtpETRNDomain) NewSMTPObject.KeyType = &quot;IIsSmtpDomain&quot; NewSMTPObject.SetInfo

' configures the new domain for turn Set NewSMTPMetaObject = GetObject(&quot;IIS://LocalHost/SMTPSVC/&quot; & SMTPVirtualServer & &quot;/Domain/&quot; & smtpETRNDomain) NewSMTPMetaObject.Put &quot;RouteAction&quot;, NewSMTPRouteActionType NewSMTPMetaObject.SetInfo

Additional query words: ETRN MCIS

Keywords: kbinfo KB265200

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.