in reply to Win32::OLE and IIS

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}, $/; }

-- simonflk