vb使用adsi控制IIS的问题
Private Sub Command1_Click()
sComputer = "localhost"
sPhyDir = "e:\test\"
sVirDir = "fdsaf"
Set websvc = GetObject("IIS://" & sComputer & "/W3svc/1")
Set vRoot = websvc.GetObject("IIsWebVirtualDir", "Root")
Set ClassDefinition = GetObject(vRoot.Schema)
asMustHaves = ClassDefinition.MandatoryProperties
asMayHaves = ClassDefinition.OptionalProperties
Set vDir = vRoot.Create("IIsWebVirtualDir", sVirDir)
vDir.AccessRead = True
vDir.Path = sPhyDir
vDir.SetInfo
End Sub
就这么简单,Set vDir = vRoot.Create("IIsWebVirtualDir", sVirDir)到这句就出错了,提示什么自动化错误 ,我在asp环境下测试通过的,当然iis是使用超级用户控制的
谢谢