CMD下查看IIS目录及域名信息
作者:蛛蛛虎 日期:2010-05-02
天渐热，人更懒了。很久没更博了。今天在77169逛看到有人问，小三儿作答。
觉得代码好用，便转了过来。
复制内容到剪贴板
程序代码
程序代码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
将上述代码保存为 iis.vbs
执行cscript 路径\iis.vbs
当然双击也是可以的。
上一篇: 
下一篇: 
文章来自: 
引用通告: 
Tags: 
相关日志:
评论: 4 | 引用: 0 | 查看次数: -
回复
女用避孕套[2010-05-12 10:24 PM | 
| 
| 天津市 电信| 
| 取消审核]
发表评论