sample2.vb

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 sitesCollection As ConfigurationElementCollection = sitesSection.GetCollection
      Dim siteElement As ConfigurationElement = FindElement(sitesCollection, "site", "name", "ftp.example.com")
      If (siteElement Is Nothing) Then
         Throw New InvalidOperationException("Element not found!")
      End If
      Dim ftpServerElement As ConfigurationElement = siteElement.GetChildElement("ftpServer")
      Dim sessionsElement As ConfigurationElementCollection = ftpServerElement.GetChildElement("sessions").GetCollection
      Console.WriteLine(String.Format("Active Sessions: {0}", sessionsElement.Count))
      For Each sessionElement As ConfigurationElement In sessionsElement
         Console.WriteLine(String.Format(vbTab & "Session ID: {0}", sessionElement.Attributes("sessionId").Value.ToString))
         Console.WriteLine(String.Format(vbTab & vbTab & "User Name: {0}", sessionElement.Attributes("userName").Value.ToString))
         Console.WriteLine(String.Format(vbTab & vbTab & "Previous Command: {0}", sessionElement.Attributes("previousCommand").Value.ToString))
      Next
   End Sub

   Private Function FindElement(ByVal collection As ConfigurationElementCollection, ByVal elementTagName As String, ByVal ParamArray keyValues() As String) As ConfigurationElement
      For Each element As ConfigurationElement In collection
         If String.Equals(element.ElementTagName, elementTagName, StringComparison.OrdinalIgnoreCase) Then
            Dim matches As Boolean = True
            Dim i As Integer
            For i = 0 To keyValues.Length - 1 Step 2
               Dim o As Object = element.GetAttributeValue(keyValues(i))
               Dim value As String = Nothing
               If (Not (o) Is Nothing) Then
                  value = o.ToString
               End If
               If Not String.Equals(value, keyValues((i + 1)), StringComparison.OrdinalIgnoreCase) Then
                  matches = False
                  Exit For
               End If
            Next
            If matches Then
               Return element
            End If
         End If
      Next
      Return Nothing
   End Function


End Module