Ms-Dos - Bat muestra informacion de red

@echo off

color f0

echo literal stat > entrada

echo quit >> entrada

ftp -A -s:entrada ftp.es.debian.org | findstr "Connected" > temp

del entrada

set /p a=""<temp

del temp

set a=%a:~18,20%

cls

echo Nombre del Equipo: %computername% >> datospc.txt

echo. >>datospc.txt

wmic computersystem get domain|findstr /v "Domain" >temp.txt

set/p grupo=""<temp.txt

del temp.txt

set grupo=%grupo:~0,10%

echo Grupo de Trabajo:%grupo% >>datospc.txt

echo. >> datospc.txt

echo Usuario Activo: %username% >>datospc.txt

echo. >>datospc.txt

echo I.P. Publica: %a% >> datospc.txt

echo. >>datospc.txt

ipconfig|FINDSTR "Dirección IPv4" >temp.txt

set /p ip=""<temp.txt

del temp.txt

set ip=%ip:~43,20%

echo I.P. local: %ip% >>datospc.txt

echo. >>datospc.txt

ipconfig|FINDSTR "subred" >temp.txt

set /p subred=""<temp.txt

del temp.txt

set subred=%subred:~43,20%

echo Mascara de Subred: %subred% >>datospc.txt

echo. >>datospc.txt

ipconfig /all|findstr "enlace" >temp.txt

set/p enlace=""<temp.txt

del temp.txt

set enlace=%enlace:~43,18%

echo Puerta de enlace:%enlace% >>datospc.txt

echo. >>datospc.txt

ipconfig /all|findstr "Servidores" >temp.txt

set /p dns=""<temp.txt

del temp.txt

set dns=%dns:~35,25%

echo Servidor DNS:%dns% >>datospc.txt

echo. >>datospc.txt

ipconfig /all|findstr "sica" >temp.txt

set /p mac=""<temp.txt

del temp.txt

set mac=%mac:~35,28%

echo Direccion Fisica(M.A.C.):%mac% >>datospc.txt

echo. >>datospc.txt

echo. >>datospc.txt

echo Hecho por EL SWAMI >>datospc.txt

echo Set objshell = createobject("wscript.shell") >datos.vbs

echo Set ping = objshell.exec("cmd /c type datospc.txt") >>datos.vbs

echo Msgbox ping.stdout.readall >> datos.vbs

echo Set ping = objshell.exec("cmd /c del datospc.txt") >>datos.vbs

echo Set ping = objshell.exec("cmd /c del datos.vbs") >>datos.vbs

start datos.vbs