Dave’s latest Windows Scripting Solutions article (link) demonstrates how a Perl script can use UPnP to query Internet Gateway Devices (IGD) to see what ports have been mapped.

It is unfortunate that UPnP support is haphazardly implemented on most vendor’s IGDs (such as broadband routers). This means that even the best written UPnP client code can only view the mapped ports that the IGD allows it to view. The promise of IGD falls quite short in this regard since not only are many of the features in the various DCPs optional but how they are implemented are up a vendor’s interpretation. Hopefully newer technologies such as Web Services on Devices (WSD) based on the Devices Profile for Web Services (DPWS) can change that.

To read this article requires a subscription to Windows Scripting Solutions.

This is really an open question but how do you submit queries into Active Directory using Perl? Do you use Net::LDAP or Win32::OLE? I suppose for non-Win32 versions of Perl it would have to be Net::LDAP, but do Windows Perl users really use ADSI via Win32::OLE?

Dave Roth’s May 2006 issue of Windows Scripting Solutions (link) article discusses a simple way to detect differences between directories. Sure tools exist that do this already, but this article uses a Perl script to solve the problem. The reason for using a script instead of existing tools is that it is much easier to modify the script than it is to modify C code, recompile and relink. The former requires an editor and Perl, the latter requires an editor, a C compiler, a linker (optionally a debugger) and a lot of knowledge of C. Don’t get me wrong, I love C, but Perl is much faster to write and use. :)
To read this article requires a subscription to Windows Scripting Solutions.

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.

We are trying something new. This Perl blog is being experimentally deployed to see what happens. Consider this a place where you can go to post questions, comments and thoughts about Win32 Perl. Give it a try and let’s see where this takes us…

« Previous Page