[systemroot]

Код:

@Echo Off

set /P var="Количество звонков:"

For /L %%i In (1,1,%var%) Do rasdial 21809 %%i
Pause

вроде получилось, а вот как посчитать количество успешных соединений непойму..

[Iska]

systemroot, проверьте, пишется ли что-нибудь в лог при успешном соединении от имени RemoteAccess.

[systemroot]

этот скрипт просто звонит на определённый номер заданное колличество раз, а вот где логи посмотреть я незнаю....
можно же както подправить скрипт чтобы в конце его выполнения выводилась статистика соединений..

допустим по примеру вот такого IP сканера

Код:

@Echo Off
Del tmp
CHCP 1251
Title Сканер сети
:Main
Cls
Echo.
Echo.
Echo    Введите начало диапазона IP-адресов для сканирования
Echo    в формате х.х.х.х
Echo.
Set /P IP_start=^>
Echo #%IP_start%>tmp
Echo.
Echo.
Echo    Введите конец диапазона IP-адресов для сканирования
Echo    в формате х.х.х.х
Echo.
Set /P IP_end=^>
Echo @%IP_end%>>tmp
For /F "eol=@ delims=. tokens=1,2,3,4" %%A In (tmp) do (Set Start_1=%%A&Set Start_2=%%B&Set Start_3=%%C&Set Start_4=%%D)
Set Start_1=%Start_1:~1%
For /F "eol=# delims=. tokens=1,2,3,4" %%A In (tmp) do (Set End_1=%%A&Set End_2=%%B&Set End_3=%%C&Set End_4=%%D)
Del tmp
Set End_1=%End_1:~1%
Set /A ErrLvl=0
Set /A Succes=0
Set /A Fail=0
Set /A Complete=0
Set Begin=[%date% - %time:~-0,5%]
Set Current_1=%Start_1%&Set Current_2=%Start_2%&Set Current_3=%Start_3%&Set Current_4=%Start_4%
Echo.>>result.txt
:Scan
Ping -n 1 -w 400 %Current_1%.%Current_2%.%Current_3%.%Current_4%>nul
If "%ErrorLevel%" GEQ "1" (Set /A Fail=Fail+1) Else Set /A Succes=Succes+1
If "%ErrorLevel%"=="0" Echo %Current_1%.%Current_2%.%Current_3%.%Current_4%>>result.txt
If "%Current_1%"=="%End_1%" Set Complete=1
If "%Current_2%"=="%End_2%" Set Complete=%Complete%1
If "%Current_3%"=="%End_3%" Set Complete=%Complete%1
If "%Current_4%"=="%End_4%" Set Complete=%Complete%1
If "%Complete%"=="1111" GoTo EndScan
Call :Output
Set /A Current_4=Current_4+1
If "%Current_4%"=="256" Set /A Current_4=0 & Set /A Current_3=Current_3+1
If "%Current_3%"=="256" Set /A Current_3=0 & Set /A Current_2=Current_2+1
If "%Current_2%"=="256" Set /A Current_2=0 & Set /A Current_1=Current_1+1
GoTo Scan

:Output
Set /A Total=Fail+Succes
Cls
Echo.
Echo.
Echo    [%date% - %time:~-0,5%] - начато сканирование
Echo    Выбранный диапазон: %Start_1%.%Start_2%.%Start_3%.%Start_4% - %End_1%.%End_2%.%End_3%.%End_4%
Echo    Активных хостов: %Succes%
Echo    Неактивных хостов: %Fail%
Echo    Всего хостов: %Total%
Echo    Текущий адрес: %Current_1%.%Current_2%.%Current_3%.%Current_4%
Exit /B

:ErrMsg
Cls
Echo.
Echo.
Echo  Конечный адрес диапазона больше начального, проверьте правильность ввода
Echo  Нажмите любую кнопку для продолжения
Pause>Nul
GoTo Main

:EndScan
Set /A Total=Fail+Succes
Cls
Echo.
Echo.
Echo    Выбранный диапазон: %Start_1%.%Start_2%.%Start_3%.%Start_4% - %End_1%.%End_2%.%End_3%.%End_4%
Echo    Всего хостов обработано: %Total%
Echo     из них активных: %Succes% неактивных : %Fail%
Echo    Скрипт стартовал: %Begin%
Echo    Обработка закончена: [%date% - %time:~-0,5%]
Echo    Сканирование закончено
Echo.
Echo Список активных хостов
Echo.
type result.txt
del result.txt
Pause>Nul
goto:Main
Exit

[Iska]

а вот где логи посмотреть я незнаю.... »

В журнале «System»/«Система». Например, сколько сегодня было подключений:

Код:

eventquery.vbs /fi "Source eq RemoteAccess" /fi "ID eq 20158" /fi "DateTime gt 09/05/2011,12:00:00AM" /l "System"

или, например:

Код:

wmic.exe NTEvent where "Logfile='System' AND SourceName='RemoteAccess' AND EventCode=20158 AND TimeGenerated>'20110905000000.000000+240'" get TimeGenerated, Message