HS4 Internet Monitoring

[Sireone]

It now seems we are more dependent on our Internet access because of these troubled times. What are you guys using to monitor your Internet connection via HS4? I used to use BLLAN, but it doesn't seem to work under HS4 (Status value not updating). I basically want to Speak a message when the Internet is down or Google DNS cannot be reached.

Thoughts?

[ksum]

You could use the newer Node Red capabilities and follow this guide with the final output going to a HomeSeer device, or doing your notification via Node Red.

There may be other solution as well. Big5 could possibly do something if you have that but I do not so I cannot say either way.

[Guest]

I also intend to deploy some internet monitoring; had noted this thread which uses BLLAN:

https://forums.homeseer.com/forum/in...topped-working

will follow this thread for other options.

[mikee123]

I still use BLLAN, now on HS4. Not just to monitor my Internet (I ping Google) but also monitoring phones etc. It still works fine

[Uncle Michael]

I wrote a short script to ping Google and update an HS device.

Public Sub Main(ByVal Parms As Object)

Dim Google1 As String = "8.8.8.8"
Dim Google2 As String = "8.8.4.4"
Dim intR1 As Integer
Dim intR2 As Integer

intR1 = hs.Ping(Google1)
intR2 = hs.Ping(Google2)

If intR1 = 0 OR intR2 = 0 Then
If hs.DeviceValue(1657) = 100 Then hs.WriteLogEx ("Internet", "OK", "#008000")
hs.SetDeviceValueByRef(1657, 0, True)
Else
hs.WriteLogEx ("Internet", "??", "#FF0000")
hs.SetDeviceValueByRef(1657, 100, True)
End If

End Sub

[Guest]

Uncle Michael

The script doesn't return any errors, but if I manually reset the virtual device value to 0 and run the script, it won't update to 100...

Public Sub Main(ByVal Parms As Object)

Dim Google1 As String = "8.8.8.8"
Dim Google2 As String = "8.8.4.4"
Dim intR1 As Integer
Dim intR2 As Integer

intR1 = hs.Ping(Google1)
intR2 = hs.Ping(Google2)

If intR1 = 0 OR intR2 = 0 Then
If hs.DeviceValue(3889) = 100 Then hs.WriteLogEx ("Internet", "OK", "#008000")
hs.SetDeviceValueByRef(3889, 0, True)
Else
hs.WriteLogEx ("Internet", "??", "#FF0000")
hs.SetDeviceValueByRef(3889, 100, True)
End If

End Sub

And internet is up obviously...

[Uncle Michael]

Uncle Michael

The script doesn't return any errors, but if I manually reset the virtual device value to 0 and run the script, it won't update to 100...And internet is up obviously...

If the ping is successful the device is set to 0. It will be set to 100 if there is not a response to the ping. Try setting the device to 100. It should reset to 0 if the internet is up.

[Guest]

If the ping is successful the device is set to 0. It will be set to 100 if there is not a response to the ping. Try setting the device to 100. It should reset to 0 if the internet is up.

Makes sense now, just overlooked the script logic.
ill have to rename device to something like "Internet down - Alert" or just switch the values.
Thanks for this useful script!
Cheers

Yann

[Guest]

using a slightly modified "internet on/off" version , thanks again for your help!

Public Sub Main(ByVal Parms As Object)

Dim Google1 As String = "8.8.8.8"
Dim Google2 As String = "8.8.4.4"
Dim intR1 As Integer
Dim intR2 As Integer

intR1 = hs.Ping(Google1)
intR2 = hs.Ping(Google2)

If intR1 = 0 OR intR2 = 0 Then
If hs.DeviceValue(3889) = 0 Then hs.WriteLogEx ("Internet", "Restored", "#008000")
hs.SetDeviceValueByRef(3889, 100, True)
Else
hs.WriteLogEx ("Internet", "??", "#FF0000")
hs.SetDeviceValueByRef(3889, 0, True)
End If

End Sub

[Tomgru]

Sorry, as I'm still a newbie with scripting. Can you post screen shot of hiw this WORK S? Assume it's in a virtual device,.. and or updates another virtual device with status changes?

[Guest]

Hi Tomgru
simply need to save the script under a xxxxx.vb filename within the hs3/scripts directory and call the script from an event with recurring trigger.
Also ensure you create a virtual device and change the ref number accordingly in the script (here 3889).

Cheers
Yann

[Tomgru]

Hi Tomgru
simply need to save the script under a xxxxx.vb filename within the hs3/scripts directory and call the script from an event with recurring trigger.
Also ensure you create a virtual device and change the ref number accordingly in the script (here 3889).

Cheers
Yann

So if i have this working correctly with your modified script. If the ping is successful, the virtual device should show up (or remain) "ON"....value 100
If i lose internet, when the event runs, it will change the VD to "OFF", value 0

Do i have it?

[Guest]

Correct.

and if the current state is 0 (off) and changes to 100 (on), then it will log "internet restored"

The original script is simply the opposite.

[Sireone]

Is it possible to add some sort of occurrence to this script so it'll trigger after 5 ping attempts?

[Tomgru]

perfect. thanks