' List Web Server Configuration Information
strComputer = "LocalHost"
Set objIIS = GetObject("IIS://" & strComputer & "/W3SVC/INFO")
Wscript.Echo "Admin Server: " & objIIS.AdminServer
Wscript.Echo "Log Module List: " & objIIS.LogModuleList
For Each strDescription in objIIS.CustomErrorDescriptions
Wscript.Echo "Custom Error Description: " & strDescription
Next
Wscript.Echo "Server Configuration Flags: " & objIIS.ServerConfigFlags