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 

Page created by Mikael Levén - All code and resources on the page is the author's property and protected by both national and international copyright laws (if not otherwise stated). The website hosting and domain name is sponsored by Eyedealistic and eXtreme PC

Last updated 21 februari 2008