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 reply to Re: Win32::OLE and IIS
by simonflk
in thread Win32::OLE and IIS
by abdiel
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |