Hi, It's been a while since I've done this, and I can't test in on this machine. But if memory serves me, then the following should work...

#! perl -w
use strict;
use Win32::OLE;

Win32::OLE->Option(Warn => 3);
my $hostname = shift;
my $rootkey = shift;
my $Collection = Win32::OLE->GetObject("IIS://$hostname/w3svc");

foreach my $website (@$Collection)
{
  print $website->{ServerComment}, $/;
}
[download]

-- simonflk