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 = […]