So this week I needed a VBS script that would ping. The reason I needed this was to wake a wireless connection up before the script did the rest of its work. A few pings will do this. This script will ping 18.104.22.168 (which is Google) and it will ping 8 times, which was more than enough for what I needed.
Set WshShell = WScript.CreateObject(“WScript.Shell”)
WshShell.Run “C:windowssystem32ping.exe 22.214.171.124 -n 8 -w 500”