IIS 添加自定义 HTTP头脚本

'添加自定义 HTTP头脚本，by lyhu

Dim ArgObj ' Object which contains the command line argument
Dim Args(999) ' Array that contains all of the non-global arguments
Dim IISOBJ, CustomHeaders, Parts, HeaderName, HeaderValue

' Get the Arguments object
Set ArgObj = WScript.Arguments

If ArgObj.Count < 3 Then
 WScript.Echo "请输入HTTP头名称和值！"
 WScript.Echo "格式：AddHeader  [HTTP头名称] [HTTP头值] [虚拟目录/缺省为主目录]"
        WScript.Quit (2)
End If

If ArgObj.Count =3 then
 Set IISOBJ = GetObject("IIS://LocalHost/W3SVC/1/root/" & ArgObj(2))
else
 Set IISOBJ = GetObject("IIS://LocalHost/W3SVC/1/root")
end if

CustomHeaders = IISOBJ.HttpCustomHeaders

if (ubound(CustomHeaders) = -1) then
        Redim CustomHeaders(0)
        Index  = 0
else
       Redim Preserve CustomHeaders(UBOund(CustomHeaders)+1)
       Index = UBOund(CustomHeaders)
end if

HeaderName = ArgObj(0)
HeaderValue = ArgObj(1)

' 注意: 冒号后面的空格是必须的!
CustomHeaders(Index) = headerName & ": " & HeaderValue

IISOBJ.HttpCustomHeaders = CustomHeaders
IISOBJ.SetInfo 
WScript.Echo "自定义 HTTP头 设置成功" 

------------------------------------------------------------------------------------------------------------------

调用：

c:/>cscript scripts/AddHeader.vbs P3P CP='"CAO PSA OUR"' %1