|
|
|
|
| Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Дописать скрипт для процедуры ping и записи в log.txt |
|
|
VBS/WSH/JS - [решено] Дописать скрипт для процедуры ping и записи в log.txt
|
|
Старожил Сообщения: 157 |
Всем добрый день!
Существует скрипт на VBS Код:
 option explicit
' conHost -- адрес хоста для слежения
' conCheckInterval -- временной интервал
const conHost = "192.0.0.22", conCheckInterval = 1000
' создаём объект:
dim soWshShell : set soWshShell = CreateObject("WScript.Shell")
WScript.Quit Main()
function WriteLog(strText)
WScript.Stdout.WriteLine FormatDateTime(Time(), vbLongTime) & " " & strText
end function
function GetHostStatus(strHost)
dim oPing : set oPing = soWshShell.Exec("ping -n 1 " & strHost)
dim strOut : strOut = ""
do
WScript.Sleep 100
if not oPing.Stdout.AtEndOfStream then
strOut = strOut & oPing.Stdout.ReadAll
end if
loop until oPing.Status = 1
dim oRegExp : set oRegExp = new RegExp
oRegExp.IgnoreCase = true
oRegExp.Pattern = "[^ ]+:.+TTL=[^\r\n]+"
dim oMatches : set oMatches = oRegExp.Execute(strOut)
if oMatches.Count > 0 then
GetHostStatus = oMatches(0).Value
else
GetHostStatus = "Inaccessible!.."
end if
end function
function Main()
do
WriteLog(GetHostStatus(conHost))
WScript.Sleep(conCheckInterval)
loop
end function
Код:
cscript d:\ping\pingtime.vbs > d:\ping\ping.txt За ранее спасибо! |
|
|
Отправлено: 15:50, 09-10-2012 |
|
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать zavoruev, каким образом Вы вызываете скрипт на исполнение?
|
|
Отправлено: 12:14, 11-10-2012 | #11 |
|
Старожил Сообщения: 157
|
Профиль | Отправить PM | Цитировать Цитата zavoruev:
|
|
|
Отправлено: 15:58, 11-10-2012 | #12 |
|
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать zavoruev, ищите проблему в Вашем командном файле.
|
|
Отправлено: 01:15, 12-10-2012 | #13 |
|
Старожил Сообщения: 157
|
Профиль | Отправить PM | Цитировать Добрый день!
Так у меня и возник вопрос, как закрыть командную строку после завершения цикла VBS скрипта? Явно надо дать команду из VBS скрипта на закрытие командной строки! |
|
Отправлено: 12:01, 12-10-2012 | #14 |
|
Старожил Сообщения: 157
|
Профиль | Отправить PM | Цитировать Все, проблема решена. Тему закрываю!
Огромное спасибо пользователю Iska, |
|
Отправлено: 17:18, 18-10-2012 | #15 |
|
Участник сейчас на форуме |
 |
Участник вне форума |
 |
Автор темы |
 |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| MySQL - Дописать в начало строки текст каждой записи в опредленном поле | Artem-Samsung | Программирование и базы данных | 7 | 02-10-2019 20:22 | |
| Любой язык - Как сделать что-бы скрипт игнорировал не нужные ответы Ping | root221 | Скриптовые языки администрирования Windows | 13 | 02-09-2012 22:28 | |
| Дописать php скрипт | retabo | Вебмастеру | 0 | 17-06-2012 04:07 | |
| VBS/WSH/JS - Помогите дописать скрипт (пингует гугл и если не доступен ребутит модем) | cRYSMAS | Скриптовые языки администрирования Windows | 9 | 25-06-2011 23:34 | |
| VBS/WSH/JS - [решено] Помогите дописать скрипт!!! | OSArev | Скриптовые языки администрирования Windows | 1 | 08-11-2010 21:50 | |
|
|
Время: 08:27. | © OSzone.net 2001-
|
|
Powered by: vBulletin Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. |
