In my June 2006 article for Windows Scripting Solutions I look at how to use the Net::UPnP package to query your network routers’ port mapping. Unfortunately I finished the script before Satoshi Konno updated his package to the latest version 1.2.1 (available on CPAN). This new version provides simple functions that my script goes through great pains to do itself. This version change is a welcome update. Great work Satoshi!
Yes, I know, Net::UPnP is not by any means Win32 specific. However it is definitely useful even in Win32 environments.