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...
<sig>#! 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
</sig>
|
---|
In Section
Seekers of Perl Wisdom