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里经常看到这种代码。
查看全文
相关阅读:
【WebGoat笔记】 CrossSite Scripting(XSS)
SQL注入测试工具:Pangolin(穿山甲)
SQL注入测试工具:Pangolin(穿山甲)
js取两日期差,包含周六周日?
CrossSite Scripting(XSS): 跨站脚本攻击介绍
apmserv虚拟主机不能用set_time_limit(0);
名称 不是有效的标识符 sql
最佳的75个安全测试工具
fzu 1686(DLX 重复点覆盖)
hdu 3529(DLX)
原文地址:https://www.cnblogs.com/LCX/p/421285.html
最新文章
Oracle内部错误:ORA00600[kgskdecrstat1]一例
Oracle内部视图:x$ktfbue
DataGuard与异构平台
Script:列出没有主键或唯一索引的表
Script:收集ASM诊断信息
了解Oracle Critical Patch Update
C读取网页
Babel插件开发
Oracle 好书 07 ( undo 表空间管理 )
oracle 好书 08( 用户,权限和角色管理 )
热门文章
head first java ( 18章 )
RMAN Complete Recovery
head first java ( 16章 )
oracle好书(10章 闩锁,锁定和并发)
head first java ( 14章 )
head first java ( 17 章 )
head first java ( 15 章 )
UltraEdit 设置
最佳的75个安全测试工具
【WebGoat笔记】 CrossSite Scripting(XSS)
Copyright © 2011-2022 走看看