中国DOS联盟

@echo off
for /f "tokens=1,2" %%i in ('netstat -an -p TCP^|find "80"') do @echo %%j
pause

@echo off
for /f "tokens=1,2" %%i in ('netstat -an -p TCP^|find ":80"') do @echo %%j
pause

Set Ws=CreateObject("WScript.Shell")
Set oExec=ws.Exec("%comspec% /c netstat -an -p TCP")
s=oExec.StdOut.ReadAll
wscript.echo re(s)
function re(a)
        set regex=new regexp
        regex.pattern=":[1-9][\d]{1,4}"
        regex.global=true
        set matchs=regex.execute(a)
        for each match in matchs
                m=replace(match,":","")
                if instr(re,m)=0 then
                        re=re & m & vbcrlf
                end if
        next
end function

@echo off
for /f "tokens=1-2 delims= " %%a in ('netstat -an -p TCP') do (
   if defined flag set "ip=%%b"&set "flag="
   if /i "%%b %%c"=="Local Address" set flag=a
)
echo %ip%
pause