<% ' 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 %>