Jim,
Upgraded to your latest version in the Updater, and now can't get this code to execute. Would you help?
Sub Main
DIM DStr, dm
DIM Sensor
Set dm = hs.plugin("DooMotion")
For each MS in dm.MotionSensor HERE IS WHERE I GET THE ERROR
Set Sensor = MS
Sensor.NormalElapsedTime = 1
Select Case Left(Sensor.Name,6)
Case "Living"
Sensor.OccupancyElapsedTime = 45
Case "Outsid"
Sensor.OccupancyElapsedTime = 30
Sensor.NormalElapsedTime = 1
Case "DS Hal"
Sensor.OccupancyElapsedTime = 15
Case Else
Sensor.OccupancyElapsedTime = 30
End Select
hs.WriteLog "Motion", Sensor.Name & " OET set to " & sensor.OccupancyElapsedTime & " mins"
Next
Set Sensor = nothing
End Sub
Upgraded to your latest version in the Updater, and now can't get this code to execute. Would you help?
Sub Main
DIM DStr, dm
DIM Sensor
Set dm = hs.plugin("DooMotion")
For each MS in dm.MotionSensor HERE IS WHERE I GET THE ERROR
Set Sensor = MS
Sensor.NormalElapsedTime = 1
Select Case Left(Sensor.Name,6)
Case "Living"
Sensor.OccupancyElapsedTime = 45
Case "Outsid"
Sensor.OccupancyElapsedTime = 30
Sensor.NormalElapsedTime = 1
Case "DS Hal"
Sensor.OccupancyElapsedTime = 15
Case Else
Sensor.OccupancyElapsedTime = 30
End Select
hs.WriteLog "Motion", Sensor.Name & " OET set to " & sensor.OccupancyElapsedTime & " mins"
Next
Set Sensor = nothing
End Sub
Comment