Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Старожил


Сообщения: 426
Благодарности: 108

Профиль | Отправить PM | Цитировать


1. Для работы с таблицами Вам скорее всего придется использовать VBS, особливо учитывая, что он уже встроен в Exel...
2. Если заменить таблицу на текстовый файл, то можно сделать так (на базе старого отчета по пингам):
Код: Выделить весь код
@Echo off
setLocal EnableExtensions

set tm=%time::=%
set tm=%tm:~0,-3%
set dt=%date:~8,2%%date:~3,2%%date:~0,2%

for /f "UseBackQ tokens=1,*" %%A in ("%~n0.txt") do call :Ping %%A "%%B"
del /f "%~n0.old" >nul 2>nul
ren "%~n0.txt" *.old 2>nul
ren "%~n0.tmp" *.txt 2>nul
goto END

:Ping
set stat=Faild
if "%1"=="Date" echo Date		%dt%	%~2>>"%~n0.tmp"&exit /b
if "%1"=="Time" echo Time		%tm%	%~2>>"%~n0.tmp"&exit /b
ping -n 1 %1 >nul 2>nul
if %ErrorLevel%==0 set stat=Ok
echo %1	%stat%	%~2>>"%~n0.tmp"
exit /b

:END
исходный файл должен выглядить так:
Код: Выделить весь код
Date		
Time		
192.168.0.1	
192.168.0.151	
192.168.0.8	
192.168.0.101	
192.168.0.111	
192.168.0.6
На выходе будет так:
Код: Выделить весь код
Date		101012	101012	101012	
Time		162205	162143	162131	
192.168.0.1	Ok	Ok	Ok	
192.168.0.151	Ok	Ok	Ok	
192.168.0.8	Ok	Ok	Ok	
192.168.0.101	Ok	Ok	Ok	
192.168.0.111	Ok	Ok	Ok	
192.168.0.6	Ok	Faild	Faild
* строки Date и Time можно опустить в любой последовательности

-------
Как сказало Дерево Дровосеку: "я - пень".

Это сообщение посчитали полезным следующие участники:

Отправлено: 16:26, 12-10-2010 | #2