会员
周边
众包
新闻
博问
闪存
赞助商
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
大力
世界多么美好,我却如此暴燥
博客园
首页
新随笔
联系
管理
订阅
VBS的疑惑,它们不考虑效率吗?
VBS建立站点代码
Function
CreateWebServer(strServerComment,arrServerBindings,strMaxConnections,strPath)
'
建立站点
On
Error
Resume
Next
Set
objW3svc
=
GetObject
(
"
IIS://LocalHost/W3svc
"
)
intSiteIndex
=
999
Do
While
IsObject
(objW3svc.GetObject(
"
IIsWebServer
"
,intSiteIndex))
If
Err.Number
<>
0
Then
'
Wscript.Echo Err.Description
Err.Clear()
Exit
Do
End
If
intSiteIndex
=
intSiteIndex
-
1
Loop
Set
objIIs
=
objW3svc.Create(
"
IIsWebServer
"
,intSiteIndex)
If
Err.Number
<>
0
Then
Wscript.Echo
"
Error #
"
&
CStr
(Err.Number)
&
"
"
&
Err.Description
Err.Clear()
CreateWebServer
=
0
Exit
Function
End
If
objIIs.ServerSize
=
1
objIIs.ServerComment
=
strServerComment
objIIs.ServerBindings
=
arrServerBindings
objIIs.MaxConnections
=
strMaxConnections
objIIs.EnableDefaultDoc
=
True
objIIs.SetInfo
Set
objIIsWeb
=
objIIs.Create(
"
IIsWebVirtualDir
"
,
"
Root
"
)
If
Err.Number
<>
0
Then
Wscript.Echo
"
Error #
"
&
CStr
(Err.Number)
&
"
"
&
Err.Description
Err.Clear()
CreateWebServer
=
0
Exit
Function
End
If
objIIsWeb.Path
=
strPath
objIIsWeb.AccessRead
=
True
objIIsWeb.AccessWrite
=
False
objIIsWeb.EnableDirBrowsing
=
False
objIIsWeb.EnableDefaultDoc
=
True
objIIsWeb.AccessScript
=
True
objIIsWeb.AppIsolated
=
2
objIIsWeb.AppCreate2
2
objIIsWeb.AppFriendlyName
=
"
默认应用程序
"
objIIsWeb.SetInfo
Set
objW3svc
=
Nothing
Set
objIIs
=
Nothing
Set
objIIsWeb
=
Nothing
CreateWebServer
=
1
End Function
If Err.Number <> 0 Then 在VBS里经常看到这种代码。
posted @
2006-06-09 09:13
大力
阅读(
406
) 评论(
0
)
编辑
收藏
举报
会员力量,点亮园子希望
刷新页面
返回顶部
公告