alsnafe911
IS-IT--Management
Can any one tell me how do you know how much data you backed up?
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Backup Size
- Thread starter alsnafe911
- Start date
- Status
You can create reports with the mminfo command:
<CMD>
mminfo -s %backupserver% -av -t"1 week ago" -r"Client, pool, savetime, name, sumsize" > backup.txt
This report will generate a list of all sumsizes of all the CLients for the last week.
you can minimize your reprot with the option "-q" (query)
-q "client="clientname", pool="poolname"" ....
now you can built a Program (BASIC, VB, VBA) thats sort your report, to get the information in the right format.
<CMD>
mminfo -s %backupserver% -av -t"1 week ago" -r"Client, pool, savetime, name, sumsize" > backup.txt
This report will generate a list of all sumsizes of all the CLients for the last week.
you can minimize your reprot with the option "-q" (query)
-q "client="clientname", pool="poolname"" ....
now you can built a Program (BASIC, VB, VBA) thats sort your report, to get the information in the right format.
- Thread starter
- #3
alsnafe911
IS-IT--Management
bw78
Thank you for your prompt response...what i do now is to go to the Logs folder under NSR and opens the savgroup.log which gives me how the backup went but it doesnt tell the Backup size and honestly iam not a Guru in programming so if you can help me on that plz
Thank you for your prompt response...what i do now is to go to the Logs folder under NSR and opens the savgroup.log which gives me how the backup went but it doesnt tell the Backup size and honestly iam not a Guru in programming so if you can help me on that plz
I´m not good in programming, but it works 
You need
1. Computer with LN Client installtion and
premissions.
2. MS-Dos for the Batch Programm.
3. Sax Basic Engine 6 (compatible with VB and VBA i think)
Create a Folder
in this folder are only two scripts and one bg.bmp
mminfo.cmd (Batch-Script)
usage.sba (SAX BASIC Script)
bg.bmp ´Background for Table in HTML - Outputfile
These Scripts will generate HTML files in the Pool-Folders
Good Luck.
If you need Help, u can contact me.
Bastian.Winkler@t-online.de
----- mminfo.cmd -----
REM if exist or not exist delete all Pool-Folders
REM Pool1 - 4 are Poolnames from Legato (Default)
deltree /y Pool1
deltree /y Pool2
deltree /y Pool3
deltree /y Pool4
Rem Pipe all Reports of "mminfo" in one file
Rem don´t forget to set the -t option
d:\Programme\nsr\bin\mminfo -s mapsbackup -t"13 days ago" -r"savetime,space(10),pool,space(10),client,space(20), sumsize,space(10), level,space(10),name,space(10),volume" -q"pool="Pool1"" >size.txt
d:\Programme\nsr\bin\mminfo -s mapsbackup -t"13 days ago" -r"savetime,space(10),pool,space(10),client,space(20), sumsize,space(10), level,space(10),name,space(10),volume" -q"pool="Pool2"" >>size.txt
d:\Programme\nsr\bin\mminfo -s mapsbackup -t"59 days ago" -r"savetime,space(10),pool,space(10),client,space(20), sumsize,space(10), level,space(10),name,space(10),volume" -q"pool="Pool3"" >>size.txt
d:\Programme\nsr\bin\mminfo -s mapsbackup -t"119 days ago" -r"savetime,space(10),pool,space(10),client,space(20), sumsize,space(10), level,space(10),name,space(10),volume" -q"pool="Pool4"" >>size.txt
Rem Start the usage.sba
D:\WINNT\System32\SaxAuto.exe /run "usage.sba"
--- END OF Batch-File ----
--- usage.sba ---
Sub Main
poolname$="Pool.txt"
Open poolname$ For Output As #1
Close #1
Open poolname$ For Append As #1
Print #1, "POOL1" ´set the Poolname u need !!!
Print #1, "POOL2" ´set the Poolnames u need !!!
Print #1, "POOL3" ´set the Poolnames u need !!!
Print #1, "POOL4" ´set the Poolnames u need !!!
Close #1
mminfo$="size.txt"
menue$="menue.html"
Open menue$ For Output As #1
Print #1, "<html>"
Close #1
Dim PN As Variant
Open Poolname$ For Input As #1
Do While Not EOF(1)
Line Input #1, rec$
PN = rec$
Debug.Print PN
MkDir PN
Open mminfo$ For Input As #2
Do While Not EOF(2)
Line Input #2, rec$
If Not InStr(rec$,PN) = 0 Then
Monat = Mid$(rec$,2,2)
Tag = Mid$(rec$,5,2)
Jahr = Mid$(rec$,8,2)
Open PN & "\" & Jahr & Monat & Tag & ".txt" For Append As #3
Print #3, rec$
Close #3
End If
Loop
Close #2
Dim Sum As Long
usage$ = "usage" & PN & ".html"
Open menue$ For Append As #6
Print #6, "<a href=" & PN & "\" & usage$ & ">" & PN & "</a><br>"
Close #6
ChDir PN
Open usage$ For Output As #4
Print #4, ""
Close #4
Open usage$ For Append As #4
Print #4, "<body bgcolor=FFFFFF text=000080 STYLE=font-family:Arial>"
Print #4, "</table><p align=left><table border=0 height=100 background=bg.bmp cellpadding=0 cellspacing=0><tr valign=bottom>"
Close #4
F$ = Dir$( "*.txt"
While F$ <> ""
totalsize = 0
Sum = 0
Open F$ For Input As #4
Do While Not EOF(4)
Line Input #4, rec$
If Not Mid$(rec$,76,4)="" Then
totalsize= Mid$(rec$,76,4)
Debug.Print totalsize
Debug.Print Mid$(rec$, 81,2)
If Mid$(rec$, 81,2) =" B" Then
totalsize = totalsize / 109051904
End If
If Mid$(rec$, 81,2) ="KB" Then
totalsize = totalsize / 106496
End If
If Mid$(rec$, 81,2) ="MB" Then
totalsize = totalsize / 1024
End If
If Mid$(rec$, 81,2) ="GB" Then
totalsize = totalsize
End If
Sum = Sum + totalsize
Monat = Mid$(rec$,2,2)
Tag = Mid$(rec$,5,2)
Jahr = Mid$(rec$,8,2)
If Weekday(Tag &"/" & Monat &"/"& Jahr) = 1 Then wt = "So. "
If Weekday(Tag &"/" & Monat &"/"& Jahr) = 2 Then wt = "Mo. "
If Weekday(Tag &"/" & Monat &"/"& Jahr) = 3 Then wt = "Di. "
If Weekday(Tag &"/" & Monat &"/"& Jahr) = 4 Then wt = "Mi. "
If Weekday(Tag &"/" & Monat &"/"& Jahr) = 5 Then wt = "Do. "
If Weekday(Tag &"/" & Monat &"/"& Jahr) = 6 Then wt = "Fr. "
If Weekday(Tag &"/" & Monat &"/"& Jahr) = 7 Then wt = "Sa. "
Else
End If
Loop
tableh=Sum/10
tableh=tableh + 0.49
tableh=Round(tableh)*2
link=CurDir() & "\" &f$
Open usage$ For Append As #5
Print #5, "<td><table border=1 cellpadding=0 cellspacing=1><td bgcolor=aa0000>" & "<a href=" & link &" target=_new><img alt=""" & wt & Tag & "/" & Monat & "/" & Jahr & " " & Sum & " GByte""" & "height=" & tableh & " width=5 border=0></a></td></Table></td>"
Close #5
Close #4
F$ = Dir$()
Wend
Open usage$ For Append As #5
Print #5, "<p align=center><b>" & PN & "</b>"
Close #5
ChDir ".."
FileCopy "bg.bmp", PN & "\bg.bmp"
Loop
Close
Rem *******************************************************************
Rem *******************************************************************
End Sub
---- END of USAGE.SBA -----
You need
1. Computer with LN Client installtion and
premissions.
2. MS-Dos for the Batch Programm.
3. Sax Basic Engine 6 (compatible with VB and VBA i think)
Create a Folder
in this folder are only two scripts and one bg.bmp
mminfo.cmd (Batch-Script)
usage.sba (SAX BASIC Script)
bg.bmp ´Background for Table in HTML - Outputfile
These Scripts will generate HTML files in the Pool-Folders
Good Luck.
If you need Help, u can contact me.
Bastian.Winkler@t-online.de
----- mminfo.cmd -----
REM if exist or not exist delete all Pool-Folders
REM Pool1 - 4 are Poolnames from Legato (Default)
deltree /y Pool1
deltree /y Pool2
deltree /y Pool3
deltree /y Pool4
Rem Pipe all Reports of "mminfo" in one file
Rem don´t forget to set the -t option
d:\Programme\nsr\bin\mminfo -s mapsbackup -t"13 days ago" -r"savetime,space(10),pool,space(10),client,space(20), sumsize,space(10), level,space(10),name,space(10),volume" -q"pool="Pool1"" >size.txt
d:\Programme\nsr\bin\mminfo -s mapsbackup -t"13 days ago" -r"savetime,space(10),pool,space(10),client,space(20), sumsize,space(10), level,space(10),name,space(10),volume" -q"pool="Pool2"" >>size.txt
d:\Programme\nsr\bin\mminfo -s mapsbackup -t"59 days ago" -r"savetime,space(10),pool,space(10),client,space(20), sumsize,space(10), level,space(10),name,space(10),volume" -q"pool="Pool3"" >>size.txt
d:\Programme\nsr\bin\mminfo -s mapsbackup -t"119 days ago" -r"savetime,space(10),pool,space(10),client,space(20), sumsize,space(10), level,space(10),name,space(10),volume" -q"pool="Pool4"" >>size.txt
Rem Start the usage.sba
D:\WINNT\System32\SaxAuto.exe /run "usage.sba"
--- END OF Batch-File ----
--- usage.sba ---
Sub Main
poolname$="Pool.txt"
Open poolname$ For Output As #1
Close #1
Open poolname$ For Append As #1
Print #1, "POOL1" ´set the Poolname u need !!!
Print #1, "POOL2" ´set the Poolnames u need !!!
Print #1, "POOL3" ´set the Poolnames u need !!!
Print #1, "POOL4" ´set the Poolnames u need !!!
Close #1
mminfo$="size.txt"
menue$="menue.html"
Open menue$ For Output As #1
Print #1, "<html>"
Close #1
Dim PN As Variant
Open Poolname$ For Input As #1
Do While Not EOF(1)
Line Input #1, rec$
PN = rec$
Debug.Print PN
MkDir PN
Open mminfo$ For Input As #2
Do While Not EOF(2)
Line Input #2, rec$
If Not InStr(rec$,PN) = 0 Then
Monat = Mid$(rec$,2,2)
Tag = Mid$(rec$,5,2)
Jahr = Mid$(rec$,8,2)
Open PN & "\" & Jahr & Monat & Tag & ".txt" For Append As #3
Print #3, rec$
Close #3
End If
Loop
Close #2
Dim Sum As Long
usage$ = "usage" & PN & ".html"
Open menue$ For Append As #6
Print #6, "<a href=" & PN & "\" & usage$ & ">" & PN & "</a><br>"
Close #6
ChDir PN
Open usage$ For Output As #4
Print #4, ""
Close #4
Open usage$ For Append As #4
Print #4, "<body bgcolor=FFFFFF text=000080 STYLE=font-family:Arial>"
Print #4, "</table><p align=left><table border=0 height=100 background=bg.bmp cellpadding=0 cellspacing=0><tr valign=bottom>"
Close #4
F$ = Dir$( "*.txt"
While F$ <> ""
totalsize = 0
Sum = 0
Open F$ For Input As #4
Do While Not EOF(4)
Line Input #4, rec$
If Not Mid$(rec$,76,4)="" Then
totalsize= Mid$(rec$,76,4)
Debug.Print totalsize
Debug.Print Mid$(rec$, 81,2)
If Mid$(rec$, 81,2) =" B" Then
totalsize = totalsize / 109051904
End If
If Mid$(rec$, 81,2) ="KB" Then
totalsize = totalsize / 106496
End If
If Mid$(rec$, 81,2) ="MB" Then
totalsize = totalsize / 1024
End If
If Mid$(rec$, 81,2) ="GB" Then
totalsize = totalsize
End If
Sum = Sum + totalsize
Monat = Mid$(rec$,2,2)
Tag = Mid$(rec$,5,2)
Jahr = Mid$(rec$,8,2)
If Weekday(Tag &"/" & Monat &"/"& Jahr) = 1 Then wt = "So. "
If Weekday(Tag &"/" & Monat &"/"& Jahr) = 2 Then wt = "Mo. "
If Weekday(Tag &"/" & Monat &"/"& Jahr) = 3 Then wt = "Di. "
If Weekday(Tag &"/" & Monat &"/"& Jahr) = 4 Then wt = "Mi. "
If Weekday(Tag &"/" & Monat &"/"& Jahr) = 5 Then wt = "Do. "
If Weekday(Tag &"/" & Monat &"/"& Jahr) = 6 Then wt = "Fr. "
If Weekday(Tag &"/" & Monat &"/"& Jahr) = 7 Then wt = "Sa. "
Else
End If
Loop
tableh=Sum/10
tableh=tableh + 0.49
tableh=Round(tableh)*2
link=CurDir() & "\" &f$
Open usage$ For Append As #5
Print #5, "<td><table border=1 cellpadding=0 cellspacing=1><td bgcolor=aa0000>" & "<a href=" & link &" target=_new><img alt=""" & wt & Tag & "/" & Monat & "/" & Jahr & " " & Sum & " GByte""" & "height=" & tableh & " width=5 border=0></a></td></Table></td>"
Close #5
Close #4
F$ = Dir$()
Wend
Open usage$ For Append As #5
Print #5, "<p align=center><b>" & PN & "</b>"
Close #5
ChDir ".."
FileCopy "bg.bmp", PN & "\bg.bmp"
Loop
Close
Rem *******************************************************************
Rem *******************************************************************
End Sub
---- END of USAGE.SBA -----
Hello,
Just wanted to point out a feature (bug) with mminfo. I have noticed that duplicate lines are produced when a client has had a lot of data backed up and it spans multiple volumes. The only way I've found to get around the reporting problem is by piping the output to 'sort -u' (for HPUX) which will display only the unique lines of output. Not sure what you could use in a Windows environment.
I hope this helps.
ks
Just wanted to point out a feature (bug) with mminfo. I have noticed that duplicate lines are produced when a client has had a lot of data backed up and it spans multiple volumes. The only way I've found to get around the reporting problem is by piping the output to 'sort -u' (for HPUX) which will display only the unique lines of output. Not sure what you could use in a Windows environment.
I hope this helps.
ks
- Status
Similar threads
- Locked
- Question