Test 4 RSS

• • Reply
  

  zac_asp_test...

  Member

  40 Points

  51 Posts

  Test 4

  May 07, 2012 05:39 PM|LINK

  Test 4

• • Reply
  

  zac_asp_test...

  Member

  40 Points

  51 Posts

  Re: Test 4

  May 07, 2012 05:40 PM|LINK

  Test 5

• • Reply
  

  zac_asp_test...

  Member

  40 Points

  51 Posts

  Re: Test 4

  May 07, 2012 05:40 PM|LINK

  Test 6

• • Reply
  

  zac_asp_test...

  Member

  40 Points

  51 Posts

  Re: Test 4

  May 07, 2012 05:40 PM|LINK

  Test 7

• • Reply
  

  zac_asp_test...

  Member

  40 Points

  51 Posts

  Re: Test 4

  May 07, 2012 05:40 PM|LINK

  Test 8

• • Reply
  

  tmorton

  All-Star

  56327 Points

  9683 Posts

  ASPInsiders

  Moderator

  Re: Test 4

  Aug 30, 2012 07:12 PM|LINK

  Some VB.NET code:

  Imports System
  Imports System.Text
  Imports Microsoft.Web.Administration
  
  Module Sample
     Sub Main()
        Dim serverManager As ServerManager = New ServerManager
        Dim config As Configuration = serverManager.GetApplicationHostConfiguration
        Dim sitesSection As ConfigurationSection = config.GetSection("system.applicationHost/sites")
        Dim siteDefaultsElement As ConfigurationElement = sitesSection.GetChildElement("siteDefaults")
        Dim ftpServerElement As ConfigurationElement = siteDefaultsElement.GetChildElement("ftpServer")
  
        ' Configure FTP sites to start automatically by default.
        ftpServerElement("serverAutoStart") = True
  
        ' Configure the default control channel time-out for 300 seconds.
        Dim connectionsElement As ConfigurationElement = ftpServerElement.GetChildElement("connections")
           connectionsElement("controlChannelTimeout") = 300
  
        ' Configure the default FTP security options.
        Dim securityElement As ConfigurationElement = ftpServerElement.GetChildElement("security")
        Dim commandFilteringElement As ConfigurationElement = securityElement.GetChildElement("commandFiltering")
        Dim commandFilteringCollection As ConfigurationElementCollection = commandFilteringElement.GetCollection
        Dim addElement As ConfigurationElement = commandFilteringCollection.CreateElement("add")
           addElement("command") = "SYST"
           addElement("allowed") = False
           commandFilteringCollection.Add(addElement)
        Dim sslElement As ConfigurationElement = securityElement.GetChildElement("ssl")
           sslElement("controlChannelPolicy") = "SslAllow"
           sslElement("dataChannelPolicy") = "SslAllow"
           sslElement("serverCertHash") = "57686f6120447564652c2049495320526f636b73"
        Dim authenticationElement As ConfigurationElement = securityElement.GetChildElement("authentication")
        Dim anonymousAuthenticationElement As ConfigurationElement = authenticationElement.GetChildElement("anonymousAuthentication")
           anonymousAuthenticationElement("enabled") = False
        Dim basicAuthenticationElement As ConfigurationElement = authenticationElement.GetChildElement("basicAuthentication")
           basicAuthenticationElement("enabled") = False
        Dim clientCertAuthenticationElement As ConfigurationElement = authenticationElement.GetChildElement("clientCertAuthentication")
           clientCertAuthenticationElement("enabled") = False
        Dim sslClientCertificatesElement As ConfigurationElement = securityElement.GetChildElement("sslClientCertificates")
           sslClientCertificatesElement("clientCertificatePolicy") = "CertIgnore"
        Dim customAuthenticationElement As ConfigurationElement = authenticationElement.GetChildElement("customAuthentication")
        Dim providersCollection As ConfigurationElementCollection = customAuthenticationElement.GetCollection("providers")
        Dim addElement1 As ConfigurationElement = providersCollection.CreateElement("add")
           addElement1("name") = "FtpCustomAuthenticationModule"
           addElement1("enabled") = False
           providersCollection.Add(addElement1)

  Terri Morton
  ASP.NET/IIS.NET Website Manager, Neudesic