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

发布时间：2020-12-17 00:31:23 所属栏目：大数据来源：网络整理

导读：每段都是一个文件，代码如下： Imports System Imports System.DirectoryServices Imports System.Collections Namespace OPS.Component 'IISWebServer的状态 Public Enum IISServerState Starting=1 Started=2 Stopping=3 Stopped=4 Pausing=5 Paused=6 Con

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

 
 ImportsSystem
ImportsSystem.DirectoryServices
ImportsSystem.Collections
NamespaceOPS.Component
'IISWebServer的状态 
PublicEnumIISServerState
Starting=1
Started=2
Stopping=3
Stopped=4
Pausing=5
Paused=6
Continuing=7
EndEnum
EndNamespace
 

 
 ImportsSystem
ImportsSystem.Collections
ImportsSystem.Collections.Generic
ImportsSystem.Text
ImportsSystem.DirectoryServices
NamespaceOPS.Component
'IISWebServer 
PublicClassIISWebServer
FriendindexAsInteger=-1
PublicWebVirtualDirsAsIISWebVirtualDirCollection
'''<summary> 
'''网站说明 
'''</summary> 
PublicServerCommentAsString="Way"
'''<summary> 
'''脚本支持 
'''</summary> 
PublicAccessScriptAsBoolean=True
'''<summary> 
'''读取 
'''</summary> 
PublicAccessReadAsBoolean=True
'''<summary> 
'''物理路径 
'''</summary> 
PublicPathAsString="c:/"
'''<summary> 
'''端口 
'''</summary> 
PublicPortAsInteger=80
'''<summary> 
'''目录浏览 
'''</summary> 
PublicEnableDirBrowsingAsBoolean=False
'''<summary> 
'''默认文档 
'''</summary> 
PublicDefaultDocAsString="index.aspx"
'''<summary> 
'''使用默认文档 
'''</summary> 
PublicEnableDefaultDocAsBoolean=True
'''<summary> 
'''IISWebServer的状态 
'''</summary> 
PublicReadOnlyPropertyServerState()AsIISServerState
Get
DimserverAsDirectoryEntry=IISManagement.returnIISWebserver(Me.index)
IfserverIsNothingThen
Throw(NewException("找不到此IISWebServer"))
EndIf
SelectCaseserver.Properties("ServerState")(0).ToString()
Case"2"
ReturnIISServerState.Started
Case"4"
ReturnIISServerState.Stopped
Case"6"
ReturnIISServerState.Paused
EndSelect
ReturnIISServerState.Stopped
EndGet
EndProperty
'''<summary> 
'''停止IISWebServer 
'''</summary> 
PublicSub[Stop]()
DimServerAsDirectoryEntry
Ifindex=-1Then
Throw(NewException("在IIS找不到此IISWebServer!"))
EndIf
Try
Server=NewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC/"+index)
IfServerIsNotNothingThen
Server.Invoke("stop",NewObject(-1){})
Else
Throw(NewException("在IIS找不到此IISWebServer!"))
EndIf
Catch
Throw(NewException("在IIS找不到此IISWebServer!"))
EndTry
EndSub
'''<summary> 
'''把基本信息的更改更新到IIS 
'''</summary> 
PublicSubCommitChanges()
IISManagement.EditIISWebServer(Me)
EndSub
'''<summary> 
'''启动IISWebServer 
'''</summary> 
PublicSubStart()
Ifindex=-1Then
Throw(NewException("在IIS找不到此IISWebServer!"))
EndIf
DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
DimServerAsDirectoryEntry
DimieAsIEnumerator=Service.Children.GetEnumerator()
Whileie.MoveNext()
Server=DirectCast(ie.Current,DirectoryEntry)
IfServer.SchemaClassName="IIsWebServer"Then
IfServer.Properties("Serverbindings")(0).ToString()=":"+Me.Port+":"Then
Server.Invoke("stop",NewObject(-1){})
EndIf
EndIf
EndWhile
Try
Server=NewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC/"+index)
IfServerIsNotNothingThen
Server.Invoke("start",NewObject(-1){})
Else
Throw(NewException("在IIS找不到此IISWebServer!"))
EndIf
Catch
Throw(NewException("在IIS找不到此IISWebServer!"))
EndTry
EndSub
PublicSubNew()
WebVirtualDirs=NewIISWebVirtualDirCollection(Me)
EndSub
EndClass
EndNamespace
 

 
 ImportsSystem
ImportsSystem.Collections
ImportsSystem.Collections.Generic
ImportsSystem.Text
NamespaceOPS.Component
'''<summary> 
'''IISWebServerCollection 
'''</summary> 
PublicClassIISWebServerCollection
InheritsCollectionBase
DefaultPublicReadOnlyPropertyItem(ByValIndexAsInteger)AsIISWebServer
Get
ReturnDirectCast(Me.List(Index),IISWebServer)
EndGet
EndProperty
DefaultPublicReadOnlyPropertyItem(ByValServerCommentAsString)AsIISWebServer
Get
ServerComment=ServerComment.ToLower().Trim()
DimlistAsIISWebServer
ForiAsInteger=0ToMe.List.Count-1
list=DirectCast(Me.List(i),IISWebServer)
Iflist.ServerComment.ToLower().Trim()=ServerCommentThen
Returnlist
EndIf
Next
ReturnNothing
EndGet
EndProperty
FriendSubAdd_(ByValWebServerAsIISWebServer)
Me.List.Add(WebServer)
EndSub
PublicSubAdd(ByValWebServerAsIISWebServer)
Try
Me.List.Add(WebServer)
IISManagement.CreateIISWebServer(WebServer)
Catch
Throw(NewException("发生意外错误，可能是某节点将该节点的上级节点作为它自己的子级插入"))
EndTry
EndSub
'''<summary> 
'''是否包含指定的网站 
'''</summary> 
'''<paramname="ServerComment"></param> 
'''<returns></returns> 
PublicFunctionContains(ByValServerCommentAsString)AsBoolean
ServerComment=ServerComment.ToLower().Trim()
ForiAsInteger=0ToMe.List.Count-1
DimserverAsIISWebServer=Me(i)
Ifserver.ServerComment.ToLower().Trim()=ServerCommentThen
ReturnTrue
EndIf
Next
ReturnFalse
EndFunction
'''<summary> 
'''是否包含指定的网站 
'''</summary> 
'''<paramname="index"></param> 
'''<returns></returns> 
PublicFunctionContains(ByValindexAsInteger)AsBoolean
ForiAsInteger=0ToMe.List.Count-1
DimserverAsIISWebServer=Me(i)
Ifserver.index=indexThen
ReturnTrue
EndIf
Next
ReturnFalse
EndFunction
PublicSubAddRange(ByValWebServersAsIISWebServer())
ForiAsInteger=0ToWebServers.GetUpperBound(0)
Add(WebServers(i))
Next
EndSub
PublicSubRemove(ByValWebServerAsIISWebServer)
ForiAsInteger=0ToMe.List.Count-1
IfDirectCast(Me.List(i),IISWebServer)=WebServerThen
Me.List.RemoveAt(i)
Return
EndIf
Next
IISManagement.RemoveIISWebServer(WebServer.index)
EndSub
EndClass
EndNamespace
 

 
 ImportsSystem
ImportsSystem.Collections.Generic
ImportsSystem.Text
NamespaceOPS.Component
'''<summary> 
'''IISWebVirtualDir 
'''</summary> 
PublicClassIISWebVirtualDir
PublicParentAsIISWebServer=Nothing
'''<summary> 
'''虚拟目录名称 
'''</summary> 
PublicNameAsString="Way"
'''<summary> 
'''读取 
'''</summary> 
PublicAccessReadAsBoolean=True
'''<summary> 
'''脚本支持 
'''</summary> 
PublicAccessScriptAsBoolean=True
'''<summary> 
'''物理路径 
'''</summary> 
PublicPathAsString="c:/"
'''<summary> 
'''默认文档 
'''</summary> 
PublicDefaultDocAsString="index.aspx"
'''<summary> 
'''使用默认文档 
'''</summary> 
PublicEnableDefaultDocAsBoolean=True
'''<summary> 
'''所属的网站的网站说明 
'''</summary> 
PublicWebServerAsString=""
PublicSubNew(ByValWebServerNameAsString)
IfWebServerName.ToString()=""Then
Throw(NewException("WebServerName不能为空!"))
EndIf
Me.WebServer=WebServerName
EndSub
PublicSubNew()
EndSub
EndClass
EndNamespace
 

 
 ImportsSystem
ImportsSystem.Collections
ImportsSystem.Collections.Generic
ImportsSystem.Text
NamespaceOPS.Component
'''<summary> 
'''IISWebVirtualDirCollection 
'''</summary> 
PublicClassIISWebVirtualDirCollection
InheritsCollectionBase
PublicParentAsIISWebServer=Nothing
DefaultPublicReadOnlyPropertyItem(ByValIndexAsInteger)AsIISWebVirtualDir
Get
ReturnDirectCast(Me.List(Index),IISWebVirtualDir)
EndGet
EndProperty
DefaultPublicReadOnlyPropertyItem(ByValNameAsString)AsIISWebVirtualDir
Get
Name=Name.ToLower()
DimlistAsIISWebVirtualDir
ForiAsInteger=0ToMe.List.Count-1
list=DirectCast(Me.List(i),IISWebVirtualDir)
Iflist.Name.ToLower()=NameThen
Returnlist
EndIf
Next
ReturnNothing
EndGet
EndProperty
FriendSubAdd_(ByValWebVirtualDirAsIISWebVirtualDir)
Try
Me.List.Add(WebVirtualDir)
Catch
Throw(NewException("发生意外错误，可能是某节点将该节点的上级节点作为它自己的子级插入"))
EndTry
EndSub
PublicSubAdd(ByValWebVirtualDirAsIISWebVirtualDir)
WebVirtualDir.Parent=Me.Parent
Try
Me.List.Add(WebVirtualDir)
Catch
Throw(NewException("发生意外错误，可能是某节点将该节点的上级节点作为它自己的子级插入"))
EndTry
IISManagement.CreateIISWebVirtualDir(WebVirtualDir,True)
EndSub
PublicSubAddRange(ByValWebVirtualDirsAsIISWebVirtualDir())
ForiAsInteger=0ToWebVirtualDirs.GetUpperBound(0)
Add(WebVirtualDirs(i))
Next
EndSub
PublicSubRemove(ByValWebVirtualDirAsIISWebVirtualDir)
ForiAsInteger=0ToMe.List.Count-1
IfDirectCast(Me.List(i),IISWebVirtualDir)=WebVirtualDirThen
Me.List.RemoveAt(i)
IISManagement.RemoveIISWebVirtualDir(WebVirtualDir)
Return
EndIf
Next
EndSub
PublicSubNew(ByValParentAsIISWebServer)
Me.Parent=Parent
EndSub
EndClass
EndNamespace
 

 
 ImportsSystem
ImportsSystem.Collections
ImportsSystem.Collections.Generic
ImportsSystem.Text
ImportsSystem.DirectoryServices
NamespaceOPS.Component
'''<summary> 
'''IISManagement的摘要说明。 
'''</summary> 
PublicClassIISManagement
PublicWebServersAsNewIISWebServerCollection()
FriendSharedMachinenameAsString="localhost"
PublicSubNew()
start()
EndSub
'''<paramname="MachineName">机器名,默认值为localhost</param> 
PublicSubNew(ByValMachineName__1AsString)
IfMachineName__1.ToString()<>""Then
Machinename=MachineName__1
EndIf
start()
EndSub
PrivateSubstart()
DimServiceAsNewDirectoryEntry("IIS://"+Machinename+"/W3SVC")
DimServerAsDirectoryEntry
DimRootAsDirectoryEntry=Nothing
DimVirDirAsDirectoryEntry
DimieAsIEnumerator=Service.Children.GetEnumerator()
DimieRootAsIEnumerator
DimitemAsIISWebServer
Dimitem_virdirAsIISWebVirtualDir
DimfindedAsBoolean=False
Whileie.MoveNext()
Server=DirectCast(ie.Current,DirectoryEntry)
IfServer.SchemaClassName="IIsWebServer"Then
item=NewIISWebServer()
item.index=Convert.ToInt32(Server.Name)
item.ServerComment=DirectCast(Server.Properties("ServerComment")(0),String)
item.AccessRead=CBool(Server.Properties("AccessRead")(0))
item.AccessScript=CBool(Server.Properties("AccessScript")(0))
item.DefaultDoc=DirectCast(Server.Properties("DefaultDoc")(0),String)
item.EnableDefaultDoc=CBool(Server.Properties("EnableDefaultDoc")(0))
item.EnableDirBrowsing=CBool(Server.Properties("EnableDirBrowsing")(0))
ieRoot=Server.Children.GetEnumerator()
WhileieRoot.MoveNext()
Root=DirectCast(ieRoot.Current,DirectoryEntry)
IfRoot.SchemaClassName="IIsWebVirtualDir"Then
finded=True
ExitWhile
EndIf
EndWhile
IffindedThen
item.Path=Root.Properties("path")(0).ToString()
EndIf
item.Port=Convert.ToInt32(DirectCast(Server.Properties("Serverbindings")(0),String).Substring(1,(DirectCast(Server.Properties("Serverbindings")(0),String)).Length-2))
Me.WebServers.Add_(item)
ieRoot=Root.Children.GetEnumerator()
WhileieRoot.MoveNext()
VirDir=DirectCast(ieRoot.Current,DirectoryEntry)
IfVirDir.SchemaClassName<>"IIsWebVirtualDir"AndAlsoVirDir.SchemaClassName<>"IIsWebDirectory"Then
ContinueWhile
EndIf
item_virdir=NewIISWebVirtualDir(item.ServerComment)
item_virdir.Name=VirDir.Name
item_virdir.AccessRead=CBool(VirDir.Properties("AccessRead")(0))
item_virdir.AccessScript=CBool(VirDir.Properties("AccessScript")(0))
item_virdir.DefaultDoc=DirectCast(VirDir.Properties("DefaultDoc")(0),String)
item_virdir.EnableDefaultDoc=CBool(VirDir.Properties("EnableDefaultDoc")(0))
IfVirDir.SchemaClassName="IIsWebVirtualDir"Then
item_virdir.Path=DirectCast(VirDir.Properties("Path")(0),String)
ElseIfVirDir.SchemaClassName="IIsWebDirectory"Then
item_virdir.Path=Root.Properties("Path")(0)+"/"+VirDir.Name
EndIf
item.WebVirtualDirs.Add_(item_virdir)
EndWhile
EndIf
EndWhile
EndSub
'''<summary> 
'''创建站点 
'''</summary> 
'''<paramname="iisServer"></param> 
PublicSharedSubCreateIISWebServer(ByValiisServerAsIISWebServer)
IfiisServer.ServerComment.ToString()=""Then
Throw(NewException("IISWebServer的ServerComment不能为空!"))
EndIf
DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
DimServerAsDirectoryEntry
DimiAsInteger=0
DimieAsIEnumerator=Service.Children.GetEnumerator()
Whileie.MoveNext()
Server=DirectCast(ie.Current,DirectoryEntry)
IfServer.SchemaClassName="IIsWebServer"Then
IfConvert.ToInt32(Server.Name)>iThen
i=Convert.ToInt32(Server.Name)
EndIf
EndIf
EndWhile
i+=1
Try
iisServer.index=i
Server=Service.Children.Add(i.ToString(),"IIsWebServer")
Server.Properties("ServerComment")(0)=iisServer.ServerComment
Server.Properties("Serverbindings").Add(":"+iisServer.Port+":")
Server.Properties("AccessScript")(0)=iisServer.AccessScript
Server.Properties("AccessRead")(0)=iisServer.AccessRead
Server.Properties("EnableDirBrowsing")(0)=iisServer.EnableDirBrowsing
Server.Properties("DefaultDoc")(0)=iisServer.DefaultDoc
Server.Properties("EnableDefaultDoc")(0)=iisServer.EnableDefaultDoc
DimrootAsDirectoryEntry=Server.Children.Add("Root","IIsWebVirtualDir")
root.Properties("path")(0)=iisServer.Path
Service.CommitChanges()
Server.CommitChanges()
root.CommitChanges()
root.Invoke("AppCreate2",NewObject(0){2})
'Server.Invoke("start",newobject[0]); 
CatchesAsException
Throw(es)
EndTry
EndSub
'''<summary> 
'''删除IISWebServer 
'''</summary> 
PublicSharedSubRemoveIISWebServer(ByValServerCommentAsString)
DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
DimServerAsDirectoryEntry
DimieAsIEnumerator=Service.Children.GetEnumerator()
ServerComment=ServerComment.ToLower()
Whileie.MoveNext()
Server=DirectCast(ie.Current,DirectoryEntry)
IfServer.SchemaClassName="IIsWebServer"Then
IfServer.Properties("ServerComment")(0).ToString().ToLower()=ServerCommentThen
Service.Children.Remove(Server)
Service.CommitChanges()
Return
EndIf
EndIf
EndWhile
EndSub
'''<summary> 
'''删除IISWebServer 
'''</summary> 
PublicSharedSubRemoveIISWebServer(ByValindexAsInteger)
DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
Try
DimServerAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC/"+index)
IfServerIsNotNothingThen
Service.Children.Remove(Server)
Service.CommitChanges()
Else
Throw(NewException("找不到此IISWebServer"))
EndIf
Catch
Throw(NewException("找不到此IISWebServer"))
EndTry
EndSub
'''<summary> 
'''检查是否存在IISWebServer 
'''</summary> 
'''<paramname="ServerComment">网站说明</param> 
'''<returns></returns> 
PublicSharedFunctionExistsIISWebServer(ByValServerCommentAsString)AsBoolean
ServerComment=ServerComment.Trim()
DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
DimServerAsDirectoryEntry=Nothing
DimieAsIEnumerator=Service.Children.GetEnumerator()
DimcommentAsString
Whileie.MoveNext()
Server=DirectCast(ie.Current,DirectoryEntry)
IfServer.SchemaClassName="IIsWebServer"Then
comment=Server.Properties("ServerComment")(0).ToString().ToLower().Trim()
Ifcomment=ServerComment.ToLower()Then
ReturnTrue
EndIf
EndIf
EndWhile
ReturnFalse
EndFunction
'''<summary> 
'''返回指定的IISWebServer 
'''</summary> 
'''<paramname="ServerComment"></param> 
'''<returns></returns> 
FriendSharedFunctionreturnIISWebserver(ByValServerCommentAsString)AsDirectoryEntry
ServerComment=ServerComment.Trim()
DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
DimServerAsDirectoryEntry=Nothing
DimieAsIEnumerator=Service.Children.GetEnumerator()
DimcommentAsString
Whileie.MoveNext()
Server=DirectCast(ie.Current,DirectoryEntry)
IfServer.SchemaClassName="IIsWebServer"Then
comment=Server.Properties("ServerComment")(0).ToString().ToLower().Trim()
Ifcomment=ServerComment.ToLower()Then
ReturnServer
EndIf
EndIf
EndWhile
ReturnNothing
EndFunction
'''<summary> 
'''返回指定的IISWebServer 
'''</summary> 
'''<paramname="index"></param> 
'''<returns></returns> 
FriendSharedFunctionreturnIISWebserver(ByValindexAsInteger)AsDirectoryEntry
DimServerAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC/"+index)
Try
DimieAsIEnumerator=Server.Children.GetEnumerator()
ReturnServer
Catch
ReturnNothing
EndTry
EndFunction
PrivateSharedFunctiongetRoot(ByValServerAsDirectoryEntry)AsDirectoryEntry
ForEachchildAsDirectoryEntryInServer.Children
DimnameAsString=child.Name.ToLower()
Ifname="iiswebvirtualdir"OrElsename="root"Then
Returnchild
EndIf
Next
ReturnNothing
EndFunction
'''<summary> 
'''修改与给定的IISWebServer具有相同网站说明的站点配置 
'''</summary> 
'''<paramname="iisServer">给定的IISWebServer</param> 
PublicSharedSubEditIISWebServer(ByValiisServerAsIISWebServer)
IfiisServer.index=-1Then
Throw(NewException("找不到给定的站点!"))
EndIf
DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
DimServerAsDirectoryEntry
DimieAsIEnumerator=Service.Children.GetEnumerator()
Whileie.MoveNext()
Server=DirectCast(ie.Current,DirectoryEntry)
IfServer.SchemaClassName="IIsWebServer"Then
IfServer.Properties("Serverbindings")(0).ToString()=":"+iisServer.Port+":"Then
Server.Invoke("stop",NewObject(-1){})
EndIf
EndIf
EndWhile
Server=returnIISWebserver(iisServer.index)
IfServerIsNothingThen
Throw(NewException("找不到给定的站点!"))
EndIf
Try
Server.Properties("ServerComment")(0)=iisServer.ServerComment
Server.Properties("Serverbindings")(0)=":"+iisServer.Port+":"
Server.Properties("AccessScript")(0)=iisServer.AccessScript
Server.Properties("AccessRead")(0)=iisServer.AccessRead
Server.Properties("EnableDirBrowsing")(0)=iisServer.EnableDirBrowsing
Server.Properties("DefaultDoc")(0)=iisServer.DefaultDoc
Server.Properties("EnableDefaultDoc")(0)=iisServer.EnableDefaultDoc
DimrootAsDirectoryEntry=getRoot(Server)
Server.CommitChanges()
IfrootIsNotNothingThen
root.Properties("path")(0)=iisServer.Path
root.CommitChanges()
EndIf
Server.Invoke("start",NewObject(-1){})
CatchesAsException
Throw(es)
EndTry
EndSub
'''<summary> 
'''返回所有站点的网站说明 
'''</summary> 
'''<returns></returns> 
PublicSharedFunctionreturnIISServerComment()AsArrayList
DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
DimServerAsDirectoryEntry
DimlistAsNewArrayList()
DimieAsIEnumerator=Service.Children.GetEnumerator()
Whileie.MoveNext()
Server=DirectCast(ie.Current,DirectoryEntry)
IfServer.SchemaClassName="IIsWebServer"Then
list.Add(Server.Properties("ServerComment")(0))
EndIf
EndWhile
Returnlist
EndFunction
'''<summary> 
'''创建虚拟目录 
'''</summary> 
'''<paramname="iisVir"></param> 
'''<paramname="deleteIfExist"></param> 
PublicSharedSubCreateIISWebVirtualDir(ByValiisVirAsIISWebVirtualDir,ByValdeleteIfExistAsBoolean)
IfiisVir.ParentIsNothingThen
Throw(NewException("IISWebVirtualDir没有所属的IISWebServer!"))
EndIf
DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
DimServerAsDirectoryEntry=returnIISWebserver(iisVir.Parent.index)
IfServerIsNothingThen
Throw(NewException("找不到给定的站点!"))
EndIf
Server=getRoot(Server)
IfdeleteIfExistThen
ForEachVirDirAsDirectoryEntryInServer.Children
IfVirDir.Name.ToLower().Trim()=iisVir.Name.ToLower()Then
Server.Children.Remove(VirDir)
Server.CommitChanges()
ExitFor
EndIf
Next
EndIf
Try
DimvirAsDirectoryEntry
vir=Server.Children.Add(iisVir.Name,"IIsWebVirtualDir")
vir.Properties("Path")(0)=iisVir.Path
vir.Properties("DefaultDoc")(0)=iisVir.DefaultDoc
vir.Properties("EnableDefaultDoc")(0)=iisVir.EnableDefaultDoc
vir.Properties("AccessScript")(0)=iisVir.AccessScript
vir.Properties("AccessRead")(0)=iisVir.AccessRead
vir.Invoke("AppCreate2",NewObject(0){2})
Server.CommitChanges()
vir.CommitChanges()
CatchesAsException
Throw(es)
EndTry
EndSub
'''<summary> 
'''删除虚拟目录 
'''</summary> 
'''<paramname="WebServerComment">站点说明</param> 
'''<paramname="VirtualDir">虚拟目录名称</param> 
PublicSharedSubRemoveIISWebVirtualDir(ByValWebServerCommentAsString,ByValVirtualDirAsString)
VirtualDir=VirtualDir.ToLower()
DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
DimServerAsDirectoryEntry=returnIISWebserver(WebServerComment)
IfServerIsNothingThen
Throw(NewException("找不到给定的站点!"))
EndIf
Server=getRoot(Server)
ForEachVirDirAsDirectoryEntryInServer.Children
IfVirDir.Name.ToLower().Trim()=VirtualDirThen
Server.Children.Remove(VirDir)
Server.CommitChanges()
Return
EndIf
Next
Throw(NewException("找不到给定的虚拟目录!"))
EndSub
'''删除虚拟目录 
PublicSharedSubRemoveIISWebVirtualDir(ByValiisVirAsIISWebVirtualDir)
DimServiceAsNewDirectoryEntry("IIS://"+IISManagement.Machinename+"/W3SVC")
DimServerAsDirectoryEntry=returnIISWebserver(iisVir.Parent.index)
IfServerIsNothingThen
Throw(NewException("找不到给定的站点!"))
EndIf
Server=getRoot(Server)
ForEachVirDirAsDirectoryEntryInServer.Children
IfVirDir.Name.ToLower().Trim()=iisVir.Name.ToLower()Then
Server.Children.Remove(VirDir)
Server.CommitChanges()
Return
EndIf
Next
Throw(NewException("找不到给定的虚拟目录!"))
EndSub
EndClass
EndNamespace
 

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!