Set objIIS = GetObject ("IIS://localhost/w3svc")
strOutput = ""
strOutput = strOutput & "IUSR 帳號： " & objIIS.Get("AnonymousUserName") & vbCrLf
strOutput = strOutput & "IUSR 密碼： " & objIIS.Get("AnonymousUserPass") & vbCrLf & vbCrLf
strOutput = strOutput & "IWAM 帳號： " & objIIS.Get("WAMUserName") & vbCrLf
strOutput = strOutput & "IWAM 密碼： " & objIIS.Get("WAMUserPass")
Set IIsObject = Nothing
WScript.Echo strOutput
arrow
arrow
    全站熱搜

    abort 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄