Get IWAM and IUSR anonymous passwords using scriptMOTOBIT.COM

Areas > Languages > VBScript
Areas > ASP / ASP.Net

     User name and password for IIS Anonymous User (Internet guest account, IUSR_...) and for IWAM_... user account are stored in AnonymousUserName + AnonymousUserPass and WAMUserName + WAMUserPass metabase properties. You can get them from ASP or Windows scripting host using next code:

Dim IIsObject, SiteObject
Set IIsObject = GetObject ("IIS://localhost/w3svc")

Wscript.Echo Get_IUSR_Password(IIsObject)
Wscript.Echo Get_IWAM_Password(IIsObject)

Function Get_IUSR_Password(IIsObject)
  on error resume Next
  Dim Out
  Out = Out & vbCrLf & "<br>AnonymousUserName = " & IIsObject.Get("AnonymousUserName") 
  Out = Out & vbCrLf & "<br>AnonymousUserPass = " & IIsObject.Get("AnonymousUserPass")
  If err=0 Then Out =  vbCrLf & "<br>Path:" & IIsObject.AdsPath & Out  
  Get_IUSR_Password = Out
End Function 

Function Get_IWAM_Password(IIsObject)
  on error resume Next
  Dim Out
  Out = Out & vbCrLf & "<br>WAMUserName = " & IIsObject.Get("WAMUserName") 
  Out = Out & vbCrLf & "<br>WAMUserPass = " & IIsObject.Get("WAMUserPass")
  If err=0 Then Out =  vbCrLf & "<br>Path:" & IIsObject.AdsPath & Out  
  
  Get_IWAM_Password = Out
End Function 

     You can also get the properties for each web site:

Dim IIsObject, SiteObject
Set IIsObject = GetObject ("IIS://localhost/w3svc")

Wscript.Echo Get_IUSR_Password(IIsObject)
Wscript.Echo Get_IWAM_Password(IIsObject)

For Each SiteObject In IIsObject
  Wscript.Echo Get_IUSR_Password(SiteObject)
  Wscript.Echo Get_IWAM_Password(SiteObject)
Next

Copyright and use this code

<A
 Href="https://www.motobit.com/tips/detpg_vbscript_get_iwam_iusr_password/"
 Title="Short VBScript code to retrieve Anonymous
	and WAM UserName and Password
	from metabase."
>Get IWAM and IUSR anonymous passwords using script</A>

Do you like it? Rate me on LinkedIn