Por mais que eu odeie responder a minha própria pergunta ...
Option Explicit
Dim objIIS, strMessage
Set objIIS = GetObject ("IIS://localhost/w3svc")
strMessage = "The metabase reports the anonymous credentials as:" _
& vbcrlf & " AnonymousUserName = " & objIIS.Get("AnonymousUserName") _
& vbcrlf & " AnonymousUserPass = " & objIIS.Get("AnonymousUserPass")
Set objIIS = Nothing
WScript.Echo strMessage
Uma solução mais genérica (que pode recuperar a senha para qualquer domínio) seria apreciada.