Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
msgbox ping("localhost") 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 1000 " & Target) results = exec.StdOut.ReadAll Ping = InStr(1,results, "reply from",vbtextcompare) > 0 End Function
Join the community of 500,000 technology professionals and ask your questions.