Front Page and ADSI

I created a small script to create new virtual web servers in IIS. Everything works fine except for one thing. I cannot get Front Page Server Extensions to work on a site created with ADSI. If I open the IIS MMC there isn't even an option to "Create Front Page Web". Does anyone know how to fix this?

Sub MakeWebSite(domain As Variant, index As Variant, sitename As Variant, homedir As Variant, ipBindings As Variant)

Set WebServerObj = GetObject("IIS://" & domain & "/W3SVC")
Set NewWebSite = WebServerObj.Create("IIsWebServer", index)
NewWebSite.FrontPageWeb = True
NewWebSite.ServerComment = sitename
NewWebSite.DefaultDoc = "index.htm,index.html,index.shtml,default.htm,default.html,default.asp,index.asp"
NewWebSite.ServerBindings = ipBindings
NewWebSite.SetInfo

Set NewWebRoot = NewWebSite.Create("IIsWebVirtualDir", "Root")
NewWebRoot.Path = homedir
NewWebRoot.SetInfo


Set WebServerObj = Nothing
Set NewWebSite = Nothing
Set NewWebRoot = Nothing

End Sub
[1124 byte] By [squallgmn] at [2007-11-17 14:28:03]