> Hello,
> 
> Does anyone have any documentation or know where I might find some on =
> creating and modifying the SMTP service of IIS using ADSI? I can not =
> find any reference material on that service's schema anywhere :).
> 
> Thanks for any help you can provide,
> 
> Jeff Bishop
> Web Developer and IIS Administrator


the MetaEdit2.1 version works quite. You can make descrete changes/ export 
those changes to a text file, and then compare the changes via Word or 
wordperfect.

Here is code that I am using


If WebFolder = "" Then WebFolder = "c:\"
    Set smtpA = GetObject("IIS://LOCALHOST/SMTPSVC")
    Set smtpB = GetObject("IIS://LOCALHOST/SMTPSVC/1")
    Set smtpC = GetObject("IIS://LOCALHOST/SMTPSVC/1/RoutingSources")

  ' info = smtpB.RelayForAuth


    smtpA.servercomment = "IPIMS newsgroup smtp server"
    smtpA.LogType = 1
    smtpA.MaxRecipients = 100
    smtpA.logfiledirectory = Normalize(WebFolder) & "smtp\logs\"
    smtpA.DropDirectory = Normalize(WebFolder) & "smtp\drop\"
    smtpA.QueueDirectory = Normalize(WebFolder) & "smtp\que\"
    smtpA.PickupDirectory = Normalize(WebFolder) & "smtp\pick\"
    smtpA.BadMailDirectory = Normalize(WebFolder) & "smtp\bad\"
    smtpA.SendNdrTo = "ipims.techsupport@i..."
    smtpA.SmartHost = "mail.ihrdc.com"
    smtpA.RoutePassword = "td111"
    smtpA.RouteUserName = "tdonohue"
    smtpA.SendBadTo = "ipims.techsupport@i..."
    'smtpA.ServerBindings = prefInstallIP & ":25:"
    smtpA.HopCount = 35
    smtpA.SmartHostType = 1
    smtpA.RouteAction = 264
    smtpB.RelayForAuth = 0
    
     smtpB.servercomment = "IPIMS newsgroup smtp server"
     smtpB.LogType = 1
     smtpB.RouteAction = 264
     smtpB.SmartHostType = 1
    smtpB.MaxRecipients = 100
    smtpB.BadMailDirectory = Normalize(WebFolder) & "smtp\bad\"
    smtpB.logfiledirectory = Normalize(WebFolder) & "smtp\logs\"
    smtpB.DropDirectory = Normalize(WebFolder) & "smtp\drop\"
    smtpB.QueueDirectory = Normalize(WebFolder) & "smtp\que\"
    smtpB.PickupDirectory = Normalize(WebFolder) & "smtp\pick\"
    smtpB.SendNdrTo = "ipims.techsupport@i..."
    smtpB.SmartHost = "mail.ihrdc.com"
    smtpB.RoutePassword = "td111"
    smtpB.RouteUserName = "tdonohue"
    smtpB.SendBadTo = "ipims.techsupport@i..."
    smtpB.MaxRecipients = 100
    smtpB.ServerBindings = prefInstallIP & ":25:"
    smtpB.HopCount = 35
    smtpB.RelayForAuth = 0
    smtpC.SmtpDsPassword = "tdonohue"
    smtpC.SmtpDsAccount = "td111"
    
     smtpA.SetInfo
     smtpB.SetInfo
     smtpC.SetInfo

    Set smtpA = Nothing
    Set smtpB = Nothing
    Set smtpC = Nothing