Http://blog.9cbs.net/iuhxq/archive/2004/12/20/222367.aspx' ost ********************************** ****************************** Create a webserver '' must parameter: Wroot, for the physical directory of the site; WComment For the site description; WPORT is the site port; ServerRun is automatically run '' When the creation is successful, the prompt is prompted and returned to 0, and returns 2 '' ******* when the site is successful but the startup fails ******************************************************** *************** Note: WPORT is the List type, meaning server port ************ '' This function passes on IIS5.0 ** Must log in as an administrator ** 'port example:' 'DIM WPORT, BINDLISTS, CREATEFLAG, OComputer' 'OComputer = "localhost"' binglists = array (0) '' binglists (0) = ": 80: "'' port number 80 '' wport = binglists' '' createflag = CreateWebserver (" D: / MyWeb "," My Home ", WPORT, FALSE '' Call Building Function '' 'IF Creatflag = 0 Then' 'Response.write "creates a site failed! Please determine if there is permission"' 'Elseif CreateFlag = 1 Then' 'response.write "creates a site success!"' Elseif Createflag = 2 Then '' response.write "creates a site successfully, But the startup site failed, possible port conflict! "'End if' *************************************************** ************************************ About FTP The creation of the site I have published in the ASP version, please have interest to see yourself
Function CreateWeb Server (Wroot, WComment, Wport, Serverrun) on Error Resume Next Dim ServiceObj, Serverobj, Vdirobj Set ServiceObj = getObject ("IIS: //" & OboTer & "W3SVC") '' Create a service instance
WNumber = 1 Do While IsObject (ServiceObj.GetObject ( "IIsWebServer", WNumber)) If Err.number <> 0 Then Err.Clear () Exit Do End If WNumber = WNumber 1 LoopSet ServerObj = ServiceObj.Create ( "IIsWebServer" Wnumber) '' and create a web server
If (Err.Number <> 0) THEN '' error '' response.write "error: Create a web server ADSI operation failed!" CREATEWEBSERVER = 0 exit function endiff
'' Configuring server serverobj.serversize = 1 '' medium size serverobj.servercomment = wcomment '' Description Serverobj.ServerBindings = WPORT 'port serverobj.enableDefaultdoc = TRUE
'' Submit information serverobj.setInfo
'' Finally, establish a virtual directory set vdirobj = serverobj.create ("IisWebVirtualdir", "root")
If (Err.Number <> 0) THEN '' error '' response.write "error: Create a virtual directory ADSI operation failed!" CREATEWEBSERVER = 0 exit function endiff
'' Configure virtual directory VDirObj.Path = WRoot VDirObj.AccessRead = True VDirObj.AccessWrite = True VDirObj.EnableDirBrowsing = False VDirObj.EnableDefaultDoc = True VDirObj.Accessscript = True VDirObj.AppCreate2 2 VDirObj.AppFriendlyName = "default application" VDirObj. SetInfo
IF serverrun = true kilobj.startiff (Err.Number <> 0) Then '' Error! '' Response.Write "Error: An error occurred while starting the server manually start WebServer!" & WComment & CreateWebServer = 2 Exit Function End If End If Set VDirObj = Nothing Set ServerObj = Nothing Set ServiceObj = Nothing CreateWebServer = 1 End "
!" FUNCTION
