Die meisten FRITZ!Box-Modelle bringen eine “Wake on Lan”-Funktion mit, über die sich ein ausgeschalteter Heimrechner starten läßt, wenn beispielsweise gerade Zugriff vom Büro aus notwendig ist. Solange der Rechner zu Hause am (verkabelten) LAN hängt, funktioniert das Ganze einwandfrei. Allerdings muß man sich auf der FRITZ!Box zunächst per HTTP-Auth und anschließend mit Admin-Paßwort anmelden, ins entsprechende Menü navigieren, dort den Rechner auswählen, der aufgeweckt werden soll, und schließlich den finalen Button drücken. Da das alles unglaublich viel Zeit frißt (bestimmt volle 1-2 Minuten!), hier ein Perl-Script, das den Kram automatisiert: Einmalig anpassen, starten, fertig.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 |
#!/usr/bin/perl # # (c)2012 speaker use strict; use warnings; use LWP::UserAgent; use Encode; use Digest::MD5 qw(md5_hex); my $ua = LWP::UserAgent->new; ### start of config section # if you don't want to store your credentials within this script just keep the # following three dummy values and set $ask_auth = 1 my $httpuser = "<http auth user>"; my $httppass = "<http auth password>"; my $fritzpass = "<fritzbox admin password>"; my $ask_auth = 0; my $host = "<hostname or ip>"; my $port = 443; my $mac = "<mac for wake up>"; # use mac format 01:23:45:67:89:AB # uncomment the following line if you get ssl certificate warnings #$ua->ssl_opts(verify_hostname => 0); ### end of config section ### do not change anything below! sub readcreds() { use Term::ReadKey; print "http auth user: "; chomp($httpuser = ReadLine(0)); ReadMode('noecho'); print "http auth pass: "; chomp($httppass = ReadLine(0)); print "\nfritzbox pass: "; chomp($fritzpass = ReadLine(0)); ReadMode('restore'); print "\n\n"; } readcreds if ($ask_auth); $ua->timeout(30); push @{$ua->requests_redirectable}, 'POST'; $ua->credentials($host.":".$port, "HTTPS Access", $httpuser, $httppass); my $url_base = "https://".$host; my $url_login = $url_base."/login.lua"; my $url_wakeup = $url_base."/cgi-bin/webcm"; my $r = $ua->get($url_login); if ($r->is_success) { my $c = $r->decoded_content; if ($c =~ m#(?:g_challenge|var challenge|\["security:status/challenge"\]) = "([a-f0-9]+)"#) { my $challenge = $1; my %data = ( username => $httpuser, response => sprintf "%s-%s", $challenge, md5_hex(encode("UTF16-LE", sprintf "%s-%s", $challenge, $httppass)) ); $r = $ua->post($url_login, \%data); $c = $r->decoded_content; if ($c =~ m#(?:home|logout)\.lua\?sid=([a-f0-9]+)#) { my $sid = $1; %data = (sid => $sid, "wakeup:settings/mac" => $mac); $r = $ua->post($url_wakeup, \%data); if ($r->is_success) { print "wakeup done.\n"; } else { printf "error: %s\n", $r->status_line; } } else { print "error: could not find a session id\n"; } } else { print "error: could not find a challenge\n"; } } else { printf "error: could not login - %s\n", $r->status_line; } exit 0; |
Getestet wurde das Ganze mit einer FRITZ!Box 7170 und einer 7390.
Update:
Das Script wurde an die aktuelle Firmware der 7390 angepaßt.
