DBO权限下的直接列目录脚本

有时候碰到dbo的的确存在找半天目录没找到的情况。当然有可能是web和db分离了，但是也不排除服务器文件目录太多而你一个不小心就没找到的情况。至于怎么把脚本传到服务器上去，办法很多，你可以随便找个已知的目录把代码echo进一个vbs脚本里面，如果觉得麻烦也可以上传到自己的空间里面然后直接down下来。 Set ObjService=GetObject("IIS://LocalHost/W3SVC") For Each obj3w In objservice If IsNumeric(obj3w.Name) Then sServerName=Obj3w.ServerComment Set webSite = GetObject("IIS://Localhost/W3SVC/" & obj3w.Name & "/Root") ListAllWeb = ListAllWeb & obj3w.Name & String(25-Len(obj3w.Name)," ") & obj3w.ServerComment & "(" & webSite.Path & ")" & vbCrLf End If Next WScript.Echo ListAllWeb Set ObjService=Nothing WScript.Quit Usage:cscript x.vbs