我正在使用一个卸载程序,该程序必须检查IIS中是否存在Web应用程序/虚拟目录,如果存在,则将其删除。现在,我正在使用VBScript检查虚拟目录是否存在,
Function VDirExists( name )
Dim objIIS
If IsEmpty(name) Or IsNull(name) Or Len(name) = 0 Then
VDirExists = False
Exit Function
End If
On Error Resume Next
Set objIIS = GetObject( "IIS://localhost/W3SVC/1/Root/" & name )
If Err.Number = 0 Then
VDirExists = True
Else
Err.Clear
VDirExists = False
End If
'MsgBox " VDIR Exists IIS: " & VDirExists & "Name :" & name
End Function
要删除虚拟目录,我使用以下代码,
set objW3SVC = getObject("IIS://localhost/W3SVC/1/Root")
objVirtualDir = objW3SVC.Delete("IISWebVirtualDir", "AppName")
问题是这似乎已过时,并且在未启用IIS 6管理兼容性窗口功能的Windows服务器/计算机中不起作用。有没有一种方法可以使用C#或WIX来实现。是否有适用于所有版本或IIS或Windows服务器的.NET代码?