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)