wombat.ch

Fritzbox

<?
$fritzbox_ip = 'fritz.box';
$fritzgui    = 'http://fritz.box/cgi-bin/webcm';
$fritzseite  = '../html/de/menus/menu2.html';
$password    = 'xxxxx';

$ch = curl_init('http://' . $fritzbox_ip . '/cgi-bin/webcm?getpage=../html/login_sid.xml');
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
$login = curl_exec($ch);
$session_status_simplexml = simplexml_load_string($login);

if($session_status_simplexml->iswriteaccess == 1)
{
   $SID = $session_status_simplexml->SID;
}
else
{
   $challenge = $session_status_simplexml->Challenge;
   $response = $challenge . '-' . md5(mb_convert_encoding($challenge . '-' . $password, "UCS-2LE", "UTF-8"));
    curl_setopt($ch, CURLOPT_POSTFIELDS, "login:command/response={$response}&getpage=../html/de/menus/menu2.html");
    preg_match('/name="sid" value="([0-9a-f]*)"/', curl_exec($ch), $matches);
   if (isset($matches[1]) && $matches[1] != '0000000000000000')
   {
      $SID = $matches[1];
   }
   else
   {
      echo "Fehler: Login fehlgeschlagen";
      return;
    }
}
curl_close($ch);
$logInet = file_get_contents("http://fritz.box/system/syslog.lua?tab=internet&sid=".$SID);

preg_match_all('((?:\d{1,3}\.){3}\d{1,3})i', strip_tags($logInet), $ip);
SetValue(16596 /*[Fritzbox\IP-Adressen\I-Net]*/, $ip[0][0]);
SetValue(22491 /*[Fritzbox\IP-Adressen\DNS-Server 1]*/, $ip[0][1]);
SetValue(56705 /*[Fritzbox\IP-Adressen\DNS-Server 2]*/, $ip[0][2]);
SetValue(58268 /*[Fritzbox\IP-Adressen\Gateway]*/, $ip[0][3]);
//print_r($ip);


?>

Aktuelle IP-Adresse ( extern ) :
PHP-Code:

$StatusPage = file_get_contents('http://fritz.box/internet/inetstat_monitor.lua?sid='.$SID); $ip=substr(strstr($StatusPage,'["connection0:status/ip"] ='),29,14); $ip=substr($ip,0,strpos($ip,'"')); 



Verbunden seit :
PHP-Code:

$StatusPage = file_get_contents('http://fritz.box/internet/inetstat_monitor.lua?sid='.$SID); $datum=substr(strstr($StatusPage,'["connection0:status/conntime_date"]'),40,10); $zeit=substr(strstr($StatusPage,'["connection0:status/conntime_time"] ='),40,5); $verbundenseit=$datum." ".$zeit;  --