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
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
解决方案 »
- 在ppReport1报表里如何设置分页显示?
- QREPORT调试时候,preview显示完整报表,运行程序却只有一个空表
- 请教BDE+SQL2000编译后无法在其他没装DELPHI的机器上运行?急!
- 怎样把sql语句的执行结果放到变量里?
- 如何提高海量数据的速度
- 新人第1问!如何访问远程的SQL SERVER数据库!
- 如何得到脚本变量
- ini文件的问题?
- ***********跪求delphi三层例子***********
- 有一组件名为tom如何,我如何使一字符串'tom'转换为组件.再用组件的方法等???
- 这个界面很好看,如何用DELPHI实现
- AnsiString与AnsiChar 如何转换?
以前做过一个每天变换同一个目录入口的url
不知道怎么转成delphi