+ Reply to Thread
Results 1 to 2 of 2

Thread: ping computers

  1. #1

    ping computers

    I would like to ping computers using System Scripting Runtime .
    Thanks in advance .

  2. #2
    Junior Member
    Join Date
    Jan 2012
    Posts
    15
    Here is the idea :
    Code:
    WScript.Echo "www.website.com on-line: " & PingSSR( "www.website.com" )
    
     Function PingSSR( myHostName )
    
         ' Standard housekeeping
         Dim objIP
    
         Set objIP = CreateObject( "SScripting.IPNetwork" )
    
         If objIP.Ping( myHostName ) = 0 Then
             PingSSR = True
         Else
             PingSSR = False
         End If
    
         Set objIP = Nothing
     End Function

+ Reply to Thread

Tags for this Thread

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts