Imports System
Imports System.Collections.Generic
Imports System.Text
Imports Microsoft.Web.Administration
Imports Microsoft.Web.Management

Namespace AdministrationSnippets
    Public Class AdministrationApplication
        '' Creates an application under the default web site
        Public Sub CreateApplication()
            Dim manager As New ServerManager()
            Dim defaultSite As Site = manager.Sites("Default Web Site")
            defaultSite.Applications.Add("/blogs", _
                "C:\\inetpub\\wwwroot\\blogs")
            manager.CommitChanges()
        End Sub
    End Class
End Namespace