1Dim pat, patparts, rxp, inp 2pat = WScript.Arguments(0) 3patparts = Split(pat, "/") 4Set rxp = new RegExp 5rxp.Global = True 6rxp.Multiline = False 7rxp.Pattern = patparts(1) 8Do While Not WScript.StdIn.AtEndOfStream 9 inp = WScript.StdIn.ReadLine() 10 WScript.Echo rxp.Replace(inp, patparts(2)) 11Loop 12 13