for /f "skip=3 tokens=1 delims= " %%i in ('net view') do (
set xx=%%i
set x=!xx:~2!
for /f "tokens=2,3 delims= " %%a in ('ping -n 1 -a !x!^|find /i "Pinging"') do (
set cn=%%a
set ip=%%b
)
for /f "tokens=2 delims==" %%m in ('nbtstat -a !cn!^|find /i "mac address"') do (
set mac1=%%m
set mac=!mac1:~1,-1!
)
echo !ip:~1,-1! !mac! !cn!>>list.txt
echo !ip:~1,-1! !mac! !cn!
)