' IUSR.vbs
' Example VBScript to decode the anonymous user password
' Authors Guy Thomas and Paul DeBrino
' Version 1.2 - October 2006 
' ---------------------------------------------------------------------- 
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 

' END OF SCRIPT