Generare una Lista di Tutti i Siti Attivi su IIS

Con questo Script sarà possibile generare una LISTA (descrizioni e ID) di tutti i siti web ATTIVI sul Nostro Web Server:

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