'********************************************************************************** 
' 创建一个WebServer 
' 必须参数:WRoot,为创建站点的物理目录;WComment为站点说明;WPort为站点端口;ServerRun为是否自动运行 
' 当创建成功时返回1,失败时提示退出并返回0,当创建站点成功但启动失败时返回2 
'********************************************************************************** 
'   
'******************注意:WPort为List类型,意为服务器端口,*************** 
'  本函数在IIS5.0上通过,**必须以管理员身份登录** 
' 端口举例: 
' Dim WPort,bindlists,createflag,oComputer 
' oComputer="LocalHost" 
' binglists=Array(0) 
' binglists(0)=":80:...[ 查看全文 ]