آرشیو برای دی ۳۰م, ۱۳۸۴

Create Subdomain

۲ روزه روی سایت myweb.ir کارمیکنم خیلی دنبال کدی می گشتم که بشه باهاش روی IIS ساب دومین درست کرد . تو ۱۰ هزارجا گشتم پیدا کردم  !

strUserID=”ali”
strServer=”server”
strRoot=”c:\inetpub\wwwroot\”
strDomain=”.myweb.ir”
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set f = fso.CreateFolder(strRootstrUserID)
set locatorObj = CreateObject(“WbemScripting.SWbemLocator”)
set providerObj = locatorObj.ConnectServer(strServer,”root/MicrosoftIISv2″)
set serviceObj = providerObj.Get(“IIsWebService=’W3SVC’”)
Bindings = Array(0,0)
Set Bindings(0) = providerObj.get(“ServerBinding”).SpawnInstance_()
Bindings(0).IP = “”
Bindings(0).Port = “80″
Bindings(0).Hostname = strUserIDstrDomain
Set Bindings(1) = providerObj.get(“ServerBinding”).SpawnInstance_()
Bindings(1).IP = “”
Bindings(1).Port = “80″
Bindings(1).Hostname = “www.”strUserIDstrDomain
strSiteObjPath = serviceObj.CreateNewSite(strUserID, Bindings, strRootstrUserID)
Set objPath = CreateObject(“WbemScripting.SWbemObjectPath”)
objPath.Path = strSiteObjPath
strSitePath = objPath.Keys.Item(“”)
Set serverObj = providerObj.Get(strSiteObjPath)
serverObj.Start


 

لینک ثابت | نظرات (۰) | ۳۰ دی ۱۳۸۴