Levén Labs / Snippets

Get IUSR Password

Script to retrieve username and password for the auto-generated ISUR & IWAM accounts.

VBScript sample 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 & "AnonymousUserName = " & IIsObject.Get("AnonymousUserName") 
  Out = Out & vbCrLf & "AnonymousUserPass = " & IIsObject.Get("AnonymousUserPass")
  If err=0 Then Out =  vbCrLf & "Path:" & IIsObject.AdsPath & Out  
  Get_IUSR_Password = Out
End Function 

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