Const ForReading = 1, ForWriting = 2, ForAppending = 8

Set IIsWebVirtualDirObj = GetObject("IIS://localhost/W3SVC/896362/Root")
Set IIsIPSecurityObj    = IIsWebVirtualDirObj.IPSecurity

Set oArgs = WScript.Arguments
if oArgs.Count=0 then wscript.quit

AddIP oArgs.item(0)

Sub AddIP(strIP)
  Dim IPList
  IPList = Array()

  If IIsIPSecurityObj.GrantByDefault Then
    IIsIPSecurityObj.GrantByDefault=false
    IIsWebVirtualDirObj.IPSecurity = IIsIPSecurityObj
    IIsWebVirtualDirObj.Setinfo
  end if

  IIsWebVirtualDirObj.Getinfo
  Set IIsIPSecurityObj = IIsWebVirtualDirObj.IPSecurity
  IPList = IIsIPSecurityObj.IPGrant
  IPExists=false
  for i=0 to ubound(IPList)
    if instr(IPList(i), strIP) then IPExists=true
  next
  if not IPExists then
    Redim preserve IPList (Ubound(IPList)+1)
    IPList (Ubound(IPList)) = strIP + ",255.255.255.255"

    IIsIPSecurityObj.IPGrant = IPList
    IIsWebVirtualDirObj.IPSecurity = IIsIPSecurityObj
    IIsWebVirtualDirObj.Setinfo
  end if
End Sub