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
本文轉自 蘇繁 51CTO部落格,原文連結:http://blog.51cto.com/goxia/221150,如需轉載請自行聯系原作者