IDC资讯中心
**********************************************************************************
创建一个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
