Option Explicit Dim go_fso Set go_fso = CreateObject( "Scripting.FileSystemObject" ) Call s_main() WScript.Quit(0) Sub s_main() Dim ls_inp_file, ls_out_file, lo_inp_chan, lo_out_chan, ls_inp, ls_out ls_inp_file = WScript.Arguments.Item( 0 ) ls_out_file = ls_inp_file & ".red.txt" Set lo_inp_chan = go_fso.OpenTextFile( ls_inp_file, 1 ) Set lo_out_chan = go_fso.OpenTextFile( ls_out_file, 2, True ) Do ls_inp = lo_inp_chan.ReadLine ls_out = ls_inp 'replace company names... ls_out = Replace( ls_out, "ACME" ,"XXX" ) ls_out = Replace( ls_out, "AcmE" ,"XxX" ) ls_out = Replace( ls_out, "acme" ,"xxx" ) 'replace user names... ls_out = Replace( ls_out, "onlyme" ,"nbuadmin" ) ls_out = Replace( ls_out, "OnlyMe" ,"NbuAdmin" ) 'replace IP addresses... ls_out = Replace( ls_out, "10.0.1." ,"x.x.x." ) ls_out = Replace( ls_out, "10.0.9." ,"y.y.y." ) 'replace site names (e.g. in policy names)... ls_out = Replace( ls_out, "SITENAMEA_" ,"PRIMARY_" ) ls_out = Replace( ls_out, "SITENAMEB_" ,"SSECONDARY_" ) ls_out = Replace( ls_out, "SiteNameA_" ,"Primary_" ) ls_out = Replace( ls_out, "SiteNameB_" ,"Secondary_" ) lo_out_chan.WriteLine ls_out Loop Until lo_inp_chan.AtEndOfStream lo_inp_chan.Close lo_out_chan.Close End Sub