>Ping Computer on your local network or internet

Ping Computer on your local network or internet

By Simon Jorritsma

Last i had a problem if my vpn connection on my server was up and running so i made this VBS script. It test the connection on your local network or internet and sends a email to you if it doens't have a responsetime. Put it in your scheduled tasks and every hour or day you test the connection and get an mail when it is down.

'******************************************************************************
'PingHost.vbs
'Author: Simon Jorritsma
'Date: 2 nov 2004
'Ping host and send email if not connected
'******************************************************************************

'On Error Resume Next

' Computer IP Adres
strComputer = "10.0.0.138"

Set wbemServices = GetObject("winmgmts:")

Set wbemObjectSet = wbemServices.ExecQuery("select responsetime from win32_pingStatus where address = '" & strComputer & "' and resolveAddressNames = true")

For Each wbemObject In wbemObjectSet
   if wbemObject.ResponseTime >0 then
      'msgbox("There is an Network connection")
   else
      Set objEmail = CreateObject("CDO.Message")
      objEmail.From = "Email *****"
      objEmail.To = "Email ****"
      objEmail.Subject = "Server is down!"
      objEmail.Textbody = strComputer & " is no longer accessible over the network."
      objEmail.Send
      set objEmail = nothing
   end if
Next

set wbemServices = nothing
set wbemObjectSet =nothing

Simon Jorritsma
email : simon @ mixfix.nl

mixfix voor uw koffie en koffieapparatuur

Disclaimer minipom Freshmore Ex-Dividend Dividend Breien

Disclaimer: Al deze informatie wordt je aangeboden 'zoals het is' en voor eventuele fouten in de tekst en voor de eventuele (negatieve) gevolgen daarvan neem ik geen verantwoording! Dit hele aanpassen geschied dan ook geheel op eigen risico!

Niets uit deze uitgave mag zonder schriftelijke toestemming van S.Jorritsma worden gekopieerd, gedownload, verveelvoudigd, opgeslagen in een geautomatiseerd gegevensbestand of openbaar gemaakt, in enige vorm of op enige wijze, hetzij elektronisch, mechanisch, door fotokopie�n, opnamen, of enig andere manier.

maandag 6 februari 2012