<%
Function PingHost(strHost)
    Dim objWMIService, colPingResults, objPingResult

    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}")
    Set colPingResults = objWMIService.ExecQuery("Select * From Win32_PingStatus Where Address = '" & strHost & "'")

    For Each objPingResult In colPingResults
        If IsNull(objPingResult.StatusCode) Or objPingResult.StatusCode <> 0 Then
            PingHost = False ' המארח לא פעיל
            Exit Function
        Else
            PingHost = True ' המארח פעיל
            Exit Function
        End If
    Next

    ' אם לא נמצאו תוצאות, המארח לא פעיל
    PingHost = False
End Function

' דוגמה לשימוש
Dim host, result

host = "www.google.com" ' או כתובת IP, למשל "8.8.8.8"
result = PingHost(host)

If result Then
    Response.Write host & " פעיל."
Else
    Response.Write host & " לא פעיל."
End If
%>