https://sufan.maytide.net/index.php zh-cn https://sufan.maytide.net/read.php/838.htm gOxiA <sufan_cn@msn.com> Thu, 29 Jun 2006 09:25:37 +0000 https://sufan.maytide.net/read.php/838.htm

Dim IIsObject
Set IIsObject = GetObject ("IIS://localhost/w3svc")
WScript.Echo "AnonymousUserName = " & IIsObject.Get("AnonymousUserName") & vbCrlf & _
"AnonymousUserPass = " & IIsObject.Get("AnonymousUserPass") &vbCrlf &vbCrlf &_
"WAMUserName = " & IIsObject.Get("WAMUserName") & vbCrlf & _
"WAMUserPass = " & IIsObject.Get("WAMUserPass")
Set IIsObject = Nothing

]]>