Microsoft KB Archive/264585

= XIMS: Script to Enable ATRN for SMTP Remote Domains =

Article ID: 264585

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 Q264585



SUMMARY
The script in the &quot;More Information&quot; section of this article takes advantage of the scripting capabilities of Microsoft Windows Scripting Host to provide a graphical user interface (GUI) to add and configure remote domains for Authenticated TURN (ATRN). When you use the interface, you can select the virtual server that you want to host the domain, and enter all required domain information. The script then makes the necessary additions to the metabase.



MORE INFORMATION
' ' Script to enable Authenticated TURN for MCIS 2.0 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, smtpATRNDomain, NewSMTPRouteActionType DIM NewATRNUserID,NewATRNUserPassword, SMTPVirtualServer DIM szVirtualServer, szSMTPDomain, szATRNUser, szATRNPassword

szVirtualServer = InputBox(&quot;Enter the SMTP Virtual Server ID&quot;, ,1) If szVirtualServer = &quot;&quot; Then WScript.Quit Else szSMTPDomain = InputBox(&quot;Enter the NEW SMTP Domain that will use ATRN&quot;) szATRNUser = InputBox(&quot;Enter the NT User Account used for this domains ATRN credentials&quot;) szATRNPassword = InputBox(&quot;Enter the NT User Account Password used for this domains ATRN credentials&quot;) End If  SMTPVirtualServer = szVirtualServer smtpATRNDomain = szSMTPDomain NewSMTPRouteActionType = &quot;4610&quot; NewATRNUserID = szATRNUser NewATRNUserPassword = szATRNPassword ' adds the new domain Set SMTPObject = GetObject(&quot;IIS://LocalHost/SMTPSVC/&quot; & SMTPVirtualServer & &quot;/domain&quot;) set NewSMTPObject = SMTPObject.Create (&quot;IIsSmtpDomain&quot;,smtpATRNDomain) 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; & smtpATRNDomain) NewSMTPMetaObject.Put &quot;AuthTURNList&quot;, NewATRNUserID NewSMTPMetaObject.Put &quot;RouteUserName&quot;, NewATRNUserID NewSMTPMetaObject.Put &quot;RoutePassword&quot;, NewATRNUserPassword NewSMTPMetaObject.Put &quot;RouteAction&quot;, NewSMTPRouteActionType NewSMTPMetaObject.SetInfo

Additional query words: SMTP

Keywords: kbinfo kbsetup KB264585

-

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

© Microsoft Corporation. All rights reserved.