''*******************************************************
'' 创建一个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版，请有兴趣的朋友自己去查看
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
