列出所有到本机80端口ESTABLISHED连接的小脚本

朋友需要，我搞了个脚本出来玩，直接运行netstat -an取得输出用正则匹配。

Dim  oShell
Dim  oExec
Dim  strOut
Dim  oRegExp
Dim  Matches
Dim  Match
Dim  Num

Set  oShell  =  WScript.CreateObject( " WScript.Shell " )
Set  oExec  =  oShell.Exec( " netstat -an " )
Set  oRegExp  =   new  RegExp
oRegExp.Pattern  =   " TCP[\s]+[\d\.]+:80[\s]+[\d\.]+:[\d]+[\s]+ESTABLISHED "
oRegExp.IgnoreCase  =   True
oRegExp.Global  =   True

Do   While   Not  oExec.StdOut.AtEndOfStream
    strOut  =  strOut  &  oExec.StdOut.ReadLine()  &   Chr ( 13 )  &   Chr ( 10 )
Loop

Set  Matches  =  oRegExp.Execute(strOut)

Num  =   0
For   Each  Match In Matches
    WScript.Echo Match.Value
    Num  =  Num  +   1
Next

WScript.Echo  " 合计：共 "   &  Num  &   " 个连接 "

Set  Matches  =   Nothing
Set  oRegExp  =   Nothing
Set  oExec  =   Nothing
Set  oShell  =   Nothing