Rambler's Top100
Российский фонд помощи
Навигация
Главная
MS ACCESS
VB
ASP
PHP
Наши друзья
Поиск
Форум
Лента новостей
Новый сайт

Online
Рассылки Subscribe.Ru
Работа с MS Access
Подписаться письмом
Реклама на сайте
 
Главная arrow MS ACCESS arrow Ping с помощью WMI
Ping с помощью WMI Печать E-mail
Автор osmor   
24.01.2007 г.
реализация пинга с помощью WMI. Функция вернет истину при нормальном пинге
Function WMIPing(strAdr As StringAs Boolean
Dim objPing As Object
Dim objStatus As Object
    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
    ExecQuery("select * from Win32_PingStatus where address = '" & strAdr & "'")
    For Each objStatus In objPing
        If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then
            WMIPing = False
        Else
            WMIPing = True
        End If
    Next


End Function

Просмотров: 13842

  Коментарии (2)
 1 Написал(а) Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script , в 15:25 25.07.2008
Скрипт работает на ОС начиная с WinXP, на W2K отсутсвует Win32_PingStatus
 2 Написал(а) Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script , в 15:27 25.07.2008
Скрипт работает на ОС начиная с WinXP, на W2K отсутсвует Win32_PingStatus

Добавить коментарий
Имя:
E-mail
Коментарий:



Код:* Code

 
Реклама на сайте
HiProg.com - Технологии программирования
Rambler's Top100 TopList