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
'site.keytype = "iiswebserver"
site.serverbindings = ":80:" + websitename
site.maxbandwidth = "1048576"
site.serverstate = 2
site.logflags.logextfileflags = 340871
site.frontpageweb = 1
'site.defaultdoc = "default.aspx"
'site.securebindings = ":443:" + websitename
site.serverautostart = 1
site.serversize = 1
