Alfabetisk listning af webs i IIS 4 MMC

Nej ikke med mindre du vil igang med at rode i metabasen hvilket jeg ikke vil tilråde..

Hojben is right.

if it\'s any help you can have a nice little script that will show all web sites and the web site name, and physical name.

make WebSitePaths.vbs which includs:

\' **********************************************************************************
\' ** This script will show all web sites and the web site name, and physical name **
\' **********************************************************************************

Function ProcessWebSite(ServiceType, SiteNumber)
    Set IISWebSite = getObject(\"IIS://localhost/\" & ServiceType & \"/\" & SiteNumber)
    Set IISWebSiteRoot = getObject(\"IIS://localhost/\" & ServiceType & \"/\" & SiteNumber & \"/root\")
        ProcessWebSite = IISWebSite.ServerComment & Space(40-len(IISWebSite.Servercomment)) & _
            \" \" & IISWebsiteRoot.Path
    Set IISWebSiteRoot = nothing
    Set IISWebSite = Nothing
end function

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

Call ShowSites(\"w3svc\", \"IIsWebServer\", \"Web\")
Call ShowSites(\"msftpsvc\", \"IIsFtpServer\", \"FTP\")

you can also have a different script. simpler one:
ShowWWWSites.vbs which includes

\' mike-tech.com
\' Show ALL WWW Sites

Set IISOBJ = getObject(\"IIS://LocalHost/W3SVC\")
For each Object in IISOBJ
    if (Object.Class = \"IIsWebServer\") then
        WScript.Echo \"WWW Site: \" & Object.Name & \" - \" & Object.ServerComment
    end if
next

jeg ved ikke om det er bare er min maskine, men din script har en lidt uheldig virkning, nemlig at man skal trykke ok 100000 gange :/

det her script virker lidt bedre :)

Function ProcessWebSite(ServiceType, SiteNumber)
    Set IISWebSite = getObject(\"IIS://localhost/\" & ServiceType & \"/\" & SiteNumber)
    Set IISWebSiteRoot = getObject(\"IIS://localhost/\" & ServiceType & \"/\" & SiteNumber & \"/root\")
        ProcessWebSite = IISWebSite.ServerComment & Space(40-len(IISWebSite.Servercomment)) & _
            \" \" & IISWebsiteRoot.Path
    Set IISWebSiteRoot = nothing
    Set IISWebSite = Nothing
end function

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

Call ShowSites(\"w3svc\", \"IIsWebServer\", \"Web\")
Call ShowSites(\"msftpsvc\", \"IIsFtpServer\", \"FTP\")

det samme gør sig gældende med dit andet script

\'mike-tech.com
\' Show ALL WWW Sites

Set IISOBJ = getObject(\"IIS://LocalHost/W3SVC\")
For each Object in IISOBJ
    if (Object.Class = \"IIsWebServer\") then
        WhatToWrite = WhatToWrite & \"WWW Site: \" & Object.Name & \" - \" & Object.ServerComment & vbCrLf
    end if
next

Wscript.Echo WhatToWrite

hmmm, you are one of those that actually test your scripts... I\'ll have to adapt this concept more often :)

dr.m>> *lol*