Script to retrieve username and password for the auto-generated ISUR & IWAM accounts.
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