Problem beim automatisiertn erstellen einer Website

Hallo NG,

ich versuche derzeit ein Programm zu schreiben mit dem es möglich ist
eine Website zu erstellen.

Dabei versuche ich mit folgendem Code am IIS die Website einzurichten:

Public Shared Function CreateWebSite(ByVal webSiteName As String, ByVal
pathToRoot As String, ByVal WebserverIP As String, ByVal Hostheader As
String, ByVal WebserverName As String) As WebSite
Dim root As DirectoryEntry = New DirectoryEntry("IIS://" & WebserverName &
"/W3SVC")
' Find unused ID value for new web site
Dim siteID As Integer = 1
Dim e As DirectoryEntry
For Each e In root.Children
If e.SchemaClassName = "IIsWebServer" Then
Dim ID As Integer = Convert.ToInt32(e.Name)
If ID >= siteID Then
siteID = ID + 1
End If
End If
Next
' Create the root directory and welcome html file
CreatePhysicalDirectory(pathToRoot, webSiteName)
' Create web site
Dim site As New WebSite(CType(root.Invoke("Create", "IIsWebServer", siteID),
DirectoryEntry))
site.ServerComment = webSiteName
Dim NewBinding(1)
site.ServerBindings = WebserverIP & ":80:" + Hostheader
'Startet Web
site.ServerState = 2
' site.LogFlags.LogExtFileFlags = 340871
site.FrontPageWeb = 0
site.DefaultDoc = "Default.aspx"
site.ServerAutoStart = 1
' site.ServerSize = 1
site.SetInfo()
' Create application virtual directory
Dim siteVDir As DirectoryEntry = site.Children.Add("Root",
"IISWebVirtualDir")
siteVDir.Properties("AppIsolated")(0) = 0
siteVDir.Properties("Path")(0) = pathToRoot
''siteVDir.Properties("AccessFlags")(0) = 30231
'siteVDir.Properties("AccessFlags")(0) = 535
siteVDir.Properties("AccessScript")(0) = 1
siteVDir.Properties("FrontPageWeb")(0) = 0
siteVDir.Properties("AppRoot")(0) = "/LM/W3SVC/" + siteID.ToString() +
"/Root"
siteVDir.Properties("AppFriendlyName")(0) = webSiteName
siteVDir.CommitChanges()
site.CommitChanges()
siteVDir.Close()
site.Close()
' Create temp virtual directory on Default Web Site
Dim deRoot As New DirectoryEntry("IIS://localhost/W3SVC/1/Root")
deRoot.RefreshCache()
Dim deNewVDir As DirectoryEntry =
deRoot.Children.Add(webSiteName.Replace("."c, "-"c), "IIsWebVirtualDir")
deNewVDir.Properties("Path")(0) = pathToRoot
''deNewVDir.Properties("AccessFlags")(0) = 30231
'deNewVDir.Properties("AccessFlags")(0) = 535
deNewVDir.Properties("FrontPageWeb")(0) = 0
deNewVDir.Properties("AccessScript")(0) = 1
deNewVDir.CommitChanges()
deRoot.CommitChanges()
'Create a Application
deNewVDir.Invoke("AppCreate", True)
'Save Changes
deNewVDir.CommitChanges()
deRoot.CommitChanges()
deNewVDir.Close()
deRoot.Close()
Return site
End Function


nach dem die Seite erstellt ist und ich auf die Seite von ausserhalb
(Internet) zufreifen möchte bekomme ich die meldung:

Under ConstructionDie Site, die Sie besuchen möchten, hat zurzeit keine
Standardseite. Möglicherweise wird sie gerade aktualisiert.


----------------------------------------------------------------------------
----

Versuchen Sie es später nochmal mit dieser Site. Falls das Problem weiterhin
besteht, wenden Sie sich an den Websiteadministrator.

Rufe ich aber die Seite über den localhost auf wird diese ohne Probleme
angezeigt.
Ein Ping auf die URL wird ihne Probleme ausgeführt.
Lege ich die Seite von Hand an, mit genau den selben einstellungen wie das
Programm vornimmt, funzt die seite ohne Probleme.

Hab ich in dem Code eine Einstellung vorgenommen die man nicht über die
Oberfläche des IIS einstellen kann ???



Bitte dringendst um Hilfe


Gruß Achim



.

Relevant Pages

  • Problem beim automatisierten erstellen einer Website
    ... Public Shared Function CreateWebSite(ByVal webSiteName As String, ... ' Find unused ID value for new web site ... Dim e As DirectoryEntry ...
    (microsoft.public.de.german.entwickler.dotnet.vb)
  • Re: ADFS Development Issues
    ... Public Function IsUserAuthenticated(ByVal strAdPath As String, ... On Apr 22, 5:23 am, "Joe Kaplan" ... You can use that to build a directoryentry to use as the search root. ... user's credentials. ...
    (microsoft.public.windows.server.active_directory)
  • DirectoryServices Add/Remove Manager to Direct Report
    ... public void AddDirectReport(string ManagerAlias, string UserAlias) ... DirectoryEntry deDirectReport = GetUser; ... this.SetProperty(deDirectReport, "manager", this.GetProperty(deManager, ... code is running fine with this account on my staging environment. ...
    (microsoft.public.dotnet.languages.csharp)
  • Re: FTP maximum password attempts
    ... I did the IPSec stuff last week due to a new string of attacks... ... public void GetBlock ... foreach (DirectoryEntry IIS in root.Children) ... null, IPSecurity, null); ...
    (microsoft.public.inetserver.iis.security)