RecorteX

Escribe aquí el texto

descargar
 
<%
 
' User Data
strUserID="bob"
strServer="server"
strRoot="c:\inetpub\wwwroot\"
strDomain=".somedomain.com"
 
' Create Users Folder
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder(strRoot&strUserID)
 
' Setup Connections To IIS
set locatorObj = CreateObject("WbemScripting.SWbemLocator") 
set providerObj = locatorObj.ConnectServer(strServer,"root/MicrosoftIISv2")
set serviceObj = providerObj.Get("IIsWebService='W3SVC'") 
 
' Set Site Data
Bindings = Array(0,0)
Set Bindings(0) = providerObj.get("ServerBinding").SpawnInstance_()
Bindings(0).IP = ""
Bindings(0).Port = "80"
Bindings(0).Hostname = strUserID&strDomain
Set Bindings(1) = providerObj.get("ServerBinding").SpawnInstance_()
Bindings(1).IP = ""
Bindings(1).Port = "80"
Bindings(1).Hostname = "www."&strUserID&strDomain
 
'Create & Start Site
strSiteObjPath = serviceObj.CreateNewSite(strUserID, Bindings, strRoot&strUserID)
Set objPath = CreateObject("WbemScripting.SWbemObjectPath")
objPath.Path = strSiteObjPath
strSitePath = objPath.Keys.Item("")
Set serverObj = providerObj.Get(strSiteObjPath)
serverObj.Start
 
%>