Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Прошу помощи по vbs(Пинг скрипт) / 6 сообщений из 6, страница 1 из 1
13.03.2014, 09:52
    #38584761
sssaa
sssaa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прошу помощи по vbs(Пинг скрипт)
Всем привет.

Есть скрипт который выводит на 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, 13:20
    #38585088
carrotik
carrotik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прошу помощи по vbs(Пинг скрипт)
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, 15:16
    #38585281
sssaa
sssaa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прошу помощи по vbs(Пинг скрипт)
carrotik,
спасибо за скрипт, работает отлично, но еще есть вопрос, можно ли сделать так, чтобы для каждого айпи создавался текстовый файл?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.03.2014, 16:10
    #38585375
carrotik
carrotik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прошу помощи по vbs(Пинг скрипт)
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:34
    #38585414
Gustly
Gustly
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прошу помощи по vbs(Пинг скрипт)
А как его вообще запустить? Создал файл ping.vbs, но не увидел никакой страницы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.03.2014, 17:55
    #38585544
sssaa
sssaa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прошу помощи по vbs(Пинг скрипт)
carrotik,
Спасибо огромное, все работает)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Прошу помощи по vbs(Пинг скрипт) / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 515ms
Закрыть
start [/forum/topic.php?fid=22&tablet=1&tid=1447326]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 180ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 240ms
total:  515ms
x
x
Закрыть


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