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
創作者介紹

推理文by阿誠

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