Exemple de script perl (testé sous linux) pour faire de l'uPnP : Script
https://lafibre.info/download/upnp/igdctl.plNe pas oublier d'installer libnet-upnp-perl (
apt install libnet-upnp-perl sous linux)
Ce script fonctionne avec les Bbox Sagem, les livebox Sagem et Thomson.
Pour la Bbox Thomson il me semble qu'il faut modifier qq chose sur le script.
- Commande pour rajouter le port 5001 sur 192.168.1.1 :
./igdctl.pl -a -e 5001 -i 5001 -I 192.168.1.1 -P TCP- Commande pour rajouter le port 6522 sur 192.168.1.100 :
./igdctl.pl -a -e 65022 -i 6522 -I 192.168.1.100 -P TCP- Lister les ports ouverts :
./igdctl.pl -l- Afficher des infos UPnP :
$
./igdctl.pl -pInternet access : enabled
WAN access type : DSL
Maximum upstream rate : 748 bps
Maximum downstream rate : 5808 bps
Physical link state : Up
Max. number of active connections : 0
Total bytes sent : 526.58 MB
Total packets sent : 0
Total bytes received : 194.55 MB
Total packets received : 0