VB操作IIS添加筛选器代码

Question

vb代码如下：
Dim FiltersObj
Dim LoadOrderSet FiltersObj = GetObject("IIS://LocalHost/W3SVC/Filters")
LoadOrder = FiltersObj.FilterLoadOrder
If LoadOrder <> "" Then
  LoadOrder = LoadOrder & ","
End If
LoadOrder = LoadOrder & "myFilter"
FiltersObj.FilterLoadOrder = LoadOrder
FiltersObj.SetInfoOnce you have gained access to the parent IIsFilters container object, you can
create a new IIsFilter object and set its properties. The following script adds
a new IIsFilter, myFilter, and sets the path and description.Dim FilterObj
Dim FilterNameFilterName = "myFilter"
FilterPath = "C:\iisfilts\myfilter.dll"
FilterDesc = "This is my filter"Set FilterObj = FiltersObj.Create("IIsFilter", FilterName)
FilterObj.FilterPath = FilterPath
FilterObj.FilterDescription = FilterDesc
FilterObj.SetInfo
调试出现问题： 需要对象
错误行： Set FilterObj = FiltersObj.Create("IIsFilter", FilterName)望朋友帮忙改下

Answer 1

等了一天了，有高人出手不？