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

分类：VB作者：佚名

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

  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#，来源已无法考证。

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。

相关推荐

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 -------------------------------- 数字类型的格式化 --------------------------------     固定格式参数：     General Number 普通数字，如可以用来去掉千位分隔号     format$("100,1
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTime 竟然结果和系统设置的区域语言的日期和时间格式相关。意思是尽管你用诸如 Format(Now, "MM/dd/yyyy")，如果系统的设置格式区域语言的日期和时间格式分隔符是"-",那他还会显示为 MM-dd-yyyy     只有拼凑： <%response.write
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的解决方案直接添加本ApplicationEvents.vb 到工程即可 ‘添加后还需要一个From用来显示错误。如果到这步还不会则需要先打好基础啦 ‘======================================================== ‘以下事件
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，看来我以前没有认真去找这个方法呀。 https://blog.csdn.net/chzjxgd/article/details/6176325 金蝶K3 BOS的插件官方是用VB6编写的，如果  能用.Net下的语言工具开发BOS插件是一件很愉快的事情，其中缘由不言而喻，而本文则是个人首创，实现在了用V
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m As Range, tmpStr As String, s As String Dim x As Integer, y As Integer, subStr As String If MsgBox("确定要分列处理吗？请确定分列的数据会覆盖它后面的单元格！", _
VB文件 hash 查看器
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) 2 Dim path As String, hash As String 3 For Each fil
VB.NET MYSQL DataGridView 增删改查INSERT,SELECT,UPDATE,DELETE
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS Dim conString As String = "Server=localhost;Database=net2;Uid=root;Pwd=123456;" Dim con As New MySqlConnection
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Dim Sql As String Dim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim S As String   S = "Provider=OraOLEDB.Oracl
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class Form1 Dim A(254) As String    Function ping(ByVal IP As Integer) As String Dim IPAddress As String IPAddress = "10.0.
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5494084 Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Pr
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时候所有的验证信息都存放在一个数组里 Dim CheckUserInfo() As String ={UserBirthday, SecEmail, UserMob, UserSex, RealNameFirst, RealName, CheckCardID, CheckCardType, Contactemail
VB如何连接SQL Server数据库
在VB6.0中，数据访问接口有三种： 1、ActiveX数据对象（ADO） 2、远程数据对象（RDO） 3、数据访问对象（DAO） 1.使用ADO（ActiveX Data Objec，ActiveX数据对象）连接SQL Server 1）使用ADO控件连接 使用ADO控件的ConnectionString属性就可以连接SQL Server，该属性包含一个由分号分隔的argument=value语
Visual Basic 6.0VB6.0详细安装过程
注：大家如果没有VB6.0的安装文件，可自行百度一下下载，一般文件大小在200M左右的均为完整版的软件，可以使用。   特别提示：安装此软件的时候最好退出360杀毒软件（包括360安全卫士，电脑管家等，如果电脑上有这些软件的话），因为现如今的360杀毒软件直接会对VB6.0软件误报，这样的话就可能会在安装过程中被误报阻止而导致安装失败，或者是安装后缺乏很多必须的组件（其它的杀毒软件或安全卫士之类的
使用VB6读取数据库资源并发送邮件原创
Private Sub Form_Load() Call conndb End Sub Private Function conndb() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strCn, sql As String Dim db_host As String Dim db_user As String
POS VB
  PPSM06S70:  Add  moddate  EDITSPRINTJOB:  MAX(TO_CHAR(ETRN.MODDATE, ‘yyyy/mm/dd/HH24:MI AM‘)) ACTUAL_SHIPDATE   4.Test Scenario (1) ：Query SQL Test DN:8016578337 SELECT CTRN.TKCTID TRUCK_ID,        
vb.net 水晶報表CrystalReport 動態設定資料庫來源
  沒有出現CrystalReportViewer時,須安裝CRforVS_13_0. 新增1個數據集,新增1個數據表,添加二列,列名要和資料庫名一樣. 修改目標Framework 修改app.config, <startup >改成<startup useLegacyV2RuntimeActivationPolicy ="true">  CrystalReport1.rpt增加數據庫專家 在表單
VB.net 与线程
Imports System.Threading Imports System Public Class Form1 Dim th1, th2 As Thread Public Sub Method1() Dim i As Integer For i = 1 To 100 If Me.Label1.BackColor =
vb.net Process32First和Module32First
Friend Const PROCESS_ALL_ACCESS = &H1F0FFF = 2035711 Friend Const PROCESS_VM_READ = &H10 Friend Const PROCESS_VM_WRITE = &H20 Friend Const PAGE_READONLY = &H2 Friend Const PAGE_READWRITE = &H4 Friend
vb.net 分割byte数组的方法SplitBytes
以下代码随手写的 并没有大量测试 效率也有待提升 如果需要C#的请自行转换 Function SplitBytes(Data As Byte(), Delimiter As Byte()) As List(Of Byte()) Dim i = 0 Dim List As New List(Of Byte()) Dim bytes As New
VB.NET连接SQL_Server实例
Imports System.Data.SqlClient Public Class Form1 REM Public conn1 As SqlConnection = New SqlConnection("server=.; Integrated Security=False;Initial Catalog= mydatabase1; User ID= sa;password")
pythonJavaScriptjavaHTMLPHPreactjsC#AndroidCSSNode.jssqlrpython-3.xMysqLjQueryc++pandasFlutterangularIOSdjangolinuxswifttypescript路由器JSON路由器设置无线路由器h3c华三华三路由器设置华三路由器电脑软件教程arraysdocker软件图文教程Cvue.jslaravelspring-boot