CM15pro

[labtec]

Geregeld komt het voor dat er geen communicatie meer is tussen HS2 en de CM15pro (USB), ik kan op geen
enkele wijze meer X10 commando's versturen. Het enige wat dit oplost is een reboot van de PC waarna de USB poort
weer functioneert. Waar zou ik dit probleem moeten zoeken, moederbord, CM15pro, HS2 of?

[Rene]

Hangt de CM15Pro direct aan de USB port of via een USB netwerk hub? Ik had dit probleem ook moet de CM11a en heb dit opgelost door een event in Homeseer te maken die de status van de CM11a interface checked en als deze niet OK is Homeseer herstart. De CM11a plugin in Homeseer maakt niet automatisch opnieuw connectie met de CM11a als de connectie weggevallen is.

[labtec]

CM15pro is rechtstreeks verbonden met de PC, bij nader onderzoek in de configuratie van windows heb ik geconstateerd
dat de poort op selectieve USB onderbreking stond. Hoop dat dit het probleem veroorzaakte, maar jou script is eventueel
een handig middel als dit niet mocht werken.

[Edwin2008]

zou dat script ook kunnen werken met een xanura CTX35 (RS232)?

[labtec]

Zou je het script met ons willen delen 

[Rene]

Eerst moet je een periodiek event aanmaken:

restart1.jpg (46.4 KiB) Viewed 4186 times

Restart2.jpg (32.84 KiB) Viewed 4186 times

Restart3.jpg (22.8 KiB) Viewed 4186 times

En vervolgens dit script creeeren:

Code: Select all

Sub Main(parm as object)
  Dim iX10IntfStatus = 0

    iX10IntfStatus = hs.Plugin("X10 CM11A/CM12U").InterfaceStatus

    Select Case iX10IntfStatus
      Case 0
        hs.WriteLog("Info", "X10 Interface Check: OK")
      Case 1
        hs.WriteLog("Info", "X10 Interface Check: comms error (Code: " & iX10IntfStatus & ")")
      Case 2
        hs.WriteLog("Info", "X10 Interface Check: init error (Code: " & iX10IntfStatus & ")")
      Case Else
        hs.WriteLog("Info", "X10 Interface Check: unknown error (Code: " & iX10IntfStatus & ")")
    End Select

    If iX10IntfStatus <> 0 Then
      hs.WriteLog("Info", "Restart Homeseer")
      hs.SendEmail(<MAIL ADDRESS>,<MAIL ADDRESS>,"Failing X10 interface restart Homeseer","")
      Shell("c:\program files\homeseer hs2\Jon00RestartHS.exe", vbNormalFocus)
    End If
          
End Sub

Vervang <MAIL ADDRESS> door een mail adres waarnaar je een melding wilt laten sturen als Homeseer geherstart wordt.

En als laatste de Jon00RestartHS.exe file naar de Homeseer directory kopieren.

[labtec]

Bedankt! vooralsnog blijft het werken, maar altijd handig