Win32::OLE and IIS

abdiel has asked for the wisdom of the Perl Monks concerning the following question:

In continuing with my IIS Security realted coding, I am trying to perform a simple audit of all virtual hosts on a server. These can be accessed via OLE/the Metabase under (IIS://server/w3svc/<instance>/root). I can access the information I need (IP address, web root) just fine when I know the instance I want to look at. My problem is that I don't know the number of Virtual Hosts I should be looking at on a particular server.

This brought me to look into Win32::OLE::Enum (Makes sense, I am using OLE, and I want to enumerate the container objects under the w3svc object). So far, the following code will give me hash references to the Virtual host objects I need, but I can't dig into them. I've tried using ->as_string to see what the values are, but that doesn't work.

Is there a method I can use in Win32::OLE or Win32::OLE::Enum that would do what I'm looking for? I don't really even need to know the Identifier, as long as I can look into the Root object to pull the info I need.

This code lists the objects by Hash Reference.

#! perl -w

use strict;
use Win32::OLE;
use Win32::OLE::Enum;

Win32::OLE->Option(Warn => 3);

my $hostname = shift;
my $rootkey = shift;

my $Collection = Win32::OLE->GetObject("IIS://$hostname/w3svc");


my $virts = Win32::OLE::Enum->new($Collection);
my @vhosts = $virts->All;

foreach (@vhosts){
    print "$_\n";
    
}
[download]

Comment on Win32::OLE and IIS Download Code

Replies are listed 'Best First'.
Re: Win32::OLE and IIS by jehuni (Pilgrim) on Apr 19, 2002 at 11:44 UTC
The following code should work for you. I prefer to use the "in" method of Win32::OLE (which must be explicitly imported), which really just calls Win32::OLE::Enum->All(). Also, make sure to check the Class property of the objects, because in addition to the IIsWebServer objects, you'll normally get IIsWebInfo and IIsFilters, as well. `#!/usr/bin/perl -w use strict; use Win32::OLE qw(in); my $hostname = shift; my $service = Win32::OLE->GetObject("IIS://$hostname/W3SVC"); for my $server (in $service) { if ($server->{Class} eq "IIsWebServer") { print $server->{ADsPath} . ': ' . $server->{ServerComment} . " +\n"; } }` [download] -jehuni	[reply] [d/l]
Re: Win32::OLE and IIS by ckohl1 (Hermit) on Apr 18, 2002 at 20:27 UTC
The virtual servers should be available to you in the registry: `HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W3SVC\Parameters\ +Virtual Roots` [download] Chris	[reply] [d/l]
Re: Re: Win32::OLE and IIS by abdiel (Monk) on Apr 18, 2002 at 20:33 UTC
Actually, that doesn't give me what I need. Those are the virtual roots for directories (cgi-bin and whatnot), I need virtual hosts (separate instances, that may or may not share the directories)	[reply]
Re: Win32::OLE and IIS by simonflk (Pilgrim) on Apr 19, 2002 at 02:50 UTC
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] <sig> -- simonflk </sig>	[reply] [d/l]


Problems? Is your data what you think it is?
	PerlMonks