@"x"#p146886
Ich habe das Problem jetzt mit Perl und
Net::Telnet
gelöst, die Session eröffnet man mit
$session = new Net::Telnet ( Timeout => 10,
Prompt => '/Netopia-7000.*> $/' );
$session->open("192.168.71.1"); # IP-Adresse des Routers hier einsetzen
$session->login("user","meintollespasswort");
Vorher ein Passwort für den Benutzer "user" setzen, der hat nur Read-Only-Zugriff und das ist gut:
Netopia-7000/xxx> conf
Config Mode v1.3
Netopia-7000/xxx (top)>> system password user-password set
... Anweisungen befolgen....
Netopia-7000/xxx (top)>> exit
Dann macht man
my @enetstats = $session->cmd("show enet");
my @wifistats = $session->cmd("show wireless clients");
und geht die Zeilen der Arrays einzeln durch und nach einem
$zeile =~ s/[[:cntrl:]]+//g;
ist das alles gut parsebar.
Nicht gerade das Wunschkind, aber trotzdem bleibt die Frage warum die Swisscom eine Custom-Firmware hat in der explizit SNMP herausgenommen wurde. 😕
PS: Über den magic-mode kommt man an die Console des Routers und sieht u.a. die Loginversuche des Scriptes:
Netopia-7000/xxx> magic mode
(poof!)
Netopia-7000/xxx# console
console output redirected to this session
Netopia-7000/xxx# 12/24/12 12:49:33 P L4 0 TS: "user" logging in from host 192.168.71.2
12/24/12 12:49:33 P L4 0 TS: "user" completed login: Read-only access
12/24/12 12:50:33 P L4 0 TS: "user" logging in from host 192.168.71.2
12/24/12 12:50:33 P L4 0 TS: "user" completed login: Read-only access
12/24/12 12:51:33 P L4 0 TS: "user" logging in from host 192.168.71.2
12/24/12 12:51:33 P L4 0 TS: "user" completed login: Read-only access
