Subdominios

Subdominios en Asp

Para aquéllos que les gusta probar de todo, les dejamos el código siguiente para testarlo. <%  ‘ User DatastrUserID=”bob”strServer=”server”strRoot=”c:\inetpub\wwwroot\”strDomain=”.somedomain.com”  ‘ Create Users FolderSet fso = CreateObject(“Scripting.FileSystemObject”)Set f = fso.CreateFolder(strRoot&strUserID)  ‘ Setup Connections To IISset locatorObj = CreateObject(“WbemScripting.SWbemLocator”) set providerObj = locatorObj.ConnectServer(strServer,”root/MicrosoftIISv2″)set serviceObj = providerObj.Get(“IIsWebService=’W3SVC’”)   ‘ Set Site DataBindings = Array(0,0)Set Bindings(0) = providerObj.get(“ServerBinding”).SpawnInstance_()Bindings(0).IP = …

Subdominios en Asp Leer más »