@ECHO OFF
:: Выводит список компов в сети в виде Имя - IP Адрес - Доступные шары
FOR /F "tokens=1 delims=\ " %%n IN ('net view^|FIND "\\"') DO (
  FOR /F "tokens=2 delims=[]" %%i IN ('ping -a -n 1 -w 0 %%n^|FIND "["') DO (
    ECHO %%i  %%n
    FOR /F "tokens=1,2,3,4 delims= " %%a IN ('net view \\%%n^|FIND "       "') DO (
      IF "%%b"=="Disk" (
        ECHO               %%b: \\%%n\%%a
      ) ELSE (
        IF "%%b"=="Print" ECHO               %%b: \\%%n\%%a
      )
    )
  )
)