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是使用超级用户控制的
谢谢
  

解决方案 »

  1.   

    引用一个 Active DS IIS Extension Dll
      

  2.   

    http://www.lqwl.com
    针对广大网管对服务器管理的需要,我们推出了砺青服务器管理组件。本组件提供了对服务器上IIS,DNS,FTP帐号, IMail邮局, Mssql,MySql数据库进行管理的基本编程接口。
    WScript.exe执行VBS创建站点
    http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=95969编程实现在IIS建立WEB虚拟目录和FTP虚拟目录
    http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=25685!!!求创建iis虚拟目录的vbs代码
    http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=65801关于IIS配置信息存放的位置及备份的问题
    http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=172091脚本删除IIS中Web虚拟站点
    http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=184927如何在一个vbs中判断虚拟目录是否已经存在
    http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=17163参考资料
    能不能帮我找些关于多个主机头绑定的资料
    我试验一直没有成功