VBscript for Windows desktops and servers to redact logs...

[sdo]

Some forum posters are unable to post even fragments of, let alone complete, raw log files for NetBackup.

If a poster takes a copy of the attached script and places it on their desktop they will then be able to drag'n'drop log files onto the script icon, and then the script will create a copy of the log file, but with all of the pre-configured sensitive text replaced, and place the redacted copy in the same folder as the source file.

All that has to be done is to save a copy of the script to your desktop, edit it for your site, and then it's ready for use.

The script will create a copy of any file, to a file named "*.red.txt", for any file dropped on to it.

[sdo]

And a visual copy of the script follows:

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_"    ,"SECONDARY_"    )
    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