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里经常看到这种代码。
查看全文
相关阅读:
Angular 项目打包之后,部署到服务器,刷新访问404解决方法
C# yield return; yield break;
C#获取枚举描述
21、uwp UI自动化测试(WinAppDriver)
20、uwp打包失败(All app package manifests in a bundle must declare the same values under the XPath *[local-name()='Package']/*[local-name()='Dependencies'])
19、UWP 新特性(Creator Update)
18、利用 Windows Device Portal 获取用户闪退 dump
17、uwp 打包失败记录
爱奇艺招聘uwp开发
16、C++获取磁盘空间的方法
原文地址:https://www.cnblogs.com/LCX/p/421285.html
最新文章
LeetCode题解【题2】:两数相加
Spring MVC原理简要概括
MVC中model、dao、view、controlller、service之间的关系
linux下android sdk安装使用
Android meun
将pip源更换到国内镜像
css3 选择器
js 冒泡 捕获
tornado ThreadPoolExecutor
node.js
热门文章
python fabric使用 http://fabric-chs.readthedocs.io/zh_CN/chs/tutorial.html
python3带参数的装饰器 函数参数类型检查
python 写文件
Navicat 无法使用 root 用户连接 mysql
.net core 使用GB2312
.net core二维码生成
HttpClientFactory删除
C# 对List取交集、差集以及并集
SqlServer查询字段属于哪个表
C# httpPost
Copyright © 2011-2022 走看看