site.setinfo()
' create application virtual directory
dim sitevdir as directoryentry = site.children.add("root", "iiswebvirtualdir")
sitevdir.properties("appisolated")(0) = 2
sitevdir.properties("path")(0) = pathtoroot
sitevdir.properties("accessflags")(0) = 513
sitevdir.properties("frontpageweb")(0) = 1
sitevdir.properties("approot")(0) = "/lm/w3svc/" + siteid.tostring() + "/root"
'sitevdir.properties("appfriendlyname")(0) = "root"
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")
