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

VB 前端之家
前端之家收集整理的这篇文章主要介绍了VB.Net控制IIS的完整源代码，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

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

  1. ImportsSystem
  2. ImportsSystem.DirectoryServices
  3. ImportsSystem.Collections
  5. NamespaceOPS.Component
  6. 'IISWebServer的状态
  7. PublicEnumIISServerState
  8. Starting=1
  9. Started=2
  10. Stopping=3
  11. Stopped=4
  12. Pausing=5
  13. Paused=6
  14. Continuing=7
  15. EndEnum
  16. EndNamespace
  1. ImportsSystem
  2. ImportsSystem.Collections
  3. ImportsSystem.Collections.Generic
  4. ImportsSystem.Text
  6. ImportsSystem.DirectoryServices
  8. NamespaceOPS.Component
  9. 'IISWebServer
  10. PublicClassIISWebServer
  11. FriendindexAsInteger=-1
  12. PublicWebVirtualDirsAsIISWebVirtualDirCollection
  13. '''<summary>
  14. '''网站说明
  15. '''</summary>
  16. PublicServerCommentAsString="Way"
  17. '''<summary>
  18. '''脚本支持
  19. '''</summary>
  20. PublicAccessScriptAsBoolean=True
  21. '''<summary>
  22. '''读取
  23. '''</summary>
  24. PublicAccessReadAsBoolean=True
  25. '''<summary>
  26. '''物理路径
  27. '''</summary>
  28. PublicPathAsString="c:/"
  29. '''<summary>
  30. '''端口
  31. '''</summary>
  32. PublicPortAsInteger=80
  33. '''<summary>
  34. '''目录浏览
  35. '''</summary>
  36. PublicEnableDirBrowsingAsBoolean=False
  37. '''<summary>
  38. '''默认文档
  39. '''</summary>
  40. PublicDefaultDocAsString="index.aspx"
  41. '''<summary>
  42. '''使用默认文档
  43. '''</summary>
  44. PublicEnableDefaultDocAsBoolean=True
  45. '''<summary>
  46. '''IISWebServer的状态
  47. '''</summary>
  48. PublicReadOnlyPropertyServerState()AsIISServerState
  49. Get
  50. DimserverAsDirectoryEntry=IISManagement.returnIISWebserver(Me.index)
  51. IfserverIsNothingThen
  52. Throw(NewException("找不到此IISWebServer"))
  53. EndIf
  54. SelectCaseserver.Properties("ServerState")(0).ToString()
  55. Case"2"
  56. ReturnIISServerState.Started
  57. Case"4"
  58. ReturnIISServerState.Stopped
  59. Case"6"
  60. ReturnIISServerState.Paused
  61. EndSelect
  62. ReturnIISServerState.Stopped
  63. EndGet
  64. EndProperty
  66. '''<summary>
  67. '''停止IISWebServer
  68. '''</summary>
  69. PublicSub[Stop]()
  70. DimServerAsDirectoryEntry
  71. Ifindex=-1Then
  72. Throw(NewException("在IIS找不到此IISWebServer!"))
  73. EndIf
  74. Try
  75. Server=NewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC/"+index)
  76. IfServerIsNotNothingThen
  77. Server.Invoke("stop",NewObject(-1){})
  78. Else
  79. Throw(NewException("在IIS找不到此IISWebServer!"))
  80. EndIf
  81. Catch
  82. Throw(NewException("在IIS找不到此IISWebServer!"))
  83. EndTry
  84. EndSub
  86. '''<summary>
  87. '''把基本信息的更改更新到IIS
  88. '''</summary>
  89. PublicSubCommitChanges()
  90. IISManagement.EditIISWebServer(Me)
  91. EndSub
  93. '''<summary>
  94. '''启动IISWebServer
  95. '''</summary>
  96. PublicSubStart()
  97. Ifindex=-1Then
  98. Throw(NewException("在IIS找不到此IISWebServer!"))
  99. EndIf
  101. DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
  102. DimServerAsDirectoryEntry
  103. DimieAsIEnumerator=Service.Children.GetEnumerator()
  105. Whileie.MoveNext()
  106. Server=DirectCast(ie.Current,DirectoryEntry)
  107. IfServer.SchemaClassName="IIsWebServer"Then
  108. IfServer.Properties("Serverbindings")(0).ToString()=":"+Me.Port+":"Then
  109. Server.Invoke("stop",NewObject(-1){})
  110. EndIf
  111. EndIf
  112. EndWhile
  114. Try
  115. Server=NewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC/"+index)
  116. IfServerIsNotNothingThen
  117. Server.Invoke("start",NewObject(-1){})
  118. Else
  119. Throw(NewException("在IIS找不到此IISWebServer!"))
  120. EndIf
  121. Catch
  122. Throw(NewException("在IIS找不到此IISWebServer!"))
  123. EndTry
  124. EndSub
  126. PublicSubNew()
  127. WebVirtualDirs=NewIISWebVirtualDirCollection(Me)
  128. EndSub
  129. EndClass
  130. EndNamespace
  1. ImportsSystem
  2. ImportsSystem.Collections
  3. ImportsSystem.Collections.Generic
  4. ImportsSystem.Text
  6. NamespaceOPS.Component
  7. '''<summary>
  8. '''IISWebServerCollection
  9. '''</summary>
  10. PublicClassIISWebServerCollection
  11. InheritsCollectionBase
  12. DefaultPublicReadOnlyPropertyItem(ByValIndexAsInteger)AsIISWebServer
  13. Get
  14. ReturnDirectCast(Me.List(Index),IISWebServer)
  16. EndGet
  17. EndProperty
  19. DefaultPublicReadOnlyPropertyItem(ByValServerCommentAsString)AsIISWebServer
  20. Get
  21. ServerComment=ServerComment.ToLower().Trim()
  22. DimlistAsIISWebServer
  23. ForiAsInteger=0ToMe.List.Count-1
  24. list=DirectCast(Me.List(i),IISWebServer)
  25. Iflist.ServerComment.ToLower().Trim()=ServerCommentThen
  26. Returnlist
  27. EndIf
  28. Next
  29. ReturnNothing
  30. EndGet
  31. EndProperty
  33. FriendSubAdd_(ByValWebServerAsIISWebServer)
  34. Me.List.Add(WebServer)
  35. EndSub
  36. PublicSubAdd(ByValWebServerAsIISWebServer)
  37. Try
  38. Me.List.Add(WebServer)
  39. IISManagement.CreateIISWebServer(WebServer)
  40. Catch
  41. Throw(NewException("发生意外错误，可能是某节点将该节点的上级节点作为它自己的子级插入"))
  42. EndTry
  44. EndSub
  46. '''<summary>
  47. '''是否包含指定的网站
  48. '''</summary>
  49. '''<paramname="ServerComment"></param>
  50. '''<returns></returns>
  51. PublicFunctionContains(ByValServerCommentAsString)AsBoolean
  52. ServerComment=ServerComment.ToLower().Trim()
  53. ForiAsInteger=0ToMe.List.Count-1
  54. DimserverAsIISWebServer=Me(i)
  55. Ifserver.ServerComment.ToLower().Trim()=ServerCommentThen
  56. ReturnTrue
  57. EndIf
  58. Next
  59. ReturnFalse
  60. EndFunction
  62. '''<summary>
  63. '''是否包含指定的网站
  64. '''</summary>
  65. '''<paramname="index"></param>
  66. '''<returns></returns>
  67. PublicFunctionContains(ByValindexAsInteger)AsBoolean
  68. ForiAsInteger=0ToMe.List.Count-1
  69. DimserverAsIISWebServer=Me(i)
  70. Ifserver.index=indexThen
  71. ReturnTrue
  72. EndIf
  73. Next
  74. ReturnFalse
  75. EndFunction
  77. PublicSubAddRange(ByValWebServersAsIISWebServer())
  78. ForiAsInteger=0ToWebServers.GetUpperBound(0)
  79. Add(WebServers(i))
  80. Next
  81. EndSub
  83. PublicSubRemove(ByValWebServerAsIISWebServer)
  84. ForiAsInteger=0ToMe.List.Count-1
  85. IfDirectCast(Me.List(i),IISWebServer)=WebServerThen
  86. Me.List.RemoveAt(i)
  87. Return
  88. EndIf
  89. Next
  90. IISManagement.RemoveIISWebServer(WebServer.index)
  91. EndSub
  92. EndClass
  93. EndNamespace
  1. ImportsSystem
  2. ImportsSystem.Collections.Generic
  3. ImportsSystem.Text
  5. NamespaceOPS.Component
  6. '''<summary>
  7. '''IISWebVirtualDir
  8. '''</summary>
  9. PublicClassIISWebVirtualDir
  10. PublicParentAsIISWebServer=Nothing
  11. '''<summary>
  12. '''虚拟目录名称
  13. '''</summary>
  14. PublicNameAsString="Way"
  15. '''<summary>
  16. '''读取
  17. '''</summary>
  18. PublicAccessReadAsBoolean=True
  19. '''<summary>
  20. '''脚本支持
  21. '''</summary>
  22. PublicAccessScriptAsBoolean=True
  23. '''<summary>
  24. '''物理路径
  25. '''</summary>
  26. PublicPathAsString="c:/"
  27. '''<summary>
  28. '''默认文档
  29. '''</summary>
  30. PublicDefaultDocAsString="index.aspx"
  31. '''<summary>
  32. '''使用默认文档
  33. '''</summary>
  34. PublicEnableDefaultDocAsBoolean=True
  35. '''<summary>
  36. '''所属的网站的网站说明
  37. '''</summary>
  38. PublicWebServerAsString=""
  39. PublicSubNew(ByValWebServerNameAsString)
  40. IfWebServerName.ToString()=""Then
  41. Throw(NewException("WebServerName不能为空!"))
  42. EndIf
  43. Me.WebServer=WebServerName
  44. EndSub
  46. PublicSubNew()
  48. EndSub
  49. EndClass
  50. EndNamespace
  1. ImportsSystem
  2. ImportsSystem.Collections
  3. ImportsSystem.Collections.Generic
  4. ImportsSystem.Text
  6. NamespaceOPS.Component
  7. '''<summary>
  8. '''IISWebVirtualDirCollection
  9. '''</summary>
  10. PublicClassIISWebVirtualDirCollection
  11. InheritsCollectionBase
  13. PublicParentAsIISWebServer=Nothing
  14. DefaultPublicReadOnlyPropertyItem(ByValIndexAsInteger)AsIISWebVirtualDir
  15. Get
  16. ReturnDirectCast(Me.List(Index),IISWebVirtualDir)
  18. EndGet
  19. EndProperty
  21. DefaultPublicReadOnlyPropertyItem(ByValNameAsString)AsIISWebVirtualDir
  22. Get
  23. Name=Name.ToLower()
  24. DimlistAsIISWebVirtualDir
  25. ForiAsInteger=0ToMe.List.Count-1
  26. list=DirectCast(Me.List(i),IISWebVirtualDir)
  27. Iflist.Name.ToLower()=NameThen
  28. Returnlist
  29. EndIf
  30. Next
  31. ReturnNothing
  32. EndGet
  33. EndProperty
  35. FriendSubAdd_(ByValWebVirtualDirAsIISWebVirtualDir)
  36. Try
  37. Me.List.Add(WebVirtualDir)
  38. Catch
  39. Throw(NewException("发生意外错误，可能是某节点将该节点的上级节点作为它自己的子级插入"))
  40. EndTry
  42. EndSub
  44. PublicSubAdd(ByValWebVirtualDirAsIISWebVirtualDir)
  45. WebVirtualDir.Parent=Me.Parent
  46. Try
  47. Me.List.Add(WebVirtualDir)
  49. Catch
  50. Throw(NewException("发生意外错误，可能是某节点将该节点的上级节点作为它自己的子级插入"))
  51. EndTry
  52. IISManagement.CreateIISWebVirtualDir(WebVirtualDir,True)
  54. EndSub
  56. PublicSubAddRange(ByValWebVirtualDirsAsIISWebVirtualDir())
  57. ForiAsInteger=0ToWebVirtualDirs.GetUpperBound(0)
  58. Add(WebVirtualDirs(i))
  59. Next
  60. EndSub
  62. PublicSubRemove(ByValWebVirtualDirAsIISWebVirtualDir)
  63. ForiAsInteger=0ToMe.List.Count-1
  64. IfDirectCast(Me.List(i),IISWebVirtualDir)=WebVirtualDirThen
  65. Me.List.RemoveAt(i)
  66. IISManagement.RemoveIISWebVirtualDir(WebVirtualDir)
  67. Return
  68. EndIf
  69. Next
  70. EndSub
  72. PublicSubNew(ByValParentAsIISWebServer)
  73. Me.Parent=Parent
  74. EndSub
  75. EndClass
  76. EndNamespace
  1. ImportsSystem
  2. ImportsSystem.Collections
  3. ImportsSystem.Collections.Generic
  4. ImportsSystem.Text
  5. ImportsSystem.DirectoryServices
  7. NamespaceOPS.Component
  8. '''<summary>
  9. '''IISManagement的摘要说明。
  10. '''</summary>
  11. PublicClassIISManagement
  12. PublicWebServersAsNewIISWebServerCollection()
  13. FriendSharedMachinenameAsString="localhost"
  15. PublicSubNew()
  16. start()
  17. EndSub
  19. '''<paramname="MachineName">机器名,默认值为localhost</param>
  20. PublicSubNew(ByValMachineName__1AsString)
  21. IfMachineName__1.ToString()<>""Then
  22. Machinename=MachineName__1
  23. EndIf
  24. start()
  25. EndSub
  27. PrivateSubstart()
  28. DimServiceAsNewDirectoryEntry("IIS://"+Machinename+"/W3SVC")
  29. DimServerAsDirectoryEntry
  30. DimRootAsDirectoryEntry=Nothing
  31. DimVirDirAsDirectoryEntry
  32. DimieAsIEnumerator=Service.Children.GetEnumerator()
  33. DimieRootAsIEnumerator
  34. DimitemAsIISWebServer
  35. Dimitem_virdirAsIISWebVirtualDir
  36. DimfindedAsBoolean=False
  37. Whileie.MoveNext()
  38. Server=DirectCast(ie.Current,DirectoryEntry)
  39. IfServer.SchemaClassName="IIsWebServer"Then
  40. item=NewIISWebServer()
  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. WhileieRoot.MoveNext()
  52. Root=DirectCast(ieRoot.Current,DirectoryEntry)
  53. IfRoot.SchemaClassName="IIsWebVirtualDir"Then
  54. finded=True
  55. ExitWhile
  56. EndIf
  57. EndWhile
  58. IffindedThen
  59. item.Path=Root.Properties("path")(0).ToString()
  60. EndIf
  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. WhileieRoot.MoveNext()
  66. VirDir=DirectCast(ieRoot.Current,DirectoryEntry)
  67. IfVirDir.SchemaClassName<>"IIsWebVirtualDir"AndAlsoVirDir.SchemaClassName<>"IIsWebDirectory"Then
  68. ContinueWhile
  69. EndIf
  70. item_virdir=NewIISWebVirtualDir(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. IfVirDir.SchemaClassName="IIsWebVirtualDir"Then
  77. item_virdir.Path=DirectCast(VirDir.Properties("Path")(0),String)
  78. ElseIfVirDir.SchemaClassName="IIsWebDirectory"Then
  79. item_virdir.Path=Root.Properties("Path")(0)+"/"+VirDir.Name
  80. EndIf
  81. item.WebVirtualDirs.Add_(item_virdir)
  82. EndWhile
  83. EndIf
  84. EndWhile
  85. EndSub
  86. '''<summary>
  87. '''创建站点
  88. '''</summary>
  89. '''<paramname="iisServer"></param>
  90. PublicSharedSubCreateIISWebServer(ByValiisServerAsIISWebServer)
  91. IfiisServer.ServerComment.ToString()=""Then
  92. Throw(NewException("IISWebServer的ServerComment不能为空!"))
  93. EndIf
  94. DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
  95. DimServerAsDirectoryEntry
  96. DimiAsInteger=0
  97. DimieAsIEnumerator=Service.Children.GetEnumerator()
  99. Whileie.MoveNext()
  100. Server=DirectCast(ie.Current,DirectoryEntry)
  101. IfServer.SchemaClassName="IIsWebServer"Then
  102. IfConvert.ToInt32(Server.Name)>iThen
  103. i=Convert.ToInt32(Server.Name)
  104. EndIf
  105. EndIf
  106. EndWhile
  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. DimrootAsDirectoryEntry=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",NewObject(0){2})
  129. 'Server.Invoke("start",newobject[0]);
  130. CatchesAsException
  131. Throw(es)
  132. EndTry
  133. EndSub
  134. '''<summary>
  135. '''删除IISWebServer
  136. '''</summary>
  137. PublicSharedSubRemoveIISWebServer(ByValServerCommentAsString)
  138. DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
  139. DimServerAsDirectoryEntry
  140. DimieAsIEnumerator=Service.Children.GetEnumerator()
  142. ServerComment=ServerComment.ToLower()
  143. Whileie.MoveNext()
  144. Server=DirectCast(ie.Current,DirectoryEntry)
  145. IfServer.SchemaClassName="IIsWebServer"Then
  146. IfServer.Properties("ServerComment")(0).ToString().ToLower()=ServerCommentThen
  147. Service.Children.Remove(Server)
  148. Service.CommitChanges()
  149. Return
  150. EndIf
  151. EndIf
  152. EndWhile
  153. EndSub
  154. '''<summary>
  155. '''删除IISWebServer
  156. '''</summary>
  157. PublicSharedSubRemoveIISWebServer(ByValindexAsInteger)
  158. DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
  159. Try
  160. DimServerAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC/"+index)
  161. IfServerIsNotNothingThen
  162. Service.Children.Remove(Server)
  163. Service.CommitChanges()
  164. Else
  165. Throw(NewException("找不到此IISWebServer"))
  166. EndIf
  167. Catch
  168. Throw(NewException("找不到此IISWebServer"))
  169. EndTry
  170. EndSub
  171. '''<summary>
  172. '''检查是否存在IISWebServer
  173. '''</summary>
  174. '''<paramname="ServerComment">网站说明</param>
  175. '''<returns></returns>
  176. PublicSharedFunctionExistsIISWebServer(ByValServerCommentAsString)AsBoolean
  177. ServerComment=ServerComment.Trim()
  178. DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
  179. DimServerAsDirectoryEntry=Nothing
  180. DimieAsIEnumerator=Service.Children.GetEnumerator()
  182. DimcommentAsString
  183. Whileie.MoveNext()
  184. Server=DirectCast(ie.Current,DirectoryEntry)
  185. IfServer.SchemaClassName="IIsWebServer"Then
  186. comment=Server.Properties("ServerComment")(0).ToString().ToLower().Trim()
  187. Ifcomment=ServerComment.ToLower()Then
  188. ReturnTrue
  189. EndIf
  190. EndIf
  191. EndWhile
  193. ReturnFalse
  194. EndFunction
  195. '''<summary>
  196. '''返回指定的IISWebServer
  197. '''</summary>
  198. '''<paramname="ServerComment"></param>
  199. '''<returns></returns>
  200. FriendSharedFunctionreturnIISWebserver(ByValServerCommentAsString)AsDirectoryEntry
  201. ServerComment=ServerComment.Trim()
  202. DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
  203. DimServerAsDirectoryEntry=Nothing
  204. DimieAsIEnumerator=Service.Children.GetEnumerator()
  206. DimcommentAsString
  207. Whileie.MoveNext()
  208. Server=DirectCast(ie.Current,DirectoryEntry)
  209. IfServer.SchemaClassName="IIsWebServer"Then
  210. comment=Server.Properties("ServerComment")(0).ToString().ToLower().Trim()
  211. Ifcomment=ServerComment.ToLower()Then
  212. ReturnServer
  213. EndIf
  214. EndIf
  215. EndWhile
  217. ReturnNothing
  218. EndFunction
  219. '''<summary>
  220. '''返回指定的IISWebServer
  221. '''</summary>
  222. '''<paramname="index"></param>
  223. '''<returns></returns>
  224. FriendSharedFunctionreturnIISWebserver(ByValindexAsInteger)AsDirectoryEntry
  225. DimServerAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC/"+index)
  226. Try
  227. DimieAsIEnumerator=Server.Children.GetEnumerator()
  228. ReturnServer
  229. Catch
  230. ReturnNothing
  231. EndTry
  232. EndFunction
  234. PrivateSharedFunctiongetRoot(ByValServerAsDirectoryEntry)AsDirectoryEntry
  235. ForEachchildAsDirectoryEntryInServer.Children
  236. DimnameAsString=child.Name.ToLower()
  237. Ifname="iiswebvirtualdir"OrElsename="root"Then
  238. Returnchild
  239. EndIf
  240. Next
  241. ReturnNothing
  242. EndFunction
  243. '''<summary>
  244. '''修改与给定的IISWebServer具有相同网站说明的站点配置
  245. '''</summary>
  246. '''<paramname="iisServer">给定的IISWebServer</param>
  247. PublicSharedSubEditIISWebServer(ByValiisServerAsIISWebServer)
  248. IfiisServer.index=-1Then
  249. Throw(NewException("找不到给定的站点!"))
  250. EndIf
  251. DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
  252. DimServerAsDirectoryEntry
  254. DimieAsIEnumerator=Service.Children.GetEnumerator()
  256. Whileie.MoveNext()
  257. Server=DirectCast(ie.Current,DirectoryEntry)
  258. IfServer.SchemaClassName="IIsWebServer"Then
  259. IfServer.Properties("Serverbindings")(0).ToString()=":"+iisServer.Port+":"Then
  260. Server.Invoke("stop",NewObject(-1){})
  261. EndIf
  262. EndIf
  263. EndWhile
  265. Server=returnIISWebserver(iisServer.index)
  266. IfServerIsNothingThen
  267. Throw(NewException("找不到给定的站点!"))
  268. EndIf
  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. DimrootAsDirectoryEntry=getRoot(Server)
  282. Server.CommitChanges()
  283. IfrootIsNotNothingThen
  284. root.Properties("path")(0)=iisServer.Path
  285. root.CommitChanges()
  286. EndIf
  288. Server.Invoke("start",NewObject(-1){})
  289. CatchesAsException
  290. Throw(es)
  291. EndTry
  292. EndSub
  293. '''<summary>
  294. '''返回所有站点的网站说明
  295. '''</summary>
  296. '''<returns></returns>
  297. PublicSharedFunctionreturnIISServerComment()AsArrayList
  298. DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
  299. DimServerAsDirectoryEntry
  301. DimlistAsNewArrayList()
  302. DimieAsIEnumerator=Service.Children.GetEnumerator()
  304. Whileie.MoveNext()
  305. Server=DirectCast(ie.Current,DirectoryEntry)
  306. IfServer.SchemaClassName="IIsWebServer"Then
  307. list.Add(Server.Properties("ServerComment")(0))
  308. EndIf
  309. EndWhile
  311. Returnlist
  312. EndFunction
  314. '''<summary>
  315. '''创建虚拟目录
  316. '''</summary>
  317. '''<paramname="iisVir"></param>
  318. '''<paramname="deleteIfExist"></param>
  319. PublicSharedSubCreateIISWebVirtualDir(ByValiisVirAsIISWebVirtualDir,ByValdeleteIfExistAsBoolean)
  320. IfiisVir.ParentIsNothingThen
  321. Throw(NewException("IISWebVirtualDir没有所属的IISWebServer!"))
  322. EndIf
  324. DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
  325. DimServerAsDirectoryEntry=returnIISWebserver(iisVir.Parent.index)
  327. IfServerIsNothingThen
  328. Throw(NewException("找不到给定的站点!"))
  329. EndIf
  331. Server=getRoot(Server)
  332. IfdeleteIfExistThen
  333. ForEachVirDirAsDirectoryEntryInServer.Children
  334. IfVirDir.Name.ToLower().Trim()=iisVir.Name.ToLower()Then
  335. Server.Children.Remove(VirDir)
  336. Server.CommitChanges()
  337. ExitFor
  338. EndIf
  339. Next
  340. EndIf
  342. Try
  343. DimvirAsDirectoryEntry
  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",NewObject(0){2})
  352. Server.CommitChanges()
  353. vir.CommitChanges()
  355. CatchesAsException
  356. Throw(es)
  357. EndTry
  359. EndSub
  360. '''<summary>
  361. '''删除虚拟目录
  362. '''</summary>
  363. '''<paramname="WebServerComment">站点说明</param>
  364. '''<paramname="VirtualDir">虚拟目录名称</param>
  365. PublicSharedSubRemoveIISWebVirtualDir(ByValWebServerCommentAsString,ByValVirtualDirAsString)
  366. VirtualDir=VirtualDir.ToLower()
  367. DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
  368. DimServerAsDirectoryEntry=returnIISWebserver(WebServerComment)
  370. IfServerIsNothingThen
  371. Throw(NewException("找不到给定的站点!"))
  372. EndIf
  374. Server=getRoot(Server)
  375. ForEachVirDirAsDirectoryEntryInServer.Children
  376. IfVirDir.Name.ToLower().Trim()=VirtualDirThen
  377. Server.Children.Remove(VirDir)
  378. Server.CommitChanges()
  379. Return
  380. EndIf
  381. Next
  383. Throw(NewException("找不到给定的虚拟目录!"))
  384. EndSub
  386. '''删除虚拟目录
  387. PublicSharedSubRemoveIISWebVirtualDir(ByValiisVirAsIISWebVirtualDir)
  388. DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
  389. DimServerAsDirectoryEntry=returnIISWebserver(iisVir.Parent.index)
  391. IfServerIsNothingThen
  392. Throw(NewException("找不到给定的站点!"))
  393. EndIf
  395. Server=getRoot(Server)
  396. ForEachVirDirAsDirectoryEntryInServer.Children
  397. IfVirDir.Name.ToLower().Trim()=iisVir.Name.ToLower()Then
  398. Server.Children.Remove(VirDir)
  399. Server.CommitChanges()
  400. Return
  401. EndIf
  402. Next
  404. Throw(NewException("找不到给定的虚拟目录!"))
  405. EndSub
  406. EndClass
  408. EndNamespace
PS：参考版为C#，来源已无法考证。 原文链接：https://www.f2er.com/vb/264002.html

猜你在找的VB相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积