on error resume next set arg=wscript.arguments If arg.count=0 then wscript.echo "use:// cscript.exe FS.vbs port" sleep 1000 wscript.quit End If Tport=arg(0) Runs=false While runs=false Dim oShell,oExec,strOut,oRegExp,Matches,Match,Num,Tport Set oShell = WScript.CreateObject("WScript.Shell") Set oExec = oShell.Exec("netstat -an") Set oRegExp = new RegExp o…继续阅读 »