Hente informationer fra MS IIS?

Du kan lige tage et kig på dem her :

http://www.microsoft.com/technet/prodtechnol/windows2000serv/technologies/iis/maintain/optimize/autoadm2.mspx

http://www.winnetmag.com/Article/ArticleID/40713/40713.html

Håber du kan hente lidt inspiration der.

mvh

Alt efter hvad du mener med "diverse informationer om et opsat site", så kan du evt. benytte dig af WMI (Windows Management Instrumentation) og så af klassen Win32_PerfFormattedData_W3SVC_WebService. Der kan du hente en liste med at web sites på serveren og informationer om oppetiden, hvor mange brugere der er på, hvor mange brugere der totalt har været på, hvor mange bytes web sitet har sendt/modtaget osv.

Du kan læse mere om WMI på http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnanchor/html/anch_wmi.asp

Du kan læse mere om Win32_PerfFormattedData_W3SVC_WebService klassen på http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_perfformatteddata_w3svc_webservice.asp hvor du også kan se hvilke informationer du kan få vist.

Se evt. http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/wmi_tasks_for_scripts_and_applications.asp for et par eksempler som med ganske få ændringer kan bruges i ASP!

Tak for hjælpen begge to. Jeg manglede nogle keywords til hvor jeg kunne finde noget og det lykkedes mig. Som sagt er jeg mest til Perl og her er det script jeg kom frem til nedstående kode. Jeg fandt ud af at WMI løsningen ikke virker på servere under ver 5.1 og min er 5.0. Derfor forsøgte jeg mig med ADSI løsningen og det lykkedes. Koden udskriver sitets beskrivelse og en kommasepareret list af default-dokumenter. Det kan anbefales at downloade Metaedit for IIS fra Microsoft.com, så man får et overblik over de mulige attributter der er ud over "ServerComment" og "DefaultDoc"

Tak for tipsene!




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

my $IIS  = Win32::OLE->GetObject("IIS://localhost/W3SVC");
if ($IIS)
{
    my $enumIIS = Win32::OLE::Enum->new($IIS);
    foreach my $objSites ($enumIIS->All)
    {
        my $site_id = $objSites->{name}+0;
        if ($site_id)
        {
            my $path=qq¤IIS://monkeyzerver/W3SVC/$site_id¤;   
           
            my $site  = Win32::OLE->GetObject("IIS://monkeyzerver/W3SVC/$site_id");   
            my $site_root = Win32::OLE->GetObject("IIS://monkeyzerver/W3SVC/$site_id/root");       
            print "Name: $site->{ServerComment}\n";
            print "Default documents: $site_root->{DefaultDoc}\n\n";
        }
    }
}

...og her er pointene!

Der var jeg lidt for hurtig. Jeg mangler et svar!

svar her... så kommer snowball nok også med et :o)

:)