推理文 by 阿誠

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