ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Прошу помощи по vbs(Пинг скрипт)
6 сообщений из 6, страница 1 из 1
Прошу помощи по vbs(Пинг скрипт)
    #38584761
sssaa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sssaa
Гость
Всем привет.

Есть скрипт который выводит на html странице информацию о доступности серверов (пинг).


Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
<%@ language="VBScript" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Ping</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<meta http-equiv="Content-Language" content="ru">
<meta http-equiv="Refresh" content="180">
</head>
<body link="yellow" alink="yellow" vlink="yellow" background="backgr.jpg" text="yellow">
<p align="center"><strong><FONT size="6">Проверка доступности серверов</FONT></strong></p>
<p align=center><FONT color="#ffffff">Страница обновляется автоматически один раз в 3 минуты.</FONT></p>
<center>
<table border=1 width="43%" cellpadding=5 cellspacing=0>
     <tr align=left>
        <td><%pingserverwin("192.168.1.1")%>Server1</td>
        <td><%pingserverwin("192.168.1.2")%>Server2</td>
    </tr>
    </table>
</center>
</body>
</html>
<% Sub pingserverwin(strHost)
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & strHost & "'")
response.write "<img src='"
For Each objStatus in colPings
  If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
    response.write "serverwinoff.gif' alt='Сервер " & strHost & " сейчас недоступен'>" & " - " & strHost
  Else
    response.write "serverwin.gif' alt='Сервер " & strHost & " сейчас включен'>" & " - " & strHost
  End If
Next
End Sub
%>




Необходимо, чтобы параллельно данные по каждому серверу сохранялись в txt. (Хост Дата/Время Статус)
Пример файла для Server1

Хост Время Статус
192.168.1.1 12.00 Доступен
192.168.1.1 12.03 Недоступен
..........



С VBS не знаком совсем.
Буду очень признателен за оказанную помощь.
...
Рейтинг: 0 / 0
13.03.2014, 09:52
| Ответить | Цитировать | Написать  
Прошу помощи по vbs(Пинг скрипт)
    #38585088
carrotik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
carrotik
Участник
sssaa,

.. что-то примерно так .. список хостов в файле spisok.txt

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Set WshShell = WScript.CreateObject("Wscript.Shell")
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set InFile = filesys.OpenTextFile("g:\spisok.txt", 1)
Set OutFile = filesys.OpenTextFile("g:\PingStstus.txt", 8, true) 
While Not InFile.AtEndOfStream
strHost = InFile.ReadLine
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & strHost & "'")
For Each objStatus in colPings
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
OutFile.WriteLine strHost & vbTab & Time & vbTab & "недоступен"
Else
OutFile.WriteLine strHost & vbTab & Time & vbTab & "доступен"
End If
Next
WEnd
InFile.Close
OutFile.Close



..не проверял, но подобный скрипт работает ..
...
Рейтинг: 0 / 0
13.03.2014, 13:20
| Ответить | Цитировать | Написать  
Прошу помощи по vbs(Пинг скрипт)
    #38585281
sssaa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sssaa
Гость
carrotik,
спасибо за скрипт, работает отлично, но еще есть вопрос, можно ли сделать так, чтобы для каждого айпи создавался текстовый файл?
...
Рейтинг: 0 / 0
13.03.2014, 15:16
| Ответить | Цитировать | Написать  
Прошу помощи по vbs(Пинг скрипт)
    #38585375
carrotik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
carrotik
Участник
sssaacarrotik,
спасибо за скрипт, работает отлично, но еще есть вопрос, можно ли сделать так, чтобы для каждого айпи создавался текстовый файл?

.. отчего же нельзя? ... просто вставить строки открытия и закрытия выходного файла внутрь цикла ..

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Set WshShell = WScript.CreateObject("Wscript.Shell")
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set InFile = filesys.OpenTextFile("g:\spisok.txt", 1)
 
While Not InFile.AtEndOfStream

strHost = InFile.ReadLine
Set OutFile = filesys.OpenTextFile("g:\" & strHost & ".txt", 8, true)
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & strHost & "'")
For Each objStatus in colPings
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
OutFile.WriteLine strHost & vbTab & Time & vbTab & "недоступен"
Else
OutFile.WriteLine strHost & vbTab & Time & vbTab & "доступен"
End If
Next
OutFile.Close

WEnd

InFile.Close
...
Рейтинг: 0 / 0
13.03.2014, 16:10
| Ответить | Цитировать | Написать  
Прошу помощи по vbs(Пинг скрипт)
    #38585414
Gustly
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gustly
Участник
А как его вообще запустить? Создал файл ping.vbs, но не увидел никакой страницы.
...
Рейтинг: 0 / 0
13.03.2014, 16:34
| Ответить | Цитировать | Написать  
Прошу помощи по vbs(Пинг скрипт)
    #38585544
sssaa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sssaa
Гость
carrotik,
Спасибо огромное, все работает)
...
Рейтинг: 0 / 0
13.03.2014, 17:55
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Прошу помощи по vbs(Пинг скрипт)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=22&fpage=106&tid=1447326]:
 0ms
get settings:
 7ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 58ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 226ms
total:  394ms
созд. / загр.: 394ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]