Fritz!box LED über script anschalten

[multi]

Ich brauche Eure Hilfe.
Ich möchte gerne eine LED (z.B DSL/Power) über ein script oder macro ein und ausschalten. Bis jetzt geht es etwas umständlich über telnet.
Eingabeaufforderung telnet Fritz.box, dann in letzte Zeile "echo 1,1 >/var/led" und Enter. Das geht doch sicherlich auch mit einem "Klick"?!

 

[ThSteffens]

Klar.
Für Zoc lassen sich recht leicht Skripte schreiben. Zoc gibt es bei www.emtec.com, Skriptsprache ist REXX. Alternativ sollte auch ein Skript unter MS-DOS, bash, ash ... reichen. Aufruf über eine Verküpfung und fertig.

 

[multi]

Danke ThSteffens,

nur wie könnte so ein Skript unter Windows aussehen, ich habe keine Ahnung vom programmieren. Sorry.

 

[gringo123]

Ist ja schade das hier keiner eine lösung gepostet hat, ich suche genau das selbe.
Möchte die LED anzapfen um dami mein Server ein und auszuschalten

 

[multi]

Hallo gringo123, habe mir selbst geholfen. Suche mal nach ATC Automatic Telnet Client das ist Freeware. Damit habe ich die LED ein/aus geschaltet. Das Progamm starte ich mit einer Batch, das es auch wieder beendet. Einmal mit "an" und einmal mit "aus". Gruß

 

[gringo123]

Danke Multi.

das funzt ja gut.
Ich habe mir gedacht das muß doch einfacher gehen und habe mir zwei scripte gebastelt.

Einer zum einschalten, und der andere zum ausschalten.

####script an###
set sh=WScript.CreateObject("WScript.Shell")
sh.run "Telnet 192.168.178.1"
WScript.Sleep 3000
sh.SendKeys "echo 7,2 >/var/led"&vbcr
sh.SendKeys "exit"&vbcr


####script aus###
set sh=WScript.CreateObject("WScript.Shell")
sh.run "Telnet 192.168.178.1"
WScript.Sleep 3000
sh.SendKeys "echo 7,1 >/var/led"&vbcr
sh.SendKeys "exit"&vbcr


Den ersten unter an.vbs und den zweite unter aus.vbs speicherb und schon kann man die led an und aus machen.

Was mir noch nicht gelungen ist, wie schliesse ich das fenster automatisch.
Vielleicht weis hier jemand wie das geht.


Zuordnung der LEDs hier:
http://wiki.ip-phone-forum.de/gateways:avm:howtos:mods:leds

Die 7170 soll noch 4 weitere Rote LEDs haben die man aber nicht von aussen sehen kann.
Frage mich ob man die auch ansteuern kann.
Werde mal die Kiste aufmachen und dann etwas rumprobieren.

 

[gringo123]

Hier nun meine fertigen Scripte.

Das Telnetfenster startet minimiert und schließt sich von allein,
danach kommt eine Meldung das der Server an bzw aus ist,
nach 4 Sekunden schließt sich auch diese Meldung.

####script an###
set sh=WScript.CreateObject("WScript.Shell")
Set WsShell = CreateObject("WScript.Shell")
sh.run "Telnet 192.168.178.1" , 2
WScript.Sleep 3000
sh.SendKeys "echo 7,2 >/var/led"&vbcr
sh.SendKeys "exit"&vbcr
Msg = WsShell.Popup("SERVER AN", 4,"")
sh.run "tskill telnet"

####script aus###
set sh=WScript.CreateObject("WScript.Shell")
Set WsShell = CreateObject("WScript.Shell")
sh.run "Telnet 192.168.178.1" , 2
WScript.Sleep 3000
sh.SendKeys "echo 7,1 >/var/led"&vbcr
sh.SendKeys "exit"&vbcr
Msg = WsShell.Popup("SERVER AUS", 4,"")
sh.run "tskill telnet"

Es ist auch mit der Eingabe eines Passworts möglich,
wenn das jemand haben möchte, so sage er bescheid.

 

[multi]

Hallo gringo123,

diesehen ja gut aus. Nur wenn ich das Skript unter Word als vbs abspeichere und doppelklicke erscheint eine Fehlermeldung
Zeile: 1
Zeichen: 1
Fehler: ungültige Zeichen
Code: 800A0408
Quelle: Komplierungsfehler in MS VBscript
Mache ich etwas Falsch?
Guten Rutsch!!

 

[gringo123]

Unter Word geht das nicht.
Benutze dafür den Texteditor.

Ach ja, Telnet sollte an sein.

 

[gringo123]

So, hier die Fertigen Scripte.
Telnet sollte an sein, das macht man über Telefon.
An: #96*7*
Aus: #96*8*

 

[multi]

Vielen Dank gringo123,
nicht das ich jetzt unverschämt werde, aber kann man nach den "LED aus"-Befehl auch gleich den PC runterfahren, automatisch in einem "Rutsch"?.
Gruß und Danke nochmal, multi

 

[gringo123]

Also denk jetzt nicht ich sei der absolute Scriptschreiber, ich habe keine Ahnung davon,
alles was ich hier geschrieben habe, habe ich mir aus dem Internet zusammengesucht.

Auch deine Idee mit dem runterfahren konnte ich verwirklichen.

### Led aus + runterfahren: ###

set sh=WScript.CreateObject("WScript.Shell")
Set WsShell = CreateObject("WScript.Shell")
sh.run "Telnet 192.168.178.1" , 2
WScript.Sleep 3000
sh.SendKeys "echo 7,1 >/var/led"&vbcr
sh.SendKeys "exit"&vbcr
Msg = WsShell.Popup("SERVER AUS", 4,"")
sh.run "cmd.exe" , 2
Msg = WsShell.Popup("PC wird runtergefahren", 4,"")
sh.SendKeys "shutdown -s -t 0"&vbcr

 

[multi]

Vielen Dank das habe ich schon lange so gesucht. Ein erfolgreiches, gesundes Jahr für Dich.

 

[multi]

Ich brauche schon wieder Eure Hilfe

Ich habe mir ine Fritzbox 7270 zugelegt. Jetz funktioniert das o.g. Script nicht mehr, da Avm etwas geändert hat.
Die neuen Befehle stehen auf
http://wiki.ip-phone-forum.de/gateways:avm:howtos:mods:leds
ganz unten auch für die 7270, nur ich bekomme das nicht hin. Seid bitte so lieb und schreibt mir ein Script. Für die Power LED ein/aus und auch mir dem Runterfahren in einem Rutsch wäre gut. Vielen Dank im voraus. Ihr könnt das!!
MFG
multi

 

[Freak1234]

Also ich hab das mal gedownloaded, aber leider funktioniert das trotzdem nicht. Telnet is an. Ich habe eine Fritzbox 7113. Benötige schnell Hilfe, pls.
Bei mir steht:
Zeile 8
Zeichen 1
fehler: das system kann die angege´bene Datei nicht finden
Code: 8007002