IP оборудования

[Сергій]

Пробовал в VB6 получать IP через Winsock1.Connect все четко.
Но вот батфайлом (чтоб не доустанавливать библиотек) не получается получить список IP всего оборудования по сети (бесперебойник, телевизор, принтер, другие эвм).
Может у кого есть опыт в этом деле?

 

[akok]

При помощи bat, по идее, можно использовать ping, но будут ли отвечать устройства вопрос.

 

[NickM]

Пробовал в VB6 получать IP через Winsock1.Connect все четко.
Но вот батфайлом (чтоб не доустанавливать библиотек)

Переложить код на "VBScript"?

При помощи bat, по идее, можно использовать ping,

Типа такого?

@echo off
SetLocal EnableExtensions EnableDelayedExpansion

set "subnet=192.168.1."
For /l %%i in (1,1,254) Do (
call :getdatetime
ping -n 2 -w 1000 %subnet%%%i | find /i "TTL=" 2>nul >nul
If !errorlevel! EQU 0 (echo.+ !datetime! %subnet%%%i online.) else (echo.- !datetime! %subnet%%%i offline.)
Echo.
)
GoTo :EOF

:getdatetime
set datetime=%date:~-10%-%time:~0,2%.%time:~3,2%.%time:~6,2%

 

[akok]

У меня через ping ничего не нашло. Мой нерабочий вариант

@echo off
chcp 65001 > nul

rem Укажите подсеть (замените 192.168.1 на вашу)
set "subnet=192.168.1"


for /L %%i in (1,1,254) do (
    ping -n 1 -w 200 %subnet%.%%i > nul
)

arp -a | cmd /U /C "more" > arp_result.txt

echo Сканирование завершено. Результаты сохранены в файле arp_result.txt.
echo Открыть результаты? (y/n)
set /p choice=
if /i "%choice%"=="y" start notepad arp_result.txt

pause

 

[Сергій]

Переложить код на "VBScript"?

Да, это тоже не плохо