IIsManager

Imports IIsManager

Module modTest

    Sub Main()

        Dim IIsSvc As IIsService = Nothing

        Try

            IIsSvc = New IIsService

            ' Creating a testsite, setting ASP.NET Version, setting directory Access Permissions.
            Using testsite = IIsSvc.AddSite("TestSite", "c:\inetpub\testsite", "test.site.nl")

                testsite.AccessPermissions = AccessPermissionFlags.Read + AccessPermissionFlags.Script

                testsite.ASPNETVersion = ASPNETVersions.v2_0_50727

                Using images = testsite.AddDirectory("images")
                    images.AccessPermissions = AccessPermissionFlags.Read + AccessPermissionFlags.Write
                End Using

                Console.Write("TestSite added.")
                Console.ReadLine()

                IIsSvc.RemoveSite(testsite.Id)
                Console.WriteLine("TestSite removed.")

            End Using

            ' Selecting an existing site, creating an application in a virual directory.
            Using template = (From s In IIsSvc.Sites Where s.Description = "TemplateSite" Select s).First

                Using vdnonapp = (From d In template.VirtualDirectories Where d.Name = "vdnonapp" Select d).First

                    vdnonapp.CreateApplication("bla")

                    Console.Write("Application created.")
                    Console.ReadLine()

                    vdnonapp.DeleteApplication()
                    Console.WriteLine("Application deleted.")

                End Using

            End Using


        Catch ex As Exception

            Console.WriteLine(ex.Message & vbNewLine & vbNewLine & If(ex.InnerException Is Nothing, ex.StackTrace, ex.InnerException.Message & vbNewLine & vbNewLine & ex.InnerException.StackTrace))
            Console.ReadLine()

        Finally

            If Not IIsSvc Is Nothing Then IIsSvc.Dispose()

        End Try

    End Sub

End Module