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是使用超级用户控制的
谢谢
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是使用超级用户控制的
谢谢
针对广大网管对服务器管理的需要,我们推出了砺青服务器管理组件。本组件提供了对服务器上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参考资料
能不能帮我找些关于多个主机头绑定的资料
我试验一直没有成功