I'm tring to setup my HAI Omin Pro but theres one thing that I can't seem to find. Is the statis of the system i.e armed disarmed.....
I need this as a trigger to run some events.
I need this as a trigger to run some events.
If this is your first visit, be sure to check out the FAQ. You must register before you can post.
IMPORTANT: Your first post will be checked for appropriate content. This may take a bit of time.
Sub Main() Dim iStatus iStatus = 999 iStatus = hs.plugin("HAI_System").InterfaceStatus if iStatus = 0 then hs.WriteLog "HAI CHECK","HAI Version: " & hs.plugin("HAI_System").HAI_Version hs.WriteLog "HAI CHECK","Plugin Version: " & hs.plugin("HAI_System").Version hs.WriteLog "HAI CHECK","Panel Arm Status is " & hs.plugin("HAI_System").SecurityStatus hs.WriteLog "HAI CHECK","Zone 5 is " & hs.plugin("HAI_System").ZoneName(5) & " and has status " & hs.plugin("HAI_System").ZoneStatus(5) & " with a value of " & hs.plugin("HAI_System").ZoneValue(5) hs.WriteLog "HAI CHECK","Unit 5 is " & hs.plugin("HAI_System").UnitName(5) & " and has status " & hs.plugin("HAI_System").UnitStatus(5) & " with a value of " & hs.plugin("HAI_System").UnitValue(5) hs.WriteLog "HAI CHECK","Button 6 is " & hs.plugin("HAI_System").ButtonName(6) hs.WriteLog "HAI CHECK","User Code 2 is " & hs.plugin("HAI_System").HAI_Lookup_userCode(2) hs.WriteLog "HAI CHECK", hs.plugin("HAI_System").ThermostatName(1) & " is " & hs.plugin("HAI_System").HAI_WhatIsTemp(1) & ", and " & hs.plugin("HAI_System").ThermostatName(2) & " is " & hs.plugin("HAI_System").HAI_WhatIsTemp(2) hs.WriteLog "HAI CHECK","Mode, Fan, & Hold Status for 1:" & hs.plugin("HAI_System").GetMode(1) & "/" & hs.plugin("HAI_System").GetFanMode(1) & "/" & hs.plugin("HAI_System").GetHoldMode(1) & " for 2:" & hs.plugin("HAI_System").GetMode(2) & "/" & hs.plugin("HAI_System").GetFanMode(2) & "/" & hs.plugin("HAI_System").GetHoldMode(2) hs.WriteLog "HAI CHECK","Cool Setpoints 1:" & hs.plugin("HAI_System").HAI_WhatIsSetpoint(1,"c") & " 2:" & hs.plugin("HAI_System").HAI_WhatIsSetpoint(2,"c") else hs.WriteLog "HAI CHECK","Interface Status is " & CStr(iStatus) end if End Sub
Comment