| systemroot |
01-09-2011 18:00 1744164 |
скрипт для звонков на телефон с помощью программы rasdial
помогите написать скрипт для совершения звонков с помощью комманды rasdial, если такое возможно указывать в скрипте колличество вызовов которые он выполнит и что бы по завершению скрипт выводил колличество успешных соединений
|
| systemroot |
05-09-2011 19:44 1746790 |
Код:
@Echo Off
set /P var="Количество звонков:"
For /L %%i In (1,1,%var%) Do rasdial 21809 %%i
Pause
вроде получилось, а вот как посчитать количество успешных соединений непойму.. |
systemroot, проверьте, пишется ли что-нибудь в лог при успешном соединении от имени RemoteAccess.
|
| systemroot |
05-09-2011 20:22 1746820 |
этот скрипт просто звонит на определённый номер заданное колличество раз, а вот где логи посмотреть я незнаю....
можно же както подправить скрипт чтобы в конце его выполнения выводилась статистика соединений..
допустим по примеру вот такого 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
|
Цитата:
Цитата systemroot
а вот где логи посмотреть я незнаю.... »
|
В журнале «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
|
Время: 13:43.
© OSzone.net 2001-
