小编Joe*_*Joe的帖子

我正在使用 iis win2k3。如何提取网站的临时列表，显示主机标头值、描述和 Web 文件夹位置？

导出列表仅显示标题和描述值。

更新 - 马特提供了答案，我已经更新了代码以输出到文件中。希望这对某人有帮助

OPTION EXPLICIT

DIM CRLF, TAB
DIM strServer
DIM objWebService

TAB  = CHR( 9 )
CRLF = CHR( 13 ) & CHR( 10 )

IF WScript.Arguments.Length = 1 THEN
    strServer = WScript.Arguments( 0 )
ELSE
    strServer = "localhost"
END IF

WScript.Echo "Enumerating websites on " & strServer & CRLF
SET objWebService = GetObject( "IIS://" & strServer & "/W3SVC" )
EnumWebsites objWebService


SUB EnumWebsites( objWebService )
    DIM objWebServer, objWebServerRoot, strBindings
    DIM myFSO
    DIM …