VB.Net控制IIS的完整源代码

 每段都是一个文件，代码如下：

1. Imports System
2. Imports System.DirectoryServices
3. Imports System.Collections
5. Namespace OPS.Component
6.     ' IISWebServer的状态 
7.     Public Enum IISServerState
8.         Starting = 1
9.         Started = 2
10.         Stopping = 3
11.         Stopped = 4
12.         Pausing = 5
13.         Paused = 6
14.         Continuing = 7
15.     End Enum
16. End Namespace

 

1. Imports System
2. Imports System.Collections
3. Imports System.Collections.Generic
4. Imports System.Text
6. Imports System.DirectoryServices
8. Namespace OPS.Component
9.     'IISWebServer 
10.     Public Class IISWebServer
11.         Friend index As Integer = -1
12.         Public WebVirtualDirs As IISWebVirtualDirCollection
13.         ''' <summary> 
14.         ''' 网站说明 
15.         ''' </summary> 
16.         Public ServerComment As String = "Way"
17.         ''' <summary> 
18.         ''' 脚本支持 
19.         ''' </summary> 
20.         Public AccessScript As Boolean = True
21.         ''' <summary> 
22.         ''' 读取 
23.         ''' </summary> 
24.         Public AccessRead As Boolean = True
25.         ''' <summary> 
26.         ''' 物理路径 
27.         ''' </summary> 
28.         Public Path As String = "c:/"
29.         ''' <summary> 
30.         ''' 端口 
31.         ''' </summary> 
32.         Public Port As Integer = 80
33.         ''' <summary> 
34.         ''' 目录浏览 
35.         ''' </summary> 
36.         Public EnableDirBrowsing As Boolean = False
37.         ''' <summary> 
38.         ''' 默认文档 
39.         ''' </summary> 
40.         Public DefaultDoc As String = "index.aspx"
41.         ''' <summary> 
42.         ''' 使用默认文档 
43.         ''' </summary> 
44.         Public EnableDefaultDoc As Boolean = True
45.         ''' <summary> 
46.         ''' IISWebServer的状态 
47.         ''' </summary> 
48.         Public ReadOnly Property ServerState() As IISServerState
49.             Get
50.                 Dim server As DirectoryEntry = IISManagement.returnIISWebserver(Me.index)
51.                 If server Is Nothing Then
52.                     Throw (New Exception("找不到此IISWebServer"))
53.                 End If
54.                 Select Case server.Properties("ServerState")(0).ToString()
55.                     Case "2"
56.                         Return IISServerState.Started
57.                     Case "4"
58.                         Return IISServerState.Stopped
59.                     Case "6"
60.                         Return IISServerState.Paused
61.                 End Select
62.                 Return IISServerState.Stopped
63.             End Get
64.         End Property
66.         ''' <summary> 
67.         ''' 停止IISWebServer 
68.         ''' </summary> 
69.         Public Sub [Stop]()
70.             Dim Server As DirectoryEntry
71.             If index = -1 Then
72.                 Throw (New Exception("在IIS找不到此IISWebServer!"))
73.             End If
74.             Try
75.                 Server = New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC/" + index)
76.                 If Server IsNot Nothing Then
77.                     Server.Invoke("stop", New Object(-1) {})
78.                 Else
79.                     Throw (New Exception("在IIS找不到此IISWebServer!"))
80.                 End If
81.             Catch
82.                 Throw (New Exception("在IIS找不到此IISWebServer!"))
83.             End Try
84.         End Sub
86.         ''' <summary> 
87.         ''' 把基本信息的更改更新到IIS 
88.         ''' </summary> 
89.         Public Sub CommitChanges()
90.             IISManagement.EditIISWebServer(Me)
91.         End Sub
93.         ''' <summary> 
94.         ''' 启动IISWebServer 
95.         ''' </summary> 
96.         Public Sub Start()
97.             If index = -1 Then
98.                 Throw (New Exception("在IIS找不到此IISWebServer!"))
99.             End If
101.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
102.             Dim Server As DirectoryEntry
103.             Dim ie As IEnumerator = Service.Children.GetEnumerator()
105.             While ie.MoveNext()
106.                 Server = DirectCast(ie.Current, DirectoryEntry)
107.                 If Server.SchemaClassName = "IIsWebServer" Then
108.                     If Server.Properties("Serverbindings")(0).ToString() = ":" + Me.Port + ":" Then
109.                         Server.Invoke("stop", New Object(-1) {})
110.                     End If
111.                 End If
112.             End While
114.             Try
115.                 Server = New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC/" + index)
116.                 If Server IsNot Nothing Then
117.                     Server.Invoke("start", New Object(-1) {})
118.                 Else
119.                     Throw (New Exception("在IIS找不到此IISWebServer!"))
120.                 End If
121.             Catch
122.                 Throw (New Exception("在IIS找不到此IISWebServer!"))
123.             End Try
124.         End Sub
126.         Public Sub New()
127.             WebVirtualDirs = New IISWebVirtualDirCollection(Me)
128.         End Sub
129.     End Class
130. End Namespace

 

 

1. Imports System
2. Imports System.Collections
3. Imports System.Collections.Generic
4. Imports System.Text
6. Namespace OPS.Component
7.     ''' <summary> 
8.     ''' IISWebServerCollection 
9.     ''' </summary> 
10.     Public Class IISWebServerCollection
11.         Inherits CollectionBase
12.         Default Public ReadOnly Property Item(ByVal Index As Integer) As IISWebServer
13.             Get
14.                 Return DirectCast(Me.List(Index), IISWebServer)
16.             End Get
17.         End Property
19.         Default Public ReadOnly Property Item(ByVal ServerComment As String) As IISWebServer
20.             Get
21.                 ServerComment = ServerComment.ToLower().Trim()
22.                 Dim list As IISWebServer
23.                 For i As Integer = 0 To Me.List.Count - 1
24.                     list = DirectCast(Me.List(i), IISWebServer)
25.                     If list.ServerComment.ToLower().Trim() = ServerComment Then
26.                         Return list
27.                     End If
28.                 Next
29.                 Return Nothing
30.             End Get
31.         End Property
33.         Friend Sub Add_(ByVal WebServer As IISWebServer)
34.             Me.List.Add(WebServer)
35.         End Sub
36.         Public Sub Add(ByVal WebServer As IISWebServer)
37.             Try
38.                 Me.List.Add(WebServer)
39.                 IISManagement.CreateIISWebServer(WebServer)
40.             Catch
41.                 Throw (New Exception("发生意外错误，可能是某节点将该节点的上级节点作为它自己的子级插入"))
42.             End Try
44.         End Sub
46.         ''' <summary> 
47.         ''' 是否包含指定的网站 
48.         ''' </summary> 
49.         ''' <param name="ServerComment"></param> 
50.         ''' <returns></returns> 
51.         Public Function Contains(ByVal ServerComment As String) As Boolean
52.             ServerComment = ServerComment.ToLower().Trim()
53.             For i As Integer = 0 To Me.List.Count - 1
54.                 Dim server As IISWebServer = Me(i)
55.                 If server.ServerComment.ToLower().Trim() = ServerComment Then
56.                     Return True
57.                 End If
58.             Next
59.             Return False
60.         End Function
62.         ''' <summary> 
63.         ''' 是否包含指定的网站 
64.         ''' </summary> 
65.         ''' <param name="index"></param> 
66.         ''' <returns></returns> 
67.         Public Function Contains(ByVal index As Integer) As Boolean
68.             For i As Integer = 0 To Me.List.Count - 1
69.                 Dim server As IISWebServer = Me(i)
70.                 If server.index = index Then
71.                     Return True
72.                 End If
73.             Next
74.             Return False
75.         End Function
77.         Public Sub AddRange(ByVal WebServers As IISWebServer())
78.             For i As Integer = 0 To WebServers.GetUpperBound(0)
79.                 Add(WebServers(i))
80.             Next
81.         End Sub
83.         Public Sub Remove(ByVal WebServer As IISWebServer)
84.             For i As Integer = 0 To Me.List.Count - 1
85.                 If DirectCast(Me.List(i), IISWebServer) = WebServer Then
86.                     Me.List.RemoveAt(i)
87.                     Return
88.                 End If
89.             Next
90.             IISManagement.RemoveIISWebServer(WebServer.index)
91.         End Sub
92.     End Class
93. End Namespace

 

 

1. Imports System
2. Imports System.Collections.Generic
3. Imports System.Text
5. Namespace OPS.Component
6.     ''' <summary> 
7.     ''' IISWebVirtualDir 
8.     ''' </summary> 
9.     Public Class IISWebVirtualDir
10.         Public Parent As IISWebServer = Nothing
11.         ''' <summary> 
12.         ''' 虚拟目录名称 
13.         ''' </summary> 
14.         Public Name As String = "Way"
15.         ''' <summary> 
16.         ''' 读取 
17.         ''' </summary> 
18.         Public AccessRead As Boolean = True
19.         ''' <summary> 
20.         ''' 脚本支持 
21.         ''' </summary> 
22.         Public AccessScript As Boolean = True
23.         ''' <summary> 
24.         ''' 物理路径 
25.         ''' </summary> 
26.         Public Path As String = "c:/"
27.         ''' <summary> 
28.         ''' 默认文档 
29.         ''' </summary> 
30.         Public DefaultDoc As String = "index.aspx"
31.         ''' <summary> 
32.         ''' 使用默认文档 
33.         ''' </summary> 
34.         Public EnableDefaultDoc As Boolean = True
35.         ''' <summary> 
36.         ''' 所属的网站的网站说明 
37.         ''' </summary> 
38.         Public WebServer As String = ""
39.         Public Sub New(ByVal WebServerName As String)
40.             If WebServerName.ToString() = "" Then
41.                 Throw (New Exception("WebServerName不能为空!"))
42.             End If
43.             Me.WebServer = WebServerName
44.         End Sub
46.         Public Sub New()
48.         End Sub
49.     End Class
50. End Namespace

 

 

1. Imports System
2. Imports System.Collections
3. Imports System.Collections.Generic
4. Imports System.Text
6. Namespace OPS.Component
7.     ''' <summary> 
8.     ''' IISWebVirtualDirCollection 
9.     ''' </summary> 
10.     Public Class IISWebVirtualDirCollection
11.         Inherits CollectionBase
13.         Public Parent As IISWebServer = Nothing
14.         Default Public ReadOnly Property Item(ByVal Index As Integer) As IISWebVirtualDir
15.             Get
16.                 Return DirectCast(Me.List(Index), IISWebVirtualDir)
18.             End Get
19.         End Property
21.         Default Public ReadOnly Property Item(ByVal Name As String) As IISWebVirtualDir
22.             Get
23.                 Name = Name.ToLower()
24.                 Dim list As IISWebVirtualDir
25.                 For i As Integer = 0 To Me.List.Count - 1
26.                     list = DirectCast(Me.List(i), IISWebVirtualDir)
27.                     If list.Name.ToLower() = Name Then
28.                         Return list
29.                     End If
30.                 Next
31.                 Return Nothing
32.             End Get
33.         End Property
35.         Friend Sub Add_(ByVal WebVirtualDir As IISWebVirtualDir)
36.             Try
37.                 Me.List.Add(WebVirtualDir)
38.             Catch
39.                 Throw (New Exception("发生意外错误，可能是某节点将该节点的上级节点作为它自己的子级插入"))
40.             End Try
42.         End Sub
44.         Public Sub Add(ByVal WebVirtualDir As IISWebVirtualDir)
45.             WebVirtualDir.Parent = Me.Parent
46.             Try
47.                 Me.List.Add(WebVirtualDir)
49.             Catch
50.                 Throw (New Exception("发生意外错误，可能是某节点将该节点的上级节点作为它自己的子级插入"))
51.             End Try
52.             IISManagement.CreateIISWebVirtualDir(WebVirtualDir, True)
54.         End Sub
56.         Public Sub AddRange(ByVal WebVirtualDirs As IISWebVirtualDir())
57.             For i As Integer = 0 To WebVirtualDirs.GetUpperBound(0)
58.                 Add(WebVirtualDirs(i))
59.             Next
60.         End Sub
62.         Public Sub Remove(ByVal WebVirtualDir As IISWebVirtualDir)
63.             For i As Integer = 0 To Me.List.Count - 1
64.                 If DirectCast(Me.List(i), IISWebVirtualDir) = WebVirtualDir Then
65.                     Me.List.RemoveAt(i)
66.                     IISManagement.RemoveIISWebVirtualDir(WebVirtualDir)
67.                     Return
68.                 End If
69.             Next
70.         End Sub
72.         Public Sub New(ByVal Parent As IISWebServer)
73.             Me.Parent = Parent
74.         End Sub
75.     End Class
76. End Namespace

 

 

1. Imports System
2. Imports System.Collections
3. Imports System.Collections.Generic
4. Imports System.Text
5. Imports System.DirectoryServices
7. Namespace OPS.Component
8.     ''' <summary> 
9.     ''' IISManagement 的摘要说明。
10.     ''' </summary> 
11.     Public Class IISManagement
12.         Public WebServers As New IISWebServerCollection()
13.         Friend Shared Machinename As String = "localhost"
15.         Public Sub New()
16.             start()
17.         End Sub
19.         ''' <param name="MachineName">机器名,默认值为localhost</param> 
20.         Public Sub New(ByVal MachineName__1 As String)
21.             If MachineName__1.ToString() <> "" Then
22.                 Machinename = MachineName__1
23.             End If
24.             start()
25.         End Sub
27.         Private Sub start()
28.             Dim Service As New DirectoryEntry("IIS://" + Machinename + "/W3SVC")
29.             Dim Server As DirectoryEntry
30.             Dim Root As DirectoryEntry = Nothing
31.             Dim VirDir As DirectoryEntry
32.             Dim ie As IEnumerator = Service.Children.GetEnumerator()
33.             Dim ieRoot As IEnumerator
34.             Dim item As IISWebServer
35.             Dim item_virdir As IISWebVirtualDir
36.             Dim finded As Boolean = False
37.             While ie.MoveNext()
38.                 Server = DirectCast(ie.Current, DirectoryEntry)
39.                 If Server.SchemaClassName = "IIsWebServer" Then
40.                     item = New IISWebServer()
41.                     item.index = Convert.ToInt32(Server.Name)
43.                     item.ServerComment = DirectCast(Server.Properties("ServerComment")(0), String)
44.                     item.AccessRead = CBool(Server.Properties("AccessRead")(0))
45.                     item.AccessScript = CBool(Server.Properties("AccessScript")(0))
46.                     item.DefaultDoc = DirectCast(Server.Properties("DefaultDoc")(0), String)
47.                     item.EnableDefaultDoc = CBool(Server.Properties("EnableDefaultDoc")(0))
48.                     item.EnableDirBrowsing = CBool(Server.Properties("EnableDirBrowsing")(0))
49.                     ieRoot = Server.Children.GetEnumerator()
51.                     While ieRoot.MoveNext()
52.                         Root = DirectCast(ieRoot.Current, DirectoryEntry)
53.                         If Root.SchemaClassName = "IIsWebVirtualDir" Then
54.                             finded = True
55.                             Exit While
56.                         End If
57.                     End While
58.                     If finded Then
59.                         item.Path = Root.Properties("path")(0).ToString()
60.                     End If
62.                     item.Port = Convert.ToInt32(DirectCast(Server.Properties("Serverbindings")(0), String).Substring(1, (DirectCast(Server.Properties("Serverbindings")(0), String)).Length - 2))
63.                     Me.WebServers.Add_(item)
64.                     ieRoot = Root.Children.GetEnumerator()
65.                     While ieRoot.MoveNext()
66.                         VirDir = DirectCast(ieRoot.Current, DirectoryEntry)
67.                         If VirDir.SchemaClassName <> "IIsWebVirtualDir" AndAlso VirDir.SchemaClassName <> "IIsWebDirectory" Then
68.                             Continue While
69.                         End If
70.                         item_virdir = New IISWebVirtualDir(item.ServerComment)
71.                         item_virdir.Name = VirDir.Name
72.                         item_virdir.AccessRead = CBool(VirDir.Properties("AccessRead")(0))
73.                         item_virdir.AccessScript = CBool(VirDir.Properties("AccessScript")(0))
74.                         item_virdir.DefaultDoc = DirectCast(VirDir.Properties("DefaultDoc")(0), String)
75.                         item_virdir.EnableDefaultDoc = CBool(VirDir.Properties("EnableDefaultDoc")(0))
76.                         If VirDir.SchemaClassName = "IIsWebVirtualDir" Then
77.                             item_virdir.Path = DirectCast(VirDir.Properties("Path")(0), String)
78.                         ElseIf VirDir.SchemaClassName = "IIsWebDirectory" Then
79.                             item_virdir.Path = Root.Properties("Path")(0) + "/" + VirDir.Name
80.                         End If
81.                         item.WebVirtualDirs.Add_(item_virdir)
82.                     End While
83.                 End If
84.             End While
85.         End Sub
86.         ''' <summary> 
87.         ''' 创建站点
88.         ''' </summary> 
89.         ''' <param name="iisServer"></param> 
90.         Public Shared Sub CreateIISWebServer(ByVal iisServer As IISWebServer)
91.             If iisServer.ServerComment.ToString() = "" Then
92.                 Throw (New Exception("IISWebServer的ServerComment不能为空!"))
93.             End If
94.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
95.             Dim Server As DirectoryEntry
96.             Dim i As Integer = 0
97.             Dim ie As IEnumerator = Service.Children.GetEnumerator()
99.             While ie.MoveNext()
100.                 Server = DirectCast(ie.Current, DirectoryEntry)
101.                 If Server.SchemaClassName = "IIsWebServer" Then
102.                     If Convert.ToInt32(Server.Name) > i Then
103.                         i = Convert.ToInt32(Server.Name)
104.                     End If
105.                 End If
106.             End While
108.             i += 1
110.             Try
111.                 iisServer.index = i
112.                 Server = Service.Children.Add(i.ToString(), "IIsWebServer")
113.                 Server.Properties("ServerComment")(0) = iisServer.ServerComment
114.                 Server.Properties("Serverbindings").Add(":" + iisServer.Port + ":")
115.                 Server.Properties("AccessScript")(0) = iisServer.AccessScript
116.                 Server.Properties("AccessRead")(0) = iisServer.AccessRead
117.                 Server.Properties("EnableDirBrowsing")(0) = iisServer.EnableDirBrowsing
118.                 Server.Properties("DefaultDoc")(0) = iisServer.DefaultDoc
119.                 Server.Properties("EnableDefaultDoc")(0) = iisServer.EnableDefaultDoc
121.                 Dim root As DirectoryEntry = Server.Children.Add("Root", "IIsWebVirtualDir")
122.                 root.Properties("path")(0) = iisServer.Path
125.                 Service.CommitChanges()
126.                 Server.CommitChanges()
127.                 root.CommitChanges()
128.                 root.Invoke("AppCreate2", New Object(0) {2})
129.                 'Server.Invoke("start",new object[0]); 
130.             Catch es As Exception
131.                 Throw (es)
132.             End Try
133.         End Sub
134.         ''' <summary> 
135.         ''' 删除IISWebServer 
136.         ''' </summary> 
137.         Public Shared Sub RemoveIISWebServer(ByVal ServerComment As String)
138.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
139.             Dim Server As DirectoryEntry
140.             Dim ie As IEnumerator = Service.Children.GetEnumerator()
142.             ServerComment = ServerComment.ToLower()
143.             While ie.MoveNext()
144.                 Server = DirectCast(ie.Current, DirectoryEntry)
145.                 If Server.SchemaClassName = "IIsWebServer" Then
146.                     If Server.Properties("ServerComment")(0).ToString().ToLower() = ServerComment Then
147.                         Service.Children.Remove(Server)
148.                         Service.CommitChanges()
149.                         Return
150.                     End If
151.                 End If
152.             End While
153.         End Sub
154.         ''' <summary> 
155.         ''' 删除IISWebServer 
156.         ''' </summary> 
157.         Public Shared Sub RemoveIISWebServer(ByVal index As Integer)
158.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
159.             Try
160.                 Dim Server As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC/" + index)
161.                 If Server IsNot Nothing Then
162.                     Service.Children.Remove(Server)
163.                     Service.CommitChanges()
164.                 Else
165.                     Throw (New Exception("找不到此IISWebServer"))
166.                 End If
167.             Catch
168.                 Throw (New Exception("找不到此IISWebServer"))
169.             End Try
170.         End Sub
171.         ''' <summary> 
172.         ''' 检查是否存在IISWebServer 
173.         ''' </summary> 
174.         ''' <param name="ServerComment">网站说明</param> 
175.         ''' <returns></returns> 
176.         Public Shared Function ExistsIISWebServer(ByVal ServerComment As String) As Boolean
177.             ServerComment = ServerComment.Trim()
178.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
179.             Dim Server As DirectoryEntry = Nothing
180.             Dim ie As IEnumerator = Service.Children.GetEnumerator()
182.             Dim comment As String
183.             While ie.MoveNext()
184.                 Server = DirectCast(ie.Current, DirectoryEntry)
185.                 If Server.SchemaClassName = "IIsWebServer" Then
186.                     comment = Server.Properties("ServerComment")(0).ToString().ToLower().Trim()
187.                     If comment = ServerComment.ToLower() Then
188.                         Return True
189.                     End If
190.                 End If
191.             End While
193.             Return False
194.         End Function
195.         ''' <summary> 
196.         ''' 返回指定的IISWebServer 
197.         ''' </summary> 
198.         ''' <param name="ServerComment"></param> 
199.         ''' <returns></returns> 
200.         Friend Shared Function returnIISWebserver(ByVal ServerComment As String) As DirectoryEntry
201.             ServerComment = ServerComment.Trim()
202.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
203.             Dim Server As DirectoryEntry = Nothing
204.             Dim ie As IEnumerator = Service.Children.GetEnumerator()
206.             Dim comment As String
207.             While ie.MoveNext()
208.                 Server = DirectCast(ie.Current, DirectoryEntry)
209.                 If Server.SchemaClassName = "IIsWebServer" Then
210.                     comment = Server.Properties("ServerComment")(0).ToString().ToLower().Trim()
211.                     If comment = ServerComment.ToLower() Then
212.                         Return Server
213.                     End If
214.                 End If
215.             End While
217.             Return Nothing
218.         End Function
219.         ''' <summary> 
220.         ''' 返回指定的IISWebServer 
221.         ''' </summary> 
222.         ''' <param name="index"></param> 
223.         ''' <returns></returns> 
224.         Friend Shared Function returnIISWebserver(ByVal index As Integer) As DirectoryEntry
225.             Dim Server As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC/" + index)
226.             Try
227.                 Dim ie As IEnumerator = Server.Children.GetEnumerator()
228.                 Return Server
229.             Catch
230.                 Return Nothing
231.             End Try
232.         End Function
234.         Private Shared Function getRoot(ByVal Server As DirectoryEntry) As DirectoryEntry
235.             For Each child As DirectoryEntry In Server.Children
236.                 Dim name As String = child.Name.ToLower()
237.                 If name = "iiswebvirtualdir" OrElse name = "root" Then
238.                     Return child
239.                 End If
240.             Next
241.             Return Nothing
242.         End Function
243.         ''' <summary> 
244.         ''' 修改与给定的IISWebServer具有相同网站说明的站点配置
245.         ''' </summary> 
246.         ''' <param name="iisServer">给定的IISWebServer</param> 
247.         Public Shared Sub EditIISWebServer(ByVal iisServer As IISWebServer)
248.             If iisServer.index = -1 Then
249.                 Throw (New Exception("找不到给定的站点!"))
250.             End If
251.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
252.             Dim Server As DirectoryEntry
254.             Dim ie As IEnumerator = Service.Children.GetEnumerator()
256.             While ie.MoveNext()
257.                 Server = DirectCast(ie.Current, DirectoryEntry)
258.                 If Server.SchemaClassName = "IIsWebServer" Then
259.                     If Server.Properties("Serverbindings")(0).ToString() = ":" + iisServer.Port + ":" Then
260.                         Server.Invoke("stop", New Object(-1) {})
261.                     End If
262.                 End If
263.             End While
265.             Server = returnIISWebserver(iisServer.index)
266.             If Server Is Nothing Then
267.                 Throw (New Exception("找不到给定的站点!"))
268.             End If
270.             Try
272.                 Server.Properties("ServerComment")(0) = iisServer.ServerComment
273.                 Server.Properties("Serverbindings")(0) = ":" + iisServer.Port + ":"
274.                 Server.Properties("AccessScript")(0) = iisServer.AccessScript
275.                 Server.Properties("AccessRead")(0) = iisServer.AccessRead
276.                 Server.Properties("EnableDirBrowsing")(0) = iisServer.EnableDirBrowsing
277.                 Server.Properties("DefaultDoc")(0) = iisServer.DefaultDoc
278.                 Server.Properties("EnableDefaultDoc")(0) = iisServer.EnableDefaultDoc
280.                 Dim root As DirectoryEntry = getRoot(Server)
282.                 Server.CommitChanges()
283.                 If root IsNot Nothing Then
284.                     root.Properties("path")(0) = iisServer.Path
285.                     root.CommitChanges()
286.                 End If
288.                 Server.Invoke("start", New Object(-1) {})
289.             Catch es As Exception
290.                 Throw (es)
291.             End Try
292.         End Sub
293.         ''' <summary> 
294.         ''' 返回所有站点的网站说明
295.         ''' </summary> 
296.         ''' <returns></returns> 
297.         Public Shared Function returnIISServerComment() As ArrayList
298.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
299.             Dim Server As DirectoryEntry
301.             Dim list As New ArrayList()
302.             Dim ie As IEnumerator = Service.Children.GetEnumerator()
304.             While ie.MoveNext()
305.                 Server = DirectCast(ie.Current, DirectoryEntry)
306.                 If Server.SchemaClassName = "IIsWebServer" Then
307.                     list.Add(Server.Properties("ServerComment")(0))
308.                 End If
309.             End While
311.             Return list
312.         End Function
314.         ''' <summary> 
315.         ''' 创建虚拟目录
316.         ''' </summary> 
317.         ''' <param name="iisVir"></param> 
318.         ''' <param name="deleteIfExist"></param> 
319.         Public Shared Sub CreateIISWebVirtualDir(ByVal iisVir As IISWebVirtualDir, ByVal deleteIfExist As Boolean)
320.             If iisVir.Parent Is Nothing Then
321.                 Throw (New Exception("IISWebVirtualDir没有所属的IISWebServer!"))
322.             End If
324.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
325.             Dim Server As DirectoryEntry = returnIISWebserver(iisVir.Parent.index)
327.             If Server Is Nothing Then
328.                 Throw (New Exception("找不到给定的站点!"))
329.             End If
331.             Server = getRoot(Server)
332.             If deleteIfExist Then
333.                 For Each VirDir As DirectoryEntry In Server.Children
334.                     If VirDir.Name.ToLower().Trim() = iisVir.Name.ToLower() Then
335.                         Server.Children.Remove(VirDir)
336.                         Server.CommitChanges()
337.                         Exit For
338.                     End If
339.                 Next
340.             End If
342.             Try
343.                 Dim vir As DirectoryEntry
344.                 vir = Server.Children.Add(iisVir.Name, "IIsWebVirtualDir")
345.                 vir.Properties("Path")(0) = iisVir.Path
346.                 vir.Properties("DefaultDoc")(0) = iisVir.DefaultDoc
347.                 vir.Properties("EnableDefaultDoc")(0) = iisVir.EnableDefaultDoc
348.                 vir.Properties("AccessScript")(0) = iisVir.AccessScript
349.                 vir.Properties("AccessRead")(0) = iisVir.AccessRead
350.                 vir.Invoke("AppCreate2", New Object(0) {2})
352.                 Server.CommitChanges()
353.                 vir.CommitChanges()
355.             Catch es As Exception
356.                 Throw (es)
357.             End Try
359.         End Sub
360.         ''' <summary> 
361.         ''' 删除虚拟目录
362.         ''' </summary> 
363.         ''' <param name="WebServerComment">站点说明</param> 
364.         ''' <param name="VirtualDir">虚拟目录名称</param> 
365.         Public Shared Sub RemoveIISWebVirtualDir(ByVal WebServerComment As String, ByVal VirtualDir As String)
366.             VirtualDir = VirtualDir.ToLower()
367.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
368.             Dim Server As DirectoryEntry = returnIISWebserver(WebServerComment)
370.             If Server Is Nothing Then
371.                 Throw (New Exception("找不到给定的站点!"))
372.             End If
374.             Server = getRoot(Server)
375.             For Each VirDir As DirectoryEntry In Server.Children
376.                 If VirDir.Name.ToLower().Trim() = VirtualDir Then
377.                     Server.Children.Remove(VirDir)
378.                     Server.CommitChanges()
379.                     Return
380.                 End If
381.             Next
383.             Throw (New Exception("找不到给定的虚拟目录!"))
384.         End Sub
386.         ''' 删除虚拟目录
387.         Public Shared Sub RemoveIISWebVirtualDir(ByVal iisVir As IISWebVirtualDir)
388.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
389.             Dim Server As DirectoryEntry = returnIISWebserver(iisVir.Parent.index)
391.             If Server Is Nothing Then
392.                 Throw (New Exception("找不到给定的站点!"))
393.             End If
395.             Server = getRoot(Server)
396.             For Each VirDir As DirectoryEntry In Server.Children
397.                 If VirDir.Name.ToLower().Trim() = iisVir.Name.ToLower() Then
398.                     Server.Children.Remove(VirDir)
399.                     Server.CommitChanges()
400.                     Return
401.                 End If
402.             Next
404.             Throw (New Exception("找不到给定的虚拟目录!"))
405.         End Sub
406.     End Class
408. End Namespace

PS：参考版为C#，来源已无法考证。