Gå til innhold
  • Bli medlem
Støtt hjemmeautomasjon.no!

toonwolf

Medlemmer
 Vis profil  Se deres aktivitet

  • Innlegg

    738

  • Ble med

  • Besøkte siden sist

  • Dager vunnet

    19

 Innholdstype 

Innlegg skrevet av toonwolf

    ID-Lock V2

    i Sikkerhet

    Skrevet

    "Mine" ID Lock 150 låser brukes ofte av noen som ikke er kjent med de. Jeg gikk leie av å måtte forklare at for å låse opp fra innsiden skal man bruke "låseknappen" og ikke "bryte opp døra".  Laget en liten lapp som jeg har festet med gjennomsiktig tape på batterilokket. Kan jo være noen andre som har behov for dette.

    ID-Lock V2

    i Sikkerhet

    Skrevet

    4 minutter siden, Mastiff skrev:

    Så vidt jeg husker, er det vel nok å åpne låsen manuelt for at den skal oppdatere

    Det er riktig, status på batteriene blir kun oppdatert i kontroller når du låser opp enten med kode eller RFID. Om du kun bruker Z-Wave vil du ikke få disse oppdateringene. Mulig at dette har blitt endret i en eller annen firmwareversjon, men kan ikke se det i versjonshistorikken

    ID-Lock V2

    i Sikkerhet

    Skrevet

    8 minutter siden, Mastiff skrev:

    viser fremdeles 0 i batteri,

    Vet du bruker Hass, men om du hadde brukt HomeSeer hadde jeg villet tatt en "rescan" på låsen. Om det ikke hjalp en "ekskludering/inkludering". 

    ID-Lock V2

    i Sikkerhet

    Skrevet

    1 time siden, Mastiff skrev:

    Er det på nyeste firmware

    Ja, alle låser er på nyeste firmware. Ikke hatt problemer med at % på batteri viser feil etter en oppdatering som kom i fjor høst som fikset dette problemet.

    ID-Lock V2

    i Sikkerhet

    Skrevet

    På 14.7.2019 den 14.57, Mastiff skrev:

    Det ER en kjent feil i disse. Noen av dem vil ikke "sove" mellom gangene de blir aktivert. Derfor fikk jeg byttet en utedel. Men det irriterende er at det ser ut til at samme problem nå har dukket opp i den nye (fra mars, eller noe sånt), siden jeg har brukt opp fire sett batterier på en måned.

    Akkurat dette problemet har dukket opp på en av låsene mine (har tre tilsammen). Det som er merkelig er at denne låsen ble montert i fjor sommer og det har ikke vært noe problemer tidligere. Det startet med at batteriene ble tømt etter bare 1 uke. Jeg trodde først at det var fordi jeg hadde begynt å programmere inn koder med script som @Moskus hadde laget, men etter å ha byttet batteri igjen i går morges kl 10 viste den 85%. I går kveld kl 20 rapporterte låsen 50% kapasitet! Skjønner at noen kan få en lås som har en feil, men kan dette problemet også skje på en lås som har fungert i 1 år?

    Script for å skrive det siste minuttet av HS3 logg til fil

    i Scripts

    Skrevet

    45 minutter siden, Guahtdim skrev:

    Sub Main(ByVal Parm As Object)

    hs.WriteLog("GetAppPath",hs.GetAppPath)

    End Sub

    Noen feilmeldinger 

    
Error	Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\runhidden.vb: End-setningen er ikke gyldig.
Error	Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\runhidden.vb: Tegnet er ikke gyldig.
Error	Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\runhidden.vb: Navneområdet eller typen som er angitt i importene System.Core, inneholder ikke noe felles medlem eller finnes ikke. Kontroller at navneområdet eller typen er definert og inneholder minst ett felles medlem. Kontroller at det importerte elementnavnet ikke bruker noen aliaser.

     

    Script for å skrive det siste minuttet av HS3 logg til fil

    i Scripts

    Skrevet · Endret av toonwolf

    3 timer siden, toonwolf skrev:

    My.Computer.FileSystem.WriteAllText(hs.getapppath & "\NewLog.txt", LogEntry.LogTime.ToString & "," & LogEntry.LogType & "," & LogEntry.LogText & vbNewLine, True)

     

    Løsningen ble å hardkode stien og filnavn på denne måten: 

     My.Computer.FileSystem.WriteAllText("C:\Program Files (x86)\HomeSeer HS3\Logs\NewLog.txt",

    hadde en mistanke..

    Script for å skrive det siste minuttet av HS3 logg til fil

    i Scripts

    Skrevet

    Jeg ønsker å lage en loggfil med det siste minuttet fra loggen i HS3 og har funnet dette eksempelet av "mrhappy", 

    Sub Main(ByVal Parm As Object)

    Try
        Dim Logs() As HomeSeerAPI.LogEntry = hs.GetLog_Date(Now.AddMinutes(-1), Now)

        For Each LogEntry As HomeSeerAPI.LogEntry In Logs
            My.Computer.FileSystem.WriteAllText(hs.getapppath & "\NewLog.txt", LogEntry.LogTime.ToString & "," & LogEntry.LogType & "," & LogEntry.LogText & vbNewLine, True)
        Next

    Catch ex As Exception
        Log("Exception: " & ex.Message.ToString)
    End Try

End Sub

Sub Log(ByVal ParStr As String)
    hs.writelog("LogFile", ParStr)
End Sub

    men får feilmelding 

    Exception: Objektreferanse er ikke satt til en objektforekomst.

    Tips? (og ja har sjekket at det ikke er snodige tegn og konvertert til ANSI @Moskus ?

    script for å programmere kode i lås fungerer ikke om koden starter på "0"

    i Scripts

    Skrevet · Endret av toonwolf

    4 timer siden, Moskus skrev:

    Spesielt når det ikke virker.

    Akkurat nå virker ingenting lenger ? hverken Z-wave eller BLLock. Ja er i prinsippet enig med deg @Moskus at det er bedre å bruke "standard" funksjonalitet eller plug-in så lenge det er mulig. Jeg ser også at scriptet ditt inneholder mer funksjonalitet for logging. Kunne også tenkt meg å ha en virtuell device som blir skrudd på for å bekrefte at koden har blitt programmet i låsen. Dette vil gjøre det mulig å lage event som kun sender SMS med koden først når koden faktisk har blitt programmert. Har hatt noen tilfeller at VPN/nettet har gått ned eller at Z-wave gateway ikke har hatt kontakt med låsen. Jeg vil gjøre en del testing i helgen for å se om jeg får til scriptet ditt.

    script for å programmere kode i lås fungerer ikke om koden starter på "0"

    i Scripts

    Skrevet

    Takk for script @Moskus og @Guahtdim. Blade har laget en ny versjon av BLLock hvor kodeparameteren er en streng. Det fungerer nå å bruke kode som starter med 0 om jeg hardkoder, men jeg får det ikke til ved å bruke variabel fra virtual device. Veldig nærme nå!

     

    Forsøker meg med denne koden 

    Sub Main (byval inputArgs as string)

  Dim lockCode as String=hs.DeviceValue(707).ToString("0000")

  hs.PluginFunction("BLLock", "", "AddUserCodePin", New Object(){647,79,lockCode,"TEST"})

End Sub

    Får følgende feilmelding 

    BLLock	IDLock150 ANK Bod, Entry Control (647): Pin #79; User: TEST add FAILED
Z-Wave Error	A user code was attempted to be set on node 19, but the user code provided is less than the minimum or more than the maximum length

    PS: Setter pris på scriptet ditt også @Moskus, men liker også korte oversiktlige script som "gjør jobben"

    script for å programmere kode i lås fungerer ikke om koden starter på "0"

    i Scripts

    Skrevet

    18 minutter siden, Moskus skrev:

    Strengt tatt skal @toonwolf kunne bruke dette (gitt at device 707 inneholder en kode, og device 647 er root til en lås):

     

    Kjører dette scriptet. Merk jeg har endret hs.DeviceValue til "707" siden det er det jeg har som inneholder tallet 0507 

        Sub Main(ByVal inputArgs As String)
        hs.WriteLog("Add user", "Adding user...")
        Dim interfaceID As String = hs.GetINISetting("Interfaces", "IFace_0_Unique", "", "Z-Wave.ini")

        hs.WriteLog("Add user", "InterfaceID: " & interfaceID)

        Dim place As Integer = 79
        Dim PINnumber As Integer = hs.DeviceValue(707)
        Dim PINstring As String = PINnumber.ToString("0000")
        Dim nodeNumber As String = ZwaveUtil_GetNodeIdByRef(647)
        Dim configResult = hs.PluginFunction("Z-Wave", "", "AddUserCodePin", {nodeNumber, place.ToString, PINstring, "TEST-user", interfaceID})
        hs.WriteLog("Add user", "Done with result " & configResult.ToString)
    End Sub


    Public Function ZwaveUtil_GetNodeIdByRef(ByVal deviceId As Integer) As Integer
        Dim nodeId As Integer = -1

        If (deviceId > 0) Then
            Dim device As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(deviceId)
            If (device IsNot Nothing) Then
                Dim pdata As HomeSeerAPI.PlugExtraData.clsPlugExtraData = device.PlugExtraData_Get(hs)
                If (pdata IsNot Nothing) Then
                    nodeId = pdata.GetNamed("node_id")
                End If
            End If
        Else
            Throw New System.Exception("Device not found: " + deviceId)
        End If

        Return nodeId
    End Function

    Får følgende feilmeldinger i loggen 

    Setningen kan ikke forekomme i en metodetekst. Slutt på metoden antas.
End-setningen er ikke gyldig.
nodeId er ikke deklarert. Den kan være utilgjengelig på grunn av beskyttelsesnivået.
Metodeargumenter må stå i parenteser.
Return er ikke deklarert. Den kan være utilgjengelig på grunn av beskyttelsesnivået.
Tegnet er ikke gyldig.
End-setningen er ikke gyldig.
Else er ikke deklarert. Den kan være utilgjengelig på grunn av beskyttelsesnivået.
Tegnet er ikke gyldig.
Tegnet er ikke gyldig.
Tegnet er ikke gyldig.
device er ikke deklarert. Den kan være utilgjengelig på grunn av beskyttelsesnivået.
device er ikke deklarert. Den kan være utilgjengelig på grunn av beskyttelsesnivået.
Tegnet er ikke gyldig.
If må slutte med en tilsvarende End If.
Tegnet er ikke gyldig.
Setningen kan ikke forekomme i en metodetekst. Slutt på metoden antas.
Tegnet er ikke gyldig.
End-setningen er ikke gyldig.
interfaceID er ikke deklarert. Den kan være utilgjengelig på grunn av beskyttelsesnivået.
nodeNumber er ikke deklarert. Den kan være utilgjengelig på grunn av beskyttelsesnivået.
Tegnet er ikke gyldig.
PINnumber er ikke deklarert. Den kan være utilgjengelig på grunn av beskyttelsesnivået.
Tegnet er ikke gyldig.
Tegnet er ikke gyldig.
interfaceID er ikke deklarert. Den kan være utilgjengelig på grunn av beskyttelsesnivået.
Tegnet er ikke gyldig.
Tegnet er ikke gyldig.
Navneområdet eller typen som er angitt i importene System.Core, inneholder ikke noe felles medlem eller finnes ikke. Kontroller at navneområdet eller typen er definert og inneholder minst ett felles medlem. Kontroller at det importerte elementnavnet ikke bruker noen aliaser.

     

    ID Lock 150 og integrasjon med HomeSeer

    i HomeSeer

    Skrevet

    2 minutter siden, bjwanvik skrev:

    Er det noe helt opplagt jeg har gått glipp av her?

    Har du allerede lagt inn koder på kodeplassene i låsen manuelt? Om ja må du slette de før BLLock kan "administrere" de. Dette slet jeg også med før jeg fant ut av dette. Du ser om det eksisterer en kode som ikke lar seg administrere ved å gå til "root" noden (Entry Control) og velge Z-wave. Velg "Settings" og velg en av kodene. Husk at ID Lock 150 starter på 60. Om det står User: XXXX betyr det at du må slette denne før BLLock og Z-wave klarer å styre denne. Eksempel
    image.png.8a93970b443eae280ce7ab94705214fd.png

    Den beste måten å fjerne en kode på er faktisk å bruke en Z-wave Action i en event. (Du kan sikkert også bruke script). Eksempel:

    image.png.89a7690c3a7e8ac5a7fcf59ae610537e.png

    script for å programmere kode i lås fungerer ikke om koden starter på "0"

    i Scripts

    Skrevet

    1 time siden, Guahtdim skrev:

    Eventuelt du bare håndkoder slik at vi slipper å bekymre oss for konverteringsfeil. Då får man iallefall testet om det fungerer med å sende inn en streng med nuller i koden. 

    
Sub Main (byval inputArgs as string)

  hs.PluginFunction("BLLock", "", "AddUserCodePin", New Object(){647,79,"0001","TEST"})

End Sub

    gir følgende feilmelding: 

    BLLock error	Error in PluginProc: Objekt av typen System.String kan ikke konverteres til typen System.Int32.

    Jeg tror at den ikke takler 0001 med "" rundt.

     

    13 minutter siden, Moskus skrev:

    Det kan til og med være at du trenger "New Object()" foran {, men i teorien burde man ikke det. Kan også skrive det ut med fulle variabler...

      

    
Sub Main (byval inputArgs as string)
    Dim PINnumber as Integer = hs.DeviceValue(707)
    Dim PINstring as String = PINnumber.ToString("0000")
    hs.PluginFunction("Z-Wave", "", "AddUserCodePin", New Object(){"647", "79", PINstring, "TEST", "955BFE54AEE6"})
End Sub

    Scriptet kjører, men blir aldri "ferdig". Ser ut som om det henger da det bare viser at det har blitt kjørt i loggen. Kodeplassering 79 i låsen er ledig.

     

    Setter veldig pris på all hjelp!

    script for å programmere kode i lås fungerer ikke om koden starter på "0"

    i Scripts

    Skrevet

    Jeg har en virtuell device (707) som har verdien "0507"

     

    Testet ditt forslag til BLLock  

    Sub Main (byval inputArgs as string)

  Dim lockCode= hs.DeviceValue(707).ToString("0000")

  hs.PluginFunction("BLLock", "", "AddUserCodePin", New Object(){647,79,lockCode,"TEST"})

End Sub

    og fikk følgende feilmelding (samme som før). 

    	A user code was attempted to be set on node 19, but the user code provided is less than the minimum or more than the maximum length.

    Ved kjøring av Z-wave 

    Sub Main (byval inputArgs as string)
Dim PIN as String = hs.DeviceValue(707).ToString("0000")
hs.PluginFunction("Z-Wave", "", "AddUserCodePin", {647, 79, PIN, "TEST", "955BFE54AEE6"})
End Sub

    fikk jeg følgende feilmelding 

    Error in PluginProc: Objekt av typen System.Int32 kan ikke konverteres til typen System.String.

     

    script for å programmere kode i lås fungerer ikke om koden starter på "0"

    i Scripts

    Skrevet

    17 timer siden, Moskus skrev:

    Dim PIN as String = hs.DeviceValue(dev_ref).ToString("0000") hs.PluginFunction("Z-Wave", "", "AddUserCodePin", {NodeId, LockLocationId, PIN, Username, InterfaceID})

    ok, jeg er ikke noe god på VB script så trenger nok litt mer hjelp. Her er scriptet som jeg har testet. Jeg fant "InterfaceID" i z-wave.ini fila rett under navnet på Z-wave kontroller IFace_1_Unique=955BFE54AEE6 

    Sub Main (byval inputArgs as string)
Dim PIN as String = hs.DeviceValue(dev_ref).ToString("0000")
hs.PluginFunction("Z-Wave", "", "AddUserCodePin", {647, 79, PIN, TEST, 955BFE54AEE6})
End Sub

    får følgende feilmelding: 

    Error	Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\TESTaddusercode_z-wave.vb: Forventet }.
Error	Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\TESTaddusercode_z-wave.vb: TEST er ikke deklarert. Den kan være utilgjengelig på grunn av beskyttelsesnivået.
Error	Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\TESTaddusercode_z-wave.vb: dev_ref er ikke deklarert. Den kan være utilgjengelig på grunn av beskyttelsesnivået.
Error	Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\TESTaddusercode_z-wave.vb: Navneområdet eller typen som er angitt i importene System.Core, inneholder ikke noe felles medlem eller finnes ikke. Kontroller at navneområdet eller typen er definert og inneholder minst ett felles medlem. Kontroller at det importerte elementnavnet ikke bruker noen aliaser.

     

×
×
  • Opprett ny...

Viktig informasjon

Vi har plassert informasjonskapsler/cookies på din enhet for å gjøre denne siden bedre. Du kan justere dine innstillinger for informasjonskapsler, ellers vil vi anta at dette er ok for deg.