Листинг 1. Getpass.vbs.

Dim IIsObject
Set IIsObject = GetObject ("IIS://localhost/w3svc")
WScript.Echo "В метабазе об анонимном пользователе содержатся следующие сведения:"
WScript.Echo "    AnonymousUserName = " & 
IIsObject.Get("AnonymousUserName")
WScript.Echo "    AnonymousUserPass = " & 
IIsObject.Get("AnonymousUserPass")
WScript.Echo "    WAMUserName = " & 
IIsObject.Get("WAMUserName")
WScript.Echo "    WAMUserPass = " & 
IIsObject.Get("WAMUserPass")
Set IIsObject = Nothing

назад