用ASP编程控制在IIS建立Web站点的程序代码

**********************************************************************************  
创建一个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:"端口号为80  
    wport=binglists  
    createflag=createwebserver("d:\myweb","我的家园",wport,false)调用建站函数  
　　if creatflag=0 then  
       response.write "创建站点失败！请确定是否有权限"  
    elseif createflag=1 then  
       response.write "创建站点成功！"  
    elseif createflag=2 then  
       response.write "创建站点成功，但启动站点失败，可能端口冲突！"  
    end if  
********************************************************************************  
关于ftp站点的创建我已发表在asp版，请有兴趣的朋友自己去查看  
如有问题，欢迎跟我联系:nonepassby@163.com  

function createwebserver(wroot,wcomment,wport,serverrun)  
on error resume next  
dim serviceobj,serverobj,vdirobj  
set serviceobj = getobject("iis://"&ocomputer&"/w3svc") 首先创建一个服务实例  

wnumber=1  
do while isobject(serviceobj.getobject("iiswebserver",wnumber))  
if err.number<>0 then   
err.clear()  
exit do  
end if  
wnumber=wnumber+1  
loop  

set serverobj = serviceobj.create("iiswebserver", wnumber) 然后创建一个web服务器  

if (err.number <> 0) then 是否出错  
response.write "错误:  创建web服务器的adsi操作失败！"  
createwebserver=0  
exit function  
end if  
    
   接着配置服务器  
  serverobj.serversize = 1    中型大小  
  serverobj.servercomment = wcomment 说明  
  serverobj.serverbindings = wport 端口  
  serverobj.enabledefaultdoc=true  

   提交信息  
  serverobj.setinfo  

   最后，建立虚拟目录  
  set vdirobj = serverobj.create("iiswebvirtualdir", "root")  
      
    if (err.number <> 0) then 是否出错  
response.write "错误:  创建虚拟目录的adsi操作失败！"  
createwebserver=0  
exit function  
    end if  

   配置虚拟目录  
  vdirobj.path = wroot  
  vdirobj.accessread = true  
  vdirobj.accesswrite = true  
  vdirobj.enabledirbrowsing = false  
  vdirobj.enabledefaultdoc=true  
  vdirobj.accessscript=true  
  vdirobj.appcreate2 2  
  vdirobj.appfriendlyname="默认应用程序"  
  vdirobj.setinfo  

  if serverrun = true then  
     serverobj.start  
       if (err.number <> 0) then     error！  
response.write "错误:  起动服务器时出错！请手动启动webserver "&wcomment&"！<br>"  
createwebserver=2  
exit function  
       end if  
  end if  
  set vdirobj=nothing  
  set serverobj=nothing  
  set serviceobj=nothing  
  createwebserver=1  
end function