zoukankan
html css js c++ java
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里经常看到这种代码。
查看全文
相关阅读:
Linux与Mac通信
练习
删除重复文件
解压压缩文件
查询压缩文件的大小
修改文件夹和文件名字
删除文件和文件夹
移动文件和文件夹
shutil复制文件夹
shutil复制文件
原文地址:https://www.cnblogs.com/LCX/p/421285.html
最新文章
AngularJS的除date外的其它 过滤器
2020软件工程个人作业06——软件工程实践总结作业
2020软件工程作业05
问题清单
2020软件工程作业04
2020软件工程作业03
2020软件工程作业02
2020软件工程作业01
Markdown 学习
python3修改pip源
热门文章
sql语句
redis中的缓存
集群,分布式,与soa
Mybatis与jdbc区别
常用的正则表达式
注解的定义和使用
Java类加载器
java常见的面试题
常见的sql优化
解决idea创建maven web加载过慢问题
Copyright © 2011-2022 走看看