Laberthread : Mehrere DynDNS Adressen aktualisieren

[Gismotro]

Link zum HowTo: Link ist nicht mehr aktiv.

 

[onder]

AW: Mehrere DynDNS Adressen aktualisieren

hi
ich habe das gemacht was kermit beschrieben hat auf meiner fritzbox 7270 v2 mit firmware version 54.05.54 der zweite dyndns account wird in der fritzbox nicht angezeigt steht aber drinn und nochecks=yes wird nicht in die fritzbox geschrieben obwohl ich es eingetragen habe. habe versucht bilder hochzuladen finde den buton nicht fürs hochladen von festplatte auch bei erweiterter einstellung.

 

[Gismotro]

AW: Laberthread : Mehrere DynDNS Adressen aktualisieren

Bilder kannst du nur über einen externen Hoster hier verlinken:

Sie müssen registriert sein, um Links zu sehen.

Hast du es mal per DNSOMATIC versucht ?

 

[onder]

AW: Laberthread : Mehrere DynDNS Adressen aktualisieren

nein per dnsomatic habe ich es nicht versucht wollte es in die fritzbox eintragen

Spoiler

Du musst angemeldet sein, um Bilder zu sehen.

Spoiler

Du musst angemeldet sein, um Bilder zu sehen.

hab da ein script der die checksumme korigiert damit die fritzbox es animmt da muß mann etwas eintragen ich weiß blos nicht wo

Spoiler

'fb_calcsum.vbs (c) 2014 by Michael Engelke <http://www.mengelke.de>

On Error Resume Next

Set args=WScript.Arguments
If args.count > 0 Then
Set file = "FRITZ.Box Fon WLAN 7270 v2 54.05.54_06.09.15_2017"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(args(0), 1)
file = objFile.ReadAll
objFile.Close
If Not file = "" Then
Set sum = ""
Set box = ""
Set data = ""
Set re = new regexp
With re
.Pattern = "(\w+)=([\w$.]+)(?=\r?\n)|\*{4} (?:CRYPTED)?(CFG|BIN)FILE\S+)\r?\n([^\0]*?)\r?\n\*{4} END OF FILE \*{4}|\*{4} (.*?) CONFIGURATION EXPORT|\*{4} END OF EXPORT (\w{8}) \*{4}"
.IgnoreCase = True
.Global = True
Set Matches = .Execute(file)
End With
For Each Match In Matches
If Match.submatches(0) Then
data = data & Match.submatches(0) & Match.submatches(1) & chr(0)
If Match.submatches(0) = "FirmwareVersion" Then
box = box & " (" & Match.submatches(1) & ")"
End If
End If
If Match.submatches(2) = "CFG" Then
max = Len(Match.submatches(4))
If max < 0 Then
max = 0
End If
data = data & Match.submatches(3) & chr(0) & Replace(Replace(Left(Match.submatches(4),max),"\",""),vbcr,"")
End If
If Match.submatches(2) = "BIN" Then
code = Replace(Replace(Match.submatches(4),vblf,""),vbcr,"")
temp = ""
For a = 1 To Len(code) Step 2
temp = temp & chr(CInt("&h" & Mid(code,a,2)))
Next
data = data & Match.submatches(3) & chr(0) & temp
End If
If Match.submatches(5) Then
box = Match.submatches(5)
End If
If Match.submatches(6) Then
sum = Match.submatches(6)
End If
Next
Dim crctbl(256)
For a = 0 To 255
c = a
For b = 1 to 8
d = Abs(c Mod 2)
c = Int(c/2) And &H7FFFFFFF
If d = 1 Then
c = c Xor &HEDB88320
End If
Next
crctbl(a) = c
Next
crc = &HFFFFFFFF
For a = 1 To Len(data)
crc = crctbl((crc And &HFFFF Xor Asc(Mid(data,a,1))) And &HFF) Xor Int(crc/256) And &HFFFFFF
Next
data = hex(CLng(crc Xor &HFFFFFFFF))
If Len(data) < 8 Then
data = String(8-Len(data),"0") & data
End If
box = box & vbcrlf & vbcrlf
If sum = data Then
InputBox box & "Checksumme ist OK!",args(0),data
Else
InputBox box & "Vorhandene Checksumme:" & vbcrlf & sum & vbcrlf & vbcrlf & "Korrekte Checksumme:",args(0),data
End If
Else
MsgBox "Export-Datei läßt sich nicht öffnen!" & vbcrlf & vbcrlf & args(0),16,"Fehler:"
End If
Else
MsgBox "Keine Export-Datei in der Eingabeaufforderung angegeben!" & vbcrlf & vbcrlf & WScript.ScriptName & " ""Export-Datei""",48,"Fehler:"
End If

 

[onder]

AW: Laberthread : Mehrere DynDNS Adressen aktualisieren

hi
das mit dnsomatic funktioniert nicht richtig anfragen auf den zweiten dyndns kommen nicht immer an.

 

[Gismotro]

AW: Laberthread : Mehrere DynDNS Adressen aktualisieren

Gibt es nee Fehlermldung ?

 

[onder]

ja
irgenwas mit falsch user pass invalid die pasworter stimmen aber wenn ich den router neustarte funktioniert alles wieder

illegal user xxxline from xx.xxx.xx.xxx
Sep 23 01:17:35 s400 CCcam: kick xx.xxx.xx.xxx, signature failed

habe noch ein anderen fehler mit dem server obwohl alles neuinstaliert habe nach einer gewissen zeit bleibt alles dunkel obwohl laut cccaminfo ecm ok. angezeigt wird.ist zum mäuse melken