BPIMAGELIST - Output desired fields from image DB (Windows)

C:\>bpimagelist -client client_name -hoursago 100 -l > imagelist.txt

C:\>FOR /F "tokens=1,2,11,14,16,19" %G in (imagelist.txt) DO @echo %G    %H   %I    %J    %K    %L| findstr /B IMAGE

C:\>bpdbm -ctime 1364180573

1364180573 = Sun Mar 24 23:02:53 2013

 

C:\>bpdbm -ctime 1365390173

1365390173 = Sun Apr 07 23:02:53 2013

This might give the desired information as you asked in your post. 

Hi Mark et all,

Loads more progress with the script and I'm happy that this has formed a solution.  The lowercase -l allowed a better way delimit the the txt in the output file.  Just tweaking it a bit to get the desired output.

Points to Mark for his hard work on the script but a big thanks to all who contributed.

...I am a Windows man! :-)

Spoiled for choice here, but I've had some help with the scripting.
Mark, I had errors running your script.  I think bpimagelist with the -L parameter produces the output in a nice list, but not sure if your code accounts for that and is expecting one long line of output?  Anyway, it bombed out.

I've got this slighted modified version which appears to do the trick;

Const ForReading = 1
Dim arrOutput(7)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\imagelist.txt", ForReading)
Set objOutput = objFSO.CreateTextFile("C:\imagelist.csv")
objOutput.WriteLine "Client Name,Policy,Schedule Label,Backup Date,Expiry Date,Backup Size(KB),Schedule Type,Copies"

Do Until objFile.AtEndOfStream
 boolEmpty = TRUE
    arrFields = Split(objFile.ReadLine, ": ")

 If UBound(arrFields) => 1 then
  If arrFields(0) = "Client" Then arrOutput(0) = Trim(arrFields(1))
  If arrFields(0) = "Policy" Then arrOutput(1) = Trim(arrFields(1))
  If arrFields(0) = "Sched Label" Then arrOutput(2) = Trim(arrFields(1))
  If arrFields(0) = "Backup Time" Then arrOutput(3) = Trim(Left(arrFields(1), Instr(arrFields(1), " (")))
  If arrFields(0) = "Expiration Time" Then arrOutput(4) = Trim(Left(arrFields(1), Instr(arrFields(1), " (")))
  If arrFields(0) = "Kilobytes" Then arrOutput(5) = Trim(arrFields(1))
  If arrFields(0) = "Schedule Type" Then arrOutput(6) = Trim(Left(arrFields(1), Instr(arrFields(1), " (")))
  If arrFields(0) = "Number of Copies" Then arrOutput(7) = Trim(arrFields(1))
 End If

 For Each strElemenent in arrOutput
  If strElemenent = vbEmpty Then
   boolEmpty = TRUE
   Exit For
  End If
  boolEmpty = FALSE
 Next

 If Not boolEmpty Then
  For intCount = LBound(arrOutput) To UBound(arrOutput)
   If intCount = UBound(arrOutput) Then
    strOutput = strOutput & arrOutput(intCount)
   Else
    strOutput = strOutput & arrOutput(intCount) & ","
   End If

   arrOutput(intCount) = vbEmpty
  Next

  objOutput.WriteLine strOutput
  strOutput = ""
 End If
Loop

objFile.Close
objOutput.Close

Work is still required but its coming along nicely thanks to you.

Ok - needs lots of work!! - but sure you get the idea and maybe can play with it a bit.

Latest attempt uses the following for the first 3 fiedls needed - trouble is that dates and times are in unix

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\imagelist.txt", ForReading)

Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    arrFields = Split(strLine, " ")

    If InStr(arrFields(0), "IMAGE") Then
        strContents = strContents & arrFields(1) & "," & arrFields(6) & "," & arrFields(10) & "," & vbCrlf
    End If
Loop

objFile.Close

strContentsa = "Client Name,Policy,Schedule," & vbCrlf

Set objFile = objFSO.CreateTextFile("C:\imagelist.csv")
objFile.Write strContentsa

objFile.Write strContents

objFile.Close

.....................................

One thought here, it is not exactly what you need but not far off, have you tried this:

bpcatlist -since-days 7 -client clientname

or for everything just bpcatlist ( a few day /week / month options etc for this command too)

Is that near enough?

Due to the output of the command will need to do more work on this one .. will get back to you later

Glad to hear.

Please consider to mark one of the post as a soloution.

I did this by installing Cygwin, you get grep and awk. Perfect.

Hi all, 

Just checking posts whist back at home.

Thanks to everyone for your replies, espescially Mark_Solutions for actaully coding up a solution!

Will look at them all tomorrow.

Much appreciated, 

Matt