Hi Steven:
Ok cool, I got it going with this:
use Win32::OLE qw (in);
use strict;
use warnings;
my $IIS = Win32::OLE->GetObject("IIS://johnathlonxpm");
my $PathList = $IIS->GetDataPaths("AuthAnonymous",0);
print("$PathList");
print("\n");
my $thislong = scalar(@$PathList);
print("This long is $thislong\n");
for(my $i=0; $i<scalar(@$PathList); $i++){
print("$$PathList[$i]\n");
if($$PathList[$i]=~/smtp/i){
print("This one\n");
}
}
This prints our all the paths.
How do I enumerate the smtp paths? That is, how do I get a listing of
all ther perameter settings?
Cheers,
John
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Steven Manross
> Sent: Saturday, December 31, 2005 10:46 AM
> To: Paul Sobey; perl-win32-users@listserv.ActiveState.com
> Subject: RE: MS SMTP and MS FTP server information
>
>
> Use an ADSI editor like the IIS 6 Metabase Explorer, ADSVW or others..
>
> The metabase is stored here:
>
> IIS://SERVERNAME
>
> >From there you can do all sorts of cool stuff...
>
> I use it to do some SOX auditing of IIS settings..
>
> Realtime access and every possible setting is exposed via
> this interface.
>
> Perl can access it as well via the same interface.
>
> Please forgive me if there are typos.
>
> -------------
>
> use Win32::OLE qw (in);
>
> my $IIS = Win32::OLE->GetObject("IIS://Servername");
> $PathList = IIS->GetDataPaths("AuthAnonymous",0);
>
> foreach $Path (in $PathList) {
> if ($Path eq "IIS://" . $strSrv .
> "/W3SVC/Info/Templates/Secure Web Site/Root" ||
> $Path eq "IIS://" . $strSrv . "/W3SVC/Info/Templates/Public Web
> Site/Root") {
> #Do nothing.. these are templates
> } else {
> $iisnode = Win32::OLE->GetObject($Path);
> if ($iisnode->{AuthAnonymous} == 1) {
> print $strSrv . " -- AUTHANONYMOUS -- " . $Path."\n";
> }
> }
> }
>
> Steven
>
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Paul Sobey
> Sent: Wednesday, December 28, 2005 7:59 AM
> To: perl-win32-users@listserv.ActiveState.com
> Subject: RE: MS SMTP and MS FTP server information
>
> > How can I find this stuff with Perl?
> > I need to dump the SMTP and ftp settings, what MS calls properties,
> > from a machine for a report but the setup is done using IIS
> with GUIs.
> >
> > Anyone know how to do this? Where to get the information from? I've
> > scoured the registry and can't find where Gates' hides it.
>
> Depends on which version of IIS you mean. IIS 6 stores its
> info in a plain xml file, system32\inetsrv\metabase.xml. You
> can open this and play with standard tools, although you need
> to configure IIS to allow edits while running, or shutdown
> IIS, before making changes. You should find most of what you
> need in there. Alternatively, you could check out the
> ADSI/WMI providers:
>
> http://www.microsoft.com/technet/prodtechnol/WindowsServer2003
> /Library/I
> IS/43a51d34-7c81-413b-9727-ec9a19d0b428.mspx
>
> IIS 5 is not as easy since the metabase is a proprietry
> binary format, but there are still command line/COM
> interfaces to management I think.
>
> I've never used any of this stuff but it looks promising.
>
> Cheers,
> Paul
>
> *****************************************************************
> Gloucester Research Limited believes the information provided
> herein is reliable. While every care has been taken to ensure
> accuracy, the information is furnished to the recipients with
> no warranty as to the completeness and accuracy of its
> contents and on condition that any errors or omissions shall
> not be made the basis for any claim, demand or cause for action.
>
> The information in this email is intended only for the named
> recipient. If you are not the intended recipient please
> notify us immediately and do not copy, distribute or take
> action based on this e-mail.
>
> Gloucester Research Limited, 5th Floor, Whittington House,
> 19-30 Alfred Place, London WC1E 7EA
> *****************************************************************
>
> _______________________________________________
> Perl-Win32-Users mailing list
> Perl-Win32-Users@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
>
>
> _______________________________________________
> Perl-Win32-Users mailing list
> Perl-Win32-Users@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
