Obtain IUSR and IWAM Anonymous Passwords 1

[porkchopexpress]

I came accross this on a website and didn't realise it was possible, thought i'd post it in case anyone finds it usefull.

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") _
& vbcrlf & " WAMUserName = " & objIIS.Get("WAMUserName") _
& vbcrlf & " WAMUserPass = " & objIIS.Get("WAMUserPass")
Set objIIS = Nothing 
WScript.Echo strMessage 
' END OF SCRIPT

When you are the IT director, it's your job to make sure the IT works. If it does work they know already and if it doesn't, they don't want to hear your pathetic excuses.