vb使用adsi控制IIS的问题

zzqiang5201 2004-12-03 04:27:15
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是使用超级用户控制的
谢谢

...全文
117 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
笨狗先飞 2004-12-03
  • 打赏
  • 举报
回复
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

参考资料


能不能帮我找些关于多个主机头绑定的资料
我试验一直没有成功
zzqiang5201 2004-12-03
  • 打赏
  • 举报
回复
是不是在工程引用那边?请教一下要引用那些组件呢?
zzqiang5201 2004-12-03
  • 打赏
  • 举报
回复
这个要怎么操作呢?如何引用?
不好意思,我只学过一些vb基本的知识,应用软件开发没接触过,谢谢
笨狗先飞 2004-12-03
  • 打赏
  • 举报
回复
引用一个 Active DS IIS Extension Dll
笨狗先飞 2004-12-03
  • 打赏
  • 举报
回复
你没有引用IIS开发组件吧

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧