VB 实现对IIS的简单管理
‘建立活动桌面’(IADS)对象,首先要引用 Active DS Type library 组件
Dim
WWWServer
As
IADs, WWWService
As
IADs, WWWVDir, WWWVdirRes
As
IADs
Function
CreateWebSite(
ByVal
WWWSiteName
As String
, _
ByVal
WWWSitePort
As String
, _
ByVal
WWWSitePath
As String
, _
ByVal
WWWHostName
As String
, _
ByVal
ComputerName
As String
)
As Boolean
‘变量定义
Dim
SiteExist
As Boolean
Dim
WebName
‘变量初始化
SiteExist =
False
WebName =
1
CreateWebSite =
True
On Error Resume Next
Err.Clear
‘取得W3SVC服务
Set
WWWService = GetObject(
“IIS://”
& ComputerName &
“/W3SVC”
)
Do While
Err.Number <>
0
Err.Clear
Set
WWWService = GetObject(
“IIS://”
& ComputerName &
“/W3SVC”
)
Loop
Err.Clear
‘出错处理
‘在IIS中查找每一个WEB站点
For Each
WWWServer
In
WWWService
If
UCase(Trim(WWWServer.ServerComment)) <> UCase(Trim(WWWSiteName))
Then
If
IsNumeric(WWWServer.Name)
Then
If CInt
(WWWServer.Name) >= WebName
Then
WebName =
CInt
(WWWServer.Name) +
1
免责声明: 本文仅代表作者个人观点,与无关。其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
相关资料