[VBS / IIS] Serverbindings string mismatch

[Verwijderd]

Ik ben bezig met een scriptje om alle virtualhosts in IIS de hostname aan een w3svc te koppelen. Nu heb ik de volgende code:

code:

on error resume next

dim w3svc, webserver, serverid

set w3svc = GetObject("IIS://localhost/w3svc")

For Each WebServer in w3svc
    serverid = WebServer.name
    name = webserver.class
    
    if name = "IIsWebServer" then
        Set ServerObj = GetObject("IIS://localhost/w3svc/"&serverid)
        tempVal = ServerObj.ServerBindings
        set ServerObj = nothing
        msgbox(tempVal)
    end if
    
Next

set w3svc = nothing

Het rare is dat ie nu een foutmelding geeft: Type Mismatch. De string is niet leeg en hoort eigenlijk een output te geven--> ip:hostname:xxx

Bij MSDN staat dat dit een property is van IIsWebserverObject dus ik neem aan dat je dan ook gewoon deze kan uitlezen, heeft iemand hier al ervaring mee?

[gorgi_19]

Als je gaat debuggen, zet dan om te beginnen on error resume next eens uit.
Deze houdt misschien ook een paar foutmeldingen tegen..

[Verwijderd]

Als ik die uitzet dan krijg ik dus de typemismatch, als ik hem aan laat staan dan geeft ie niets terug. Ik had wel gecontroleerd of ServerObj een object is en of tempVal isNULL is, en deze is dus NIET leeg