中国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,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