Simple script which will deny new connections if the
number of bytes exceeded certain limit since last reset.
Please copy this as "limit.vbs" and run from command
prompt as "cscript limit.vbs" after modifying the script
with parameters to suit your needs:
---
pubptname = "Yourpubname"    ' The pubpt. being tracked
CheckingFrequency = 60         ' How often you would
check in seconds - currently every minute
NumIterationsCheck = 60*24*31     ' How many iteration of
checking will be done
MaxBytesAllowed = 10000000     ' Maximum bytes allowed
after which we will stop permitting connections

set obj = createobject("WMSServer.server")

set pubpt = obj.PublishingPoints(pubptname)

set totcnt = pubpt.TotalCounters

do

bytessent = CLng(totcnt.PlayerBytesSent)
if BytesSent > MaxBytesAllowed then

  WScript.echo "Pubpt. "+pubptname+" reports "+CStr
(bytessent)+" bytes sent."
  WScript.echo "Limits exceeded. We will deny any new
connections, existing connections will still run though .."
  pubpt.AllowClientsToConnect = false
  exit do
else
  WScript.echo "Pubpt. "+pubptname+" reports "+CStr
(totcnt.PlayerBytesSent)+" bytes streamed."
end if
wscript.sleep checkingfrequency*1000
loop while i < NumIterationsCheck
WScript.echo "Script ended."
---
To reset counters, copy the following
as "resetcounter.vbs" and run on cmd line as "cscript
resetcounter.vbs":

pubptname = "YourPubName"    ' The pubpt. being tracked
set obj = createobject("WMSServer.server")

set pubpt = obj.PublishingPoints(pubptname)

set totcnt = pubpt.TotalCounters

totcnt.Reset
WScript.echo "Pubpt. "+pubptname+" has been reset. Total
player bytes: "+CStr(totcnt.PlayerBytesSent)
--

Hope this helps. Unfortunately, this has been tested yet -
please try this and modify this to suit your need. The
above is provided just as a sample.

--
This posting is provided "AS IS" with no warranties, and
confers no rights. Use of included script samples are
subject to the terms specified at
http://www.microsoft.com/info/cpyright.htm"