Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
Dim objIIS, strMessage
Set objIIS = GetObject ("IIS://localhost/w3svc")
strMessage = "The metabase reports the anonymous credentials as:" _
& vbcrlf & " AnonymousUserName = " & objIIS.Get("AnonymousUserName") _
& vbcrlf & " AnonymousUserPass = " & objIIS.Get("AnonymousUserPass") _
& vbcrlf & " WAMUserName = " & objIIS.Get("WAMUserName") _
& vbcrlf & " WAMUserPass = " & objIIS.Get("WAMUserPass")
Set objIIS = Nothing
WScript.Echo strMessage
' END OF SCRIPT