---

Hejsa.

Jeg har lidt problemer med at enumerere igennem nogle ADSI-objekter som kan
give information omkring IIS-webserveren.

Hvordan søren for jeg oversat følgende VBS-script?:

Function ShowSites(ServiceType, ClassName, Title)
   WScript.Echo Title & " Sites"
   WScript.Echo ""
   Wscript.echo Title & " Site " & title & " Site Description
Path"
   Wscript.echo
"===========================================================================
=="
   Set IISOBJ = getObject("IIS://localhost/" & ServiceType)
   for each Web in IISOBJ
      if (Web.Class = ClassName) then
         wscript.echo Ucase(ServiceType) & "/" & Web.Name & _
            Space(12-(len(Ucase(ServiceType))+1+len(Web.Name))) & " " & _
            ProcessWebSite(ServiceType, Web.name)
      end if
   next
   Set IISOBj=Nothing
   WScript.Echo ""
End function

Specielt tænker jeg på "for each"-loopet, og også hvordan jeg efterfølgende
tjekker at ClassName er det rigtige...

Jeg har noget i retningen af:

sub ShowSites
{
my ($ServiceType, $ClassName, $Title) = @_;

my $IISobj = Win32::OLE->GetObject("IIS://localhost/$ServiceType");

foreach my $Web ($IISobj????)
{
????
}
}

Håber I kan hjælpe.

Mvh,
Per

---

On Sat, 17 Jan 2004 01:01:25 +0100, Per Erik Gransře
<per@remove-this.gransoe.dk> wrote:

> Hejsa.
>
> Jeg har lidt problemer med at enumerere igennem nogle ADSI-objekter som
> kan give information omkring IIS-webserveren.
<snip VBS>
>
> Specielt tænker jeg på "for each"-loopet, og også hvordan jeg
> efterfølgende tjekker at ClassName er det rigtige...
<snip Perl>

> Håber I kan hjælpe.

MÃ¥ske kan http://aspn.activestate.com/ASPN/Mail/Message/1507381 give dig
lidt inspiration.


hth,

Morten Wulff


--
Self Injury Information and Support: www.psyke.org

"I have a school book with my name on it."
"Your parents must be so proud." (http://www.actsofgord.com/)