现在的位置: 首页 > 综合 > 正文

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

2013年09月25日 ⁄ 综合 ⁄ 共 14218字 ⁄ 字号 小 中 大 ⁄ 评论关闭

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

  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

返回
【上篇】
【下篇】

作者:

抱歉!评论已关闭.

返回首页

Copyright © 2013-2018 学步园  保留所有权利.
软文销售 QQ客服：2265327166 点击这里给我发消息（其他合作也可洽谈）
必威体育
必威电竞