关于vb操作iis的问题 我在iis下新建了一个虚拟目录,允许写入和执行,允许浏览文件夹vb里面有什么方法可以在iis的这个虚拟目录下面创建文件夹,以及怎么把本地硬盘上的文件复制到虚拟目录里面?(只有10分了,大家帮帮我,谢谢) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 [转帖:参考一下]vbscript自动配置IIS 源程序如下:(已在Win2000通过)strServerName ="localhost"strRootPath="g:\documents" ''虚拟目录路径strVRName="Test" ''虚拟目录名称strDefaultDoc="index.asp" ''起始文档Dim objIIS''MsgBox "IIS://" & strServerName & "/W3SVC/1"On Error Resume NextSet objIIS=GetObject("IIS://" & strServerName & "/W3SVC/1")If err=-2147024893 ThenMsgBox "IIS不存在!" & vbcrlf & "请验证IIS是否已正确安装!",vbcriticalWscript.QuitElseIf err<>0 ThenMsgBox "未知错误!",vbcriticalWscript.QuitEnd IfOn Error GoTo 0Set objVirtualDir=objIIS.GetObject("IISWebVirtualDir","Root")For each VR in objVirtualDirIf VR.Name=strVRName ThenMsgBox "虚拟目录" & strVRName & "已存在!",vbinformationWscript.QuitEnd IfNextOn Error Resume NextSet fs=Wscript.CreateObject("Scripting.FileSystemObject")Set objFolder=fs.GetFolder(strRootPath)If err=76 Then MsgBox "路径" & strRootPath & "不存在!",vbcriticalWscript.QuitEnd IfSet objFolder=nothingSet fs=nothingOn Error GoTo 0On Error Resume NextSet VirDir=objVirtualDir.Create("IISWebVirtualDir",strVRName)VirDir.AccessRead=trueVirDir.Path=strRootPathVirDir.DefaultDoc=VirDir.DefaultDoc & "," & strDefaultDocVirDir.setInfoIf err<>0 ThenMsgBox "创建虚拟目录失败!",vbcriticalElseMsgBox "虚拟目录" & strVRName & "成功创建在服务器" & strServerName & "上!",vbinformationEnd If代码的关键在于创建虚拟目录,及其中的配置:Set VirDir=objVirtualDir.Create("IISWebVirtualDir",strVRName)VirDir.AccessRead=trueVirDir.Path=strRootPathVirDir.DefaultDoc=VirDir.DefaultDoc & "," & strDefaultDocVirDir.setInfo 图片的翻转 请教高手:根据IP分别禁用或启用2块网卡的问题。(!!!!高分酬谢!!!!) 请问:如何在自己写的程序里作记号? 小问题 如何用COMMAND对象执行UPDATE后,知道有几条数据被更新? 杨辉三角的代码是什么 寻找一个问题(医院报表的问题) VB程序利用Webbrowser控件打开某些网页导致程序闪退,求解决办法 如何在局域网上知道其它机器的机器名子 VB画图的保存问题,谢谢。 新手入门,请高人指点字符串的问题 VB 中如何获得treeview中从根结点到叶子结点的路径?
vbscript自动配置IIS
源程序如下:(已在Win2000通过)strServerName ="localhost"
strRootPath="g:\documents" ''虚拟目录路径
strVRName="Test" ''虚拟目录名称
strDefaultDoc="index.asp" ''起始文档Dim objIIS
''MsgBox "IIS://" & strServerName & "/W3SVC/1"On Error Resume Next
Set objIIS=GetObject("IIS://" & strServerName & "/W3SVC/1")If err=-2147024893 Then
MsgBox "IIS不存在!" & vbcrlf & "请验证IIS是否已正确安装!",vbcritical
Wscript.Quit
ElseIf err<>0 Then
MsgBox "未知错误!",vbcritical
Wscript.Quit
End IfOn Error GoTo 0Set objVirtualDir=objIIS.GetObject("IISWebVirtualDir","Root")
For each VR in objVirtualDir
If VR.Name=strVRName Then
MsgBox "虚拟目录" & strVRName & "已存在!",vbinformation
Wscript.Quit
End If
NextOn Error Resume Next
Set fs=Wscript.CreateObject("Scripting.FileSystemObject")
Set objFolder=fs.GetFolder(strRootPath)If err=76 Then
MsgBox "路径" & strRootPath & "不存在!",vbcritical
Wscript.Quit
End IfSet objFolder=nothing
Set fs=nothing
On Error GoTo 0On Error Resume Next
Set VirDir=objVirtualDir.Create("IISWebVirtualDir",strVRName)
VirDir.AccessRead=true
VirDir.Path=strRootPath
VirDir.DefaultDoc=VirDir.DefaultDoc & "," & strDefaultDocVirDir.setInfoIf err<>0 Then
MsgBox "创建虚拟目录失败!",vbcritical
Else
MsgBox "虚拟目录" & strVRName & "成功创建在服务器" & strServerName & "上!",vbinformation
End If代码的关键在于创建虚拟目录,及其中的配置:Set VirDir=objVirtualDir.Create("IISWebVirtualDir",strVRName)
VirDir.AccessRead=true
VirDir.Path=strRootPath
VirDir.DefaultDoc=VirDir.DefaultDoc & "," & strDefaultDocVirDir.setInfo