נתקלתי בבעיה אני מנסה לבנות סקריפט שישלח PING לסדרה של כתובות מ 192.168.1.1 עד 192.168.1.20

אבל אני לא מצליח להבין מה הפקודה שאני צריך להכניס כדי שזה יעבוד מישהו יכול לעזור ?

פונקציה לשליחת פינג

----------------------------------------------------------

Function Ping(Target)
Dim results

  On Error Resume Next

  Set shell = CreateObject("WScript.Shell")

  ' Send 1 echo request, waiting 2 seconds for result 
  Set exec = shell.Exec("ping -n 1 -w 2000 " & Target)
  results = LCase(exec.StdOut.ReadAll)

  Ping = (InStr(results, "reply from") > 0)
End Function

---------------------------------------------------------------------

וזאת הפקודה שצריך להריץ כדי להפעיל את הפונקציה

פשוט תרוץ על לולאה

If Ping("192.168.1.100") Then
  ' Do something to access the resource
End If