the basic code..u still need to work on this (i.e error checking, etc). Try looking up the ADSI section at
http://www.15seconds.com for more help and code snippets.
Also the originial *.vbs files can be easily modifed to work with ASP.
*ps: if you're interested in taking this further i.e. developing a custom NT panel professionally kindly contact me offline
- - - -
NextInst = server next instance number (you can also script a procedure to automatically get the next server instance number)
Ipadd = ip address
portnum = 80
hostheader = if any host header it goes in here
sTruepath = foldpaer path .. ie. c:\inetpub\xxx
Response.Write "Creating the New Site.."
Set IIsNewObj = WebServerObj.Create ("IIsWebServer", NextInst)
IIsNewObj.ServerComment = "ServerComment"
IIsNewObj.ServerBindings = IpAdd&":"&PortNum&":"&HostHeader
IIsNewObj.SetInfo
Response.Write "Creating Site Root..."
set IIsNewRootObj = IIsNewObj.Create("IIsWebVirtualDir", "Root")
IIsNewRootObj.Path = sTruePath
IIsNewRootObj.SetInfo