Hi,
its been doing this since installed it and its really hard to get at the error messages.
any ideas?
its been doing this since installed it and its really hard to get at the error messages.
any ideas?
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.
ub Main(ByVal Parm As Object) Try 'run through the enumerator, remove the location two strings Dim dv As Scheduler.Classes.DeviceClass Dim EN As Scheduler.Classes.clsDeviceEnumeration EN = hs.GetDeviceEnumerator Do dv = EN.GetNext If dv Is Nothing Then Continue Do If dv.Interface(Nothing).ToLower = "z-wave" Then hs.writelog("Log Device Stop", "Device: " & dv.Name(Nothing)) dv.MISC_Set(hs, Enums.dvMISC.NO_LOG) End If Loop Until EN.Finished Catch ex As Exception : hs.writelog("Device Clear", "Exception: " & ex.message) End Try End Sub
ub Main(ByVal Parm As Object) Try 'run through the enumerator, remove the location two strings Dim dv As Scheduler.Classes.DeviceClass Dim EN As Scheduler.Classes.clsDeviceEnumeration EN = hs.GetDeviceEnumerator Do dv = EN.GetNext If dv Is Nothing Then Continue Do If dv.Interface(Nothing).ToLower = "z-wave" Then hs.writelog("Log Device Stop", "Device: " & dv.Name(Nothing)) dv.MISC_Set(hs, Enums.dvMISC.NO_LOG) End If Loop Until EN.Finished Catch ex As Exception : hs.writelog("Device Clear", "Exception: " & ex.message) End Try End Sub
dv.MISC_Set(hs, Enums.dvMISC.NO_LOG)
dv.MISC_Set(hs, Enums.dvMISC.NO_LOG)
dv.MISC_Clear(hs, Enums.dvMISC.NO_LOG)
dv.MISC_Clear(hs, Enums.dvMISC.NO_LOG)
Comment