import requests

from requests.auth import HTTPDigestAuth

from xml.etree import ElementTree



fritzbox_ip = '192.168.178.1'

username = 'dein_username'

password = 'dein_passwort'



url = f'http://{fritzbox_ip}:49000/upnp/control/x_voip'

headers = {

    'Content-Type': 'text/xml; charset="utf-8"',

    'SOAPAction': 'urn:dslforum-org:service:X_VoIP:1#X_AVM-DE_GetCallList'

}



soap_body = """<?xml version="1.0" encoding="utf-8"?>

<SOAP-ENV:Envelope 

  xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" 

  SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">

  <SOAP-ENV:Body>

    <u:X_AVM-DE_GetCallList xmlns:u="urn:dslforum-org:service:X_VoIP:1" />

  </SOAP-ENV:Body>

</SOAP-ENV:Envelope>"""



response = requests.post(url, data=soap_body, headers=headers, auth=HTTPDigestAuth(username, password))



if response.status_code == 200:

    xml_root = ElementTree.fromstring(response.text)

    # parse relevant data

    print(response.text)

else:

    print("Fehler beim Abruf:", response.status_code)

# FritzBox-Zugangsdaten

$fritzIP     = "192.168.178.1"

$username    = "dein_benutzername"

$password    = "dein_passwort"

$internalNum = "621"



HTTP Digest Auth vorbereiten

$base64AuthInfo = [Convert]::ToBase64String([Text.Encoding]::ASCII.GetBytes("$username:$password"))



Schritt 1: SOAP-Anfrage an FritzBox für CallList-URL

$soapAction = "urn:dslforum-org:service:X_VoIP:1#X_AVM-DE_GetCallList"

$soapBody = @"

<?xml version="1.0" encoding="utf-8"?>

<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/"

            s:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">

  <s:Body>

    <u:X_AVM-DE_GetCallList xmlns:u="urn:dslforum-org:service:X_VoIP:1" />

  </s:Body>

</s:Envelope>

"@



$response = Invoke-WebRequest -Uri "http://$fritzIP:49000/upnp/control/x_voip" 

    -Method POST     -Body $soapBody 

    -ContentType 'text/xml; charset="utf-8"'     -Headers @{SOAPAction = $soapAction} 

    -Credential (New-Object System.Management.Automation.PSCredential($username, (ConvertTo-SecureString $password -AsPlainText -Force)))



Schritt 2: CallList-URL extrahieren

$xml = [xml]$response.Content

$calllistUrl = $xml.Envelope.Body.'X_AVM-DE_GetCallListResponse'.NewCallListURL



if (-not $calllistUrl) {

    Write-Host "❌ CallList-URL nicht gefunden"

    exit

}



Schritt 3: Anrufliste abrufen

$callListXml = Invoke-WebRequest -Uri $calllistUrl     -Credential (New-Object System.Management.Automation.PSCredential($username, (ConvertTo-SecureString $password -AsPlainText -Force)))

$callList = [xml]$callListXml.Content



Schritt 4: Prüfen, ob Nummer aktiv

$activeCall = $callList.CallList.Call | Where-Object {

    ($_.Caller -eq $internalNum -or $_.Called -eq $internalNum) -and $_.Duration -eq "0"

}



if ($activeCall) {

    Write-Host " $internalNum ist aktuell aktiv oder hängt."

} else {

    Write-Host " $internalNum ist nicht aktiv."

}