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，如需转载请自行联系原作者