UPNP kapiers nicht

[runger]

Hallo,
wir versuchen seit geraumer Zeit einen Automatissmus zu finden mit der sich die öffentliche IP adresse eines DSL Routers herausfinden lässt.
Soweit ( siehe Beispiel wir haben den Code stark vereinfacht) sind wir schon forgeschritten:
f1 ist UPNPdevicefinder

Delphi-Quellcode:

   UPnpDevices:=f1.FindByType('upnp:rootdevice',0);  //upnp:rootdevice      UPnPDevicex
   Memo1.Lines.Add('----------------------------------------------------------------------------');
   Memo1.Lines.Add('Number of UPnP devices: ' + IntToStr(upnpdevices.Count));
   Memo1.Lines.Add('----------------------------------------------------------------------------');
   EnumVariant := IEnumVariant(UPnpDevices._NewEnum);
   EnumVariant.Next(1, rgvar, celtFetched);
   UPnpDevice := IUPnpDevice(IUnknown(rgvar));
   Memo1.Lines.Add('FriendlyName:     '+UPnpDevice.FriendlyName);
   Memo1.Lines.Add('UniqueDeviceName: '+UPnpDevice.UniqueDeviceName);
   Memo1.Lines.Add('Services:         '+IntToStr(UPnpDevice.Services.Count));
   Memo1.Lines.Add('PresentationURL:  '+UPnpDevice.PresentationURL);
   Memo1.Lines.Add('SerialNumber:     '+UPnpDevice.SerialNumber);
   Memo1.Lines.Add('ModelURL:         '+UPnpDevice.ModelURL);
   Memo1.Lines.Add('UPC:              '+UPnpDevice.UPC);

Kann jemand helfen? Wie gehe ich vor um die Verbindungsdaten zu kriegen.
Bitte keine Beiträge, die auf das Internet verweisen wie www.ipadresse.net.
Da ich die IP intern benötige sind solche Beiträge absolut sinnlos!!

Rainer