摘要： 朋友需要，我搞了个脚本出来玩，直接运行netstat -an取得输出用正则匹配。 Dim oShellDim oExecDim strOutDim oRegExpDim MatchesDim MatchDim NumSet oShell = WScript.CreateObject("WScript.Shell")Set oExec = oShell.Exec("netstat -an")Set ... 阅读全文