VBS脚本获取IIS的连接数

HAT

1. Dim result
   
2. On Error Resume Next
   
3. 
   
4. arrComputers = Array(".")
   
5. For Each strComputer In arrComputers
   
6.     ' Wscript.Echo("begin--" & result)
   
7.     Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\CIMV2")
   
8.     Set colItems = objWMIService.ExecQuery("SELECT CurrentConnections FROM Win32_PerfFormattedData_W3SVC_WebService",,48)
   
9.     For Each objItem In colItems
   
10.         ' Wscript.Echo("foreach:cc=" & objItem.CurrentConnections)
    
11.         result=objItem.CurrentConnections
    
12.     Next
    
13.     Wscript.Echo("end--" & result)
    
14. Next

复制代码

转自 http://bbs.csdn.net/topics/390315464