Knowledge Base Article

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

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 t...
Published 9 years ago
Version 1.0
7.1.x and Earlier
7.5
7.6
7.7
Backup and Recovery
NetBackup
Reporting

Was this article helpful?

sdo's avatar
sdo
Moderator
9 years ago

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