Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Проблемы с использованием WMI в IIS / 1 сообщений из 1, страница 1 из 1
18.09.2005, 16:42
    #33275420
Atlant_is
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблемы с использованием WMI в IIS
В общем, ситуация такова. Есть машина с Win2003 и IIS 6. ASP в принципе, работает, но, не срабатывает следующий кусок кода:
CODE<%@ 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="60">
</head>
<body>
<p>Страница обновляется автоматически один раз в минуту.</p>
<p><%pingserverwin("192.168.23.20")%></p>


</body>
</html>

<% Sub pingserverwin(strHost)
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\.\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 "delete.bmp'' alt=''Сервер " & strHost & " сейчас недоступен''>" & strHost & "<br>"
Else
response.write "ok.bmp'' alt=''Сервер " & strHost & " сейчас включен''>" & strHost & "<br>"

End If
Next
End Sub
%>

Причем этот же кусок крда в WinXp работает прекрасно. Не работает также в Win200 ADV Server. Тестировалось на нескольких машинах. Может кто-нить подсказать в чем дело. Настройки IIS все практически по дефолту - просто разрешены ASP, на всех машинах - единообразно (предположительно). Почему на XP все работает, а на SERVER нет? Возможно какие-то настройки системы, кроме IIS посмотреть стоит?
...
Рейтинг: 0 / 0
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Проблемы с использованием WMI в IIS / 1 сообщений из 1, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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