dim pattern, text

if WScript.Arguments.length<1 or WScript.Arguments.length>2 then
  WScript.StdErr.WriteLine "Usage: CScript RegExp.vbs <pattern> [<text>]"
  WScript.Quit
end if


pattern = WScript.Arguments(0)

if WScript.Arguments.length>1 then
  text = WScript.Arguments(1)
else
  text = WScript.StdIn.ReadAll( )
end if

set regEx = new RegExp

regEx.Pattern = pattern
regEx.Global = true

set matches = regEx.Execute(text)

for each match in matches 
  WScript.Echo match.Value
next