In the new environment we let Netbackup dictate which tapes are in the scratch pool and free for re-use based on the expiration policy of the jobs written to those tapes. In theory this should mean that you only ever use as many tapes as you need for a given backup job. The problem with this set-up is that although it is, in theory, more efficient, you don’t always know which tapes you will need each night and how many you have free.

Each day guys were running NBU command lines to show which tapes were in the scratch pool, but having to manually sift through them to see which tapes were currently sat in drives/libraries and of the ones held off-site, which tapes were of which format (LTO2, 3 or 4).

The following script can be scheduled to email out a list of tapes in the scratch pool, which are in what library and also groups the offsite tapes by format. It was knocked up in a hurry so isn’t as parameterised or dynamic as it should be, but the comments should help you fix it for your needs…

Here’s the script and HTML header & footer…

scratch_list.ps1

$debugpreference = "continue"

#This "output" variable runs and stores the output of the NBU command line
#Be sure that this .exe is in your path, otherwise change the below to include the full path to the executable.
$output = vmquery.exe -b -pn Scratch
$htmlfile = ".\output.txt"
$today = Get-Date

#Arrays to hold and sort info about our tapes.
#NOTE: this script is hard-coded to work for LTO2 (HCART2), LTO3 (HCART3) and LTO4 (HCART) tape drives/libraries
[array]$aTapes = @()
[array]$aHOffsite = @()
[array]$aH2Offsite = @()
[array]$aH3Offsite = @()

#NOTE: this script is hard coded to include the specific names of tape drives attached (via various media servers) to the master server
$aRobots = @{"TLD0" = 0; "TLD1" = 0; "TLD2" = 0; "TLD3" = 0; "TLD4" = 0; "TLD5" = 0; "TLD6" = 0; "TLD7" = 0; "TLD8" = 0; "TLD9" = 0; "TLD10" = 0; "TLD11" = 0; "TLD12" = 0; "TLD13" = 0; "TLD14" = 0}
$emailBody = Get-Content "header.html"
$aOffsite = 0

#Function to send mail (currently configured to send via Exchange)
function sendEmail() {
 $eServer = New-Object system.net.mail.smtpClient("exchange_server01")

 $From = "netbackup@yourcompany.com"
 $To = "nbu_reports@yourcompany.com"

 $todayDate = [string] $today.day + "/" + [string] $today.month + "/" + [string] $today.year

 $title = "Scratch tape list for $todayDate"

 $Body = $emailBody
 $eMsg = New-Object System.Net.Mail.MailMessage($From,$To,$title,$body)

 $eMsg.IsBodyHTML = $True

 $eServer.send($eMsg)    
}

#Take output of NBU command line util, and for each line pick out bits of the string
#Chuck everything in to a new array called $aTapes
foreach ($line in $output){
 if (($line.contains("HCART")) -and (-not $line.contains("A00"))) {

 $tName = ($line.substring(0, 6)).trim()
 $tType = ($line.substring(8, 6)).trim()
 $tRobot = $line.substring(23, 5).trim() #this captures a wide area with some white space that needs trimming

 $tRobot = $tRobot.replace(" ", "")

 $aTapes += ,($tName, $tRobot, $tType)
 }
}

#Go through the array we just created and then put the contents in to seperate arrays
#dependant on whether they are LTO, LTO2 or LTO3 tapes...
for ($j = 0; $j -lt $aTapes.length; $j++) {
 $tapeID = $aTapes[$j][0]
 $robot = $aTapes[$j][1]
 $type = $aTapes[$j][2]

 if ($robot.contains("-")) {
 switch ($type ) {
 "HCART" {$aHOffsite += ,($tapeID)}
 "HCART2" {$aH2Offsite += ,($tapeID)}
 "HCART3" {$aH3Offsite += ,($tapeID)}
 }

 } else {#If a library type does not contain HCART, HCART2 or HCART3 we must assume it's offsite (or in a safe))
 $temp = "TLD$robot"
 $aRobots[$temp] = $aRobots[$temp] + 1
 }
}

#Take the contents of $aRobots (offsite tapes) and put it in to a variables ready to be dumped in to our html output
foreach ($element in $aRobots) {
 $element > $htmlfile
}

#Start pipping everything out to the $emailBody variable which will make the body of our email
$emailBody += '<table><tr><td>Tape drive</td><td># scratch tapes</td></tr>'
foreach ($line in Get-Content $htmlfile) {

 if ($line.contains("TLD")) {
 $emailBody += "<tr>"

 $robot = $line.substring(0, 5)
 $count = $line.substring(31, 3)

 $emailBody += "<td>$robot</td><td>$count</td>"

 $emailBody += "</tr>"
 }
}
$emailBody += '</table><br/><br/>'

$emailBody += "<b>Offsite tapes...</b><br/>"

$emailBody += "<b>HCART</b><br>"
foreach($element in $aHOffsite) {
 $emailBody += "$element<br/>"
}
$emailBody += "<br/><b>HCART2</b><br>"
foreach($element in $aH2Offsite) {
 $emailBody += "$element<br/>"
}
$emailBody += "<br/><b>HCART3</b><br>"
foreach($element in $aH3Offsite) {
 $emailBody += "$element<br/>"
}

$emailBody += Get-Content "footer.html"

sendEmail

As per my other NBU scripts I use HTML files to store the CSS and opening HTML in order to easily format nice looking emails. See below for examples…

header.html

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head>
 <title>Scratch tape list</title>
 <style type="text/css">
 body {
 font-family: Calibri, Arial, Helvetica;
 color: black;
 font-size: small;
 background-color: #FFFFFF }
 p {
 font-size: small }
 .big {
 font-size: small }
 table {
 font-size: small;
 padding: 0px ;
 border-spacing: 2px ;
 empty-cells: hide ;
 border: 1px solid #AAAAAA }
 td {
 background-color: #EEEEEE;
 vertical-align: top }
 th {
 background-color: #EEEEEE;
 vertical-align: top ;
 text-align: left}
 </style>
</head>
<body>

<p>*** This email is now automatically generated ***<br></p>

footer.html

<br/>
<p>Regards,<br/><br/>
</p>
</body>
</html>

Let me know if this helps you out at all or if you can suggest any improvements…

Recently I’ve installed FreeNAS on to an old PC to (a) start getting some stability to my storage solution, and (b) play around with ZFS and iSCSI at home. I tried OpenFiler but it pales in comparison to FreeNAS. I’ve gone against my better judgement and I’m using some of the cooler plugins including the Torrent client, Dynamic DNS and I’ve even installed SABNzbd on it. FreeNAS comes with rsync built in and even Unison which is an interesting solution to cross platform backup/synchronisation, but I’ve payed for my CrashPlan Central plan so want to make use of it!Only problem now is backing up my data!

CrashPlan doesn’t support backing up from a network share – either mapped drive or UNC path. There is a work around on the CrashPlan site which works but is a little convoluted so wanted to post a nice, quick version here.

Read on after the break… The problem is simply that CrashPlan runs as a service using the SYSTEM account. To allow us to backup a network share we have a couple of options….

1. Change the service to run as a standard user account (e.g. the one you’re logged in to your machine as)
2. Map a drive under the SYSTEM account so that it is visible to CrashPlan

I’d recommend the latter but if you just plan on using this on a desktop machine and/or want a quick and dirty solution, here’s how you change the logon account for the service…

• Open up the Services MMC and find the CrashPlan Backup Service. Double-click it to open its properties
  
• Click the Log On tab and then select the This account radio button. 
• Enter the username and password of a local/domain user account with full permissions to the network share you want to back up 
  
• Click OK and then restart the service 
  
• Relaunch the CrashPlan application and you’ll now be able to see drives that you currently have mapped as a backup selection as well as local drives

The preferred method is to map a drive as the SYSTEM account. That in itself is no big deal, the thing is getting the drive mapped as soon as the machine boots and doing it each and every time your machine restarts. To do this we simply make use of Vista/7′s Task Scheduler.

The batch script, which we’ll save as c:\mount.bat simply uses a NET USE command. The one drawback to this method is that the username and password need to be saved in the script. You must use a username which has permissions to the network share. This need not be a local username, in the case of FreeNAS, if you have it joined to a domain as I do.

Here’s the code:

net use M: \\freenas\media /USER:dave@mydomain.lan myP4ssw0rd

Once you have that saved open up the Task Scheduler…

Create a new task (I keep my tasks in a seperate folder to the default Windows ones simply for easier administration). Give your ask a name, for example Mount drive for CrashPlan. Select Run whether user is logged on or not, tick the Run with highest privileges box and then click Change User or Group…

Type system and then Check Names (it should capitalise and underline). Click OK.

Back in the Create Task window slect the Triggers tab and click New… Select At log on… from the drop down list and click OK to close the window.

Now select the Actions tab and, again, click New… leave the action as Start a program and then browse to your batch that we created above.

Click OK to close the New Action window and again for the Create Task window.

Job done! You can right click on the task and select Run to try it out.

A much more elegant solution would be to have a native FreeNAS (or just BSD) client for CrashPlan or to make use of rsync/Unison. This will do me for now though.

I wrote this script to report on the status of snapshots. The filer name is passed as a variable and a list of volume names is stored as a variable at the top of the script. The output is nicely formatted email.

1. The script uses SSH to connect to the filer (see my SSH guide for Netapp filers)
2. For each vol listed in the array, the list of snapshots is returned
3. Any line with “__daily” in is processed – all others are ignored (we only care about our nightly verified snapshots which are all named __daily)
4. The snapshot name contains the date/time it was taken – this is read and if the date is within 24 hours of now a success is return (since reports are run the day after the verified job). If the date is over 24 hours a failure is returned.
5. A nicely formated HTML email is sent out which looks a little something like this…

Please see below for today’s backup report.

See the script and HTML files after the jump…

Don’t forget to change the name of your mail server, your sending and recipient email addresses and, most importantly, the location of plink.exe and your DSA keys used to establish the SSH connection (although you could easily modify this script to use RSH instead).

snapReport.ps1 script

# ==============================================================================================
#
# NAME:     Netapp filer snapshot reports
#
# AUTHOR:     David Warburton
# DATE:     12/03/2009
#
# PARAMETERS:    1. $filer
#        Specifies the name of the remote filer to connect to.
#        example: snapReport.ps1 myfiler01
#
# ==============================================================================================
$debugPreference = "continue"
$errorActionPreference = "stop"
$filer = $Args[0]
$htmlFile = "D:\Logs\Exchange Snapshot Report\exchange_Snapshot.html"
$volumes = ("Vol_Exc02_DB", "Vol_Exc02_LOG", "Vol_Exc02_DB1", "Vol_Exc02_LOG1", "Vol_Exc03_DB", "Vol_Exc03_LOG", "Vol_Exc03_DB1", "Vol_Exc03_LOG1")
$header = get-content "header.html"
$header > $htmlFile
$today = get-date
function sendEmail() {
 $eServer = new-object system.net.mail.smtpClient("mailserver.yourdomain.com")
 $From = "youraddress@yourcompany.com"
 $To = "backup_reports@yourcompany.com"
 if ($checkType -eq "weekly") {
 $title = "Weekly "
 } else {
 $title = "Daily "
 }
 $todayDate = [string] $today.day + "/" + [string] $today.month + "/" + [string] $today.year
 $title += "Exchange snapshot Report for $todayDate"
 $Body = get-content $htmlFile
 $eMsg = new-object System.Net.Mail.MailMessage($from,$to,$Title,$body)
 $eMsg.IsBodyHTML = $True
 #$eMsg.cc.add($cc)
 $eServer.send($eMsg)
}
function checkSnap($volName) {
 $output = D:\Utils\PuTTY\plink.exe svc-ssh@$filer -i D:\Utils\PuTTY\id_dsa.ppk snap list $volName
 $validsnap = $False
 $snapname = ""
 foreach ($line in $output){
 if ($line.contains("__daily")) {
 $sMonth = $line.substring(62, 2)
 $sDay = $line.substring(65, 2)
 $sYear = $line.substring(68, 4)
 $sDate = [datetime] "$sMonth $sDay $sYear"
 if (($sDate.date).addDays(1) -eq $today.date) {
 $validsnap = $True
 $snapname = $line
 }
 }
 if ($validsnap) {
 return $snapname
 }
 }
 return $False
}
foreach ($vol in $volumes) {
 $line = "<tr><td>$vol</td>"
 $status = checkSnap $vol
 if ($status -eq $false) {
 $line += "<td><font color=red>FAILED</font></td>"
 } else {
 $line += "<td><font color=blue>Success</font></td>"
 }
 $line += "<td>$status</td></tr>"
 $line >> $htmlFile
}
$footer = Get-Content "footer.html"
$footer >> $htmlFile
sendEmail

Here are the HTML bits for the header and footer of the email…

header.html

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head>
 <title>Backup Report</title>
 <style type="text/css">
 body {
 font-family: Calibri, Arial, Helvetica;
 color: black;
 font-size: xx-small;
 background-color: #FFFFFF }
 p {
 font-size: x-small }
 .big {
 font-size: x-small;
 font-weight: bold }
 table {
 padding: 0px ;
 border-spacing: 2px ;
 empty-cells: hide ;
 border: 1px solid #AAAAAA }
 td {
 background-color: #EEEEEE;
 vertical-align: top }
 th {
 background-color: #EEEEEE;
 vertical-align: top ;
 text-align: left}
 </style>
</head>
<body>
<p>*** This email is now automatically generated ***<br><br><b>Please see below for today's backup report.</b></p>
<p>
 <b>NOTE: </b><br/>
 - Exchange and SQL snapshots are managed by SnapManager and are alerted independantly to this report.<br/>
 - Not <u>all</u> snapshots are shown in these reports. Hourly snapshots are currently not reported upon.
</p>
<table>
<tr>
 <th>VOL Name</th><th>Status</th><th>Number of Snapshots</th><th>Last snapshot taken</th>
</tr>

footer.html

</table>
<br/>
<p>Regards.</p>
</body>
</html>

When copying files from a CIFS snapshot using the hidden .snapshot directory NTFS permissions are lost. Instead they are inherited from the folder you are copying to.

To maintain permissions, use NDMPCOPY specifying the snapshot name in the source (first) parameter…

ndmpcopy "filer1:/vol/vol_A/qtree_A/.snapshot/nightly.1/MyDocs" "filer1:/vol/vol_A/qtree_A/MyDocs"

You can enclose the path in quotes if the path has spaces in.

The great thing is that all the storage processing is offloaded from vCenter and is performed entirely on the filers. I’ve not had a chance to play with the RCU yet but this just looks utterly awesome! Check out this preview blog post and video from Netapp:

http://blogs.netapp.com/virtualstorageguy/2009/12/preview-rapid-cloning-utility-30-vcenter-plug-in.html

If you don’t have time to sit and read, then at least check out the video. I dare you not to be impressed!

Do any other storage vendors have similar tools?

In either case scripts are not processed on the filers themselves. They are scheduled and run on Windows/Linux systems using their native languages (e.g. Vbscript or Powershell). These scripts simply call native OnTAP commands against a filer which then returns data in the form of text. This is important to note as although Powershell is a useful language to use OnTAP will not return native PS objects which means you are limited to text/string based manipulation.

RSH

This method is the least secure but is the quickest and easiest to set up. Users need not necessarily be filer administrators. Although there is some degree of security in the sense that access is restricted to a set user account and accessible only via a set IP address, data is not encrypted.

RSH is not natively supported in Windows 2008 [from the command line] as it is in Windows 2003.

To enable RSH on the filer use the following command:

options rsh.enable on

You must also specify user accounts and IP addresses via the FilerView web interface.

SSH

Windows 2008 does not natively support SSH either so this is accomplished using plink.

To enable SSH on the filer use the following commands:

secureadmin setup
secureadmin enable ssh

Read more after the break…

Configuring SSH

1. First create a local user account on the filer using the following command:

    useradmin user add svc-ssh -g Administrators

   1. the passwords are kept in the Password spreadsheet
   2. The user must be a member of Administrators to be granted the Login_ssh permission on the filer
2. Using Powershell (whilst running with your Admin Account) change directory to the hidden share on the filer:

    cd \\filer\c$\etc\sshd\

3. Create a folder with the same name as your account created in step 1 and then another folder to hold the SSH keys:

    md svc-ssh
    md svc-ssh\.ssh

4. On the script server lunch PUTTYGEN.EXE and under the “Key” menu change the type to “SSH-2 DSA key”. Leave everything else on its default setting.
5. Click on the Generate button and follow the prompt
6. Enter the same password from step 1 in the “Key passphrase” and “Confirm passphrase” areas (they do not HAVE to be the same as step 1 but are being kept so for simplicity)
7. When complete, click on Save public key. Save it to the PuTTY folder with the name:
   id_dsa.pub
8. Save the private key to the same place with a similar name:
   id_dsa.ppk
9. Copy the contents of the “Public key for pasting into OpenSSH authorised_key file” area and paste it in to a new text document. You should use Wordpad to do this as Notepad does not handle the line breaks properly. Save this document as authorized_keys.
10. You are now finished. You can test connection using PuTTY by selecting your private key. The first time you connect you will be prompted to accept the hosts key. You will still be prompted for a username but you should not need to enter a password as this is what the SSH keys are for.

For scripting purposes we use plink.exe to issue a command. For example:

.\plink.exe svc-ssh@filer -i "id_dsa.ppk" df -s

Scripting using plink

The basic use of plink.exe is as follows:

.\plink.exe svc-ssh@filer -i "id_dsa.ppk" df -s

Two methods can be used to script the filers depending on what you’re trying to achieve:

NOTE: when calling plink.exe in Powershell the full or abbreviated path must be specified. So use either a full path, for example, D:\Utils\PuTTY\plink.exe or just .\plink.exe

Reporting

From a Powershell command prompt simply pipe the output of an SSH command in to a variable for later manipulation:

$output = .\plink.exe svc-ssh@filer -i “id_dsa.ppk” df -s

Maintenance

If multiple command need to be issued – for example, you need to delete a snapshot, rename the previous 5 snapshots, and then take a new snapshot – you should issue them all via the one SSH connection.

Commands can be concatenated using a semi-colon. Just be sure to enclose everything in quotes. For example:

 .\plink.exe svc-ssh@filer -i "id_dsa.ppk" "snap delete Vol_A hourly.6; snap rename Vol_A hourly.5 hourly.4; snap rename Vol_A hourly.4 hourly.3; snap rename Vol_A hourly.3 hourly.2; snap rename Vol_A hourly.2 hourly.1; snap create Vol_A hourly.0"

Well that’s it. It’s a pretty brief post – if you have any questions please feel free to post them in the comments…

Until now our users have demanded daily reports to be emailed out to key individuals. The format of these emails was quite basic in theory…it simply showed a list of all servers (clients) that were backed up, their status from last night (e.g. successful, failed, etc…) but then, crucially, a list of files that had been skipped.

The reason for listing each file that had failed was due to Netbackup’s poor poor (don’t get me started on how poor) feedback in the Activity Monitor and it’s built in reports. You see sometimes jobs could be marked as “Successful with warnings” if the job completed but the odd file had been skipped (if it were in use, for example). But other times, although it still listed which files had been missed if you double-clicked on each job, it showed the overall status as Successful. This meant that to report on the servers in the format that was required by our users we had to manually trawl through the 360 jobs across two Netbackup servers just to copy and paste the lines of the files that had been missed.

Needless to say it didn’t take me long to get bored of this so I started looking at a way of reproducing our reports automatically. After some time, I’ve come up with a solution – it uses VBScript to parse the logs files which I output using a few key Netbackup command-line tools.

The basic process and components to the script are as follows…

1. A VBscript calls a number of external batch scripts
2. These batch script run NBU commands and spit their output to text files
3. The VBscript then reads these text files
4. The VBscript reads a servers.txt file to determine what jobs to report on*
5. A LOT of array and string manipulation is used to catalogue which jobs have run and which have errors and if so, it collates all skipped files
6. These arrays are then parsed and dumped to either an HTML file (which can be used directly in the body of an email) or, as I’ve recently changed to script, outputs to an Excel file.

There are some nice bits to the script(s) and some really nasty bits – I welcome you to improve on the original and share it with everyone (for example, I know there is a much neater way of calling and parsing the output of batch jobs rather than the nasty wscript.sleep I have used).

* A text file (called servers.txt) is kept along side the scripts. This file is manually edited and must be kept up to date. The file is a number of lines, each one representing a client/job that we wish to report on. The format is as follows:

60, myserver, mypolicy, GroupName

The number at the start represents what days of the week the report should be generated. myserver is obviously the client that is to be reported on. mypolicy is the name of a policy that you are reporting on (since a client may me a member of multiple policies). Finally, GroupName is free text and can be used to group similar clients (that may not necessarily be grouped by the same policy.

The scripts necessary to generate a report are…

1. generateReport.vbs
   The primary script which calls the others and also performs of the processing and HTML/Excel generation
2. jobs_summary.bat
   Issues the bpdjobs – simmary command and pipes output to a text file. This provides a simple overview of number of total jobs and the number that have succeeded, failed or errored.
3. jobs_report.bat
   This is the main batch script upon which the report is generated. It is a hideous mess of space-formatted garbage and why so much processing is needed to generate a useful and nice looking report.

Clicking the scripts above will take you to a separate page with the code and more explanations of how to use it in your environment.

Sadly the script may cut off some lines. If you’d like a copy of the script to play around with drop me an email…

1:  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
2:  ' GENERATE LOG FILES
3:  Option Explicit
4:  Const fileServerList = "servers.txt"
5:  'On Error Resume Next
6:  'Overview status variables
7:  Dim ov_func, ov_status, ov_fail, ov_all, ov_all_status
8:  Dim WshShell, emailBody, filetxt, statusFile, fileToday
9:  Set WshShell = WScript.CreateObject("WScript.Shell")
10:  Set objFSO = CreateObject("Scripting.FileSystemObject")
11:  Set statusFile = objFSO.CreateTextFile("reportsbackupStatus.txt", True)
12:  Set filetxt = objFSO.CreateTextFile("reportsarchivebackupReport_" & Year(Now) & Month(Now) & Day(Now) & ".html", True)
13:  Set fileToday = objFSO.CreateTextFile("reportstoday.html", True)
14:  emailBody = ""
15:  '''''''''''''''''''''''''''''''''''''''''''''''''''''
16:  ' WE ARE NOW GOING TO USE EXCEL SHEETS TO REPORT
17:  ''dim objExcel, objBook, objSheet
18:  ''Set objExcel = CreateObject("Excel.Application")
19:  ''objBook = objExcel.Workbooks.Add()
20:  ''objSheet = objBook.Worksheets.Item(1)
21:  ''objExcel.Visible = False
22:  ''objExcel.Cells(1, 1).Value = "Test value"
23:  '''''''''''''''''''''''''''''''''''''''''''''''''''''
24:  Dim startDate, endDate, prevDay, numDays
25:  'Dates should be in the format mm/dd/yyyy
26:  'Times should be in the format HH:mm:ss
27:  endDate = month(now) & "/" & Day(now) & "/" & Year(now) & " " & "17:00:00"
28:  'Now figure out if we need the error log from just last night or from the whole weekend
29:  If Weekday(now) = 2 then '2 = Monday
30:       numDays = -3 'take us back 3 days to Friday
31:  Else
32:       numDays = -1 'just take us back 1 day to yesterday
33:  End If
34:  prevDay = DateAdd("d", numDays, now)
35:  startDate = CStr(month(prevDay) & "/" & Day(prevDay) & "/" & Year(prevDay) & " " & "17:00:00")
36:  'WScript.Echo "startDate = " & startDate
37:  'WScript.Echo "endDate = " & endDate
38:  'WScript.Echo "activity_errors.bat " & startDate & " " & endDate
39:  'Run the batch scripts with our new date parameters to generate our log files...
40:  backupLogs
41:  WshShell.Run ("jobs_summary.bat")
42:  WshShell.Run ("jobs_report.bat")
43:  WshShell.Run ("activity_errors.bat """ & startDate & """ """ & endDate & """")
44:  'Wait 90 seconds (!!!) for the file to close before we try and read it
45:  WScript.Sleep 90000
46:  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
47:  ' START GENERATING THE HTML HEADER INFO TO THE REPORT FILE
48:  ' #Write HTML header to Log
49:  writeLog "b", "<!DOCTYPE html PUBLIC ""-//W3C//DTD HTML 4.01//EN"">" & _
50:       "<html>" & _
51:       "<head>" & _
52:        "<title>Backup Report</title>" & _
53:        "<style type=""text/css"">" & _
54:             "body {" & _
55:              "font-family: Calibri, Arial, Helvetica; " & _
56:              "color: black;" & _
57:              "font-size: xx-small;" & _
58:                   "background-color: #FFFFFF }" & _
59:             " p {" & _
60:         "     font-size: x-small }" & _
61:             " .big {" & _
62:         "     font-size: x-small;" & _
63:         "     font-weight: bold }" & _
64:             " table {" & _
65:              "      padding: 0px ;" & _
66:              "      border-spacing: 0px ;" & _
67:              "      empty-cells: hide ;" & _
68:              "      border: 1px solid #AAAAAA }" & _
69:             " td {" & _
70:              "      background-color: #EEEEEE;" & _
71:            "      vertical-align: top }" & _
72:        "</style>" & _
73:       "</head>" & _
74:       "<body>"
75:  writeLog "e", "<p><b>*** This email is now automatically generated ***</b><br><br>Please see below for today's backup report.</p>"
76:  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
77:  ' READ IN LIST OF SERVERS AND GENERATE Array
78:  Dim objReadFile, nSched, strServer, aSvrStatus, objFSO, count, strPolicy, aLine, strLine, strGroup
79:  Const ForReading = 1
80:  'Create object for reading from our log file list
81:  Set objReadFile = objFSO.OpenTextFile(fileServerList, ForReading, True)
82:  count = 0
83:  ReDim aSvrStatus(5,count)
84:  ReDim aSvrLogs(3,count)
85:  'aSvrStatus(0,n) = server name
86:  'aSvrStatus(1,n) = catalog policy
87:  'aSvrStatus(2,n) = status code
88:  'aSvrStatus(3,n) = total bytes backed up
89:  'aSvrStatus(4,n) = category/group (e.g. Front Office, Back Office, IT...)
90:  'aSvrLogs(0,n) = server name
91:  'aSvrLogs(1,n) = warning/error messages
92:  'aSvrLogs(2,n) = warning/error messages
93:  Do
94:       strLine = objReadFile.ReadLine
95:       'Check for comments and blank lines...
96:       If strLine = "" Or Left(strLine, 1) = "#" Or isNull(strLine) Then
97:            'do Nothing
98:       Else
99:            aLine = split(strLine, ",")
100:            nSched = aLine(0)
101:            strPolicy = aLine(1)
102:            strServer = aLine(2)
103:            strGroup = aLine(3)
104:            'This has been changed slightly. The hex code now denotes if the REPORT should be run today for this particular client
105:            If logToday(nSched) Then
106:                 'wscript.Echo "nSched = " & nSched
107:                 'wscript.Echo "strPolicy = " & strPolicy
108:                 'wscript.Echo "strServer = " & strServer
109:                 ReDim preserve aSvrStatus(5, count)
110:                 aSvrStatus(0, count) = strServer
111:                 aSvrStatus(1, count) = strPolicy
112:                 aSvrStatus(4, count) = strGroup
113:                 'WScript.Echo count & " - " & aSvrStatus(0, count) & ", " & aSvrStatus(1, count)
114:                 count = count + 1
115:            Else
116:                 'do nothing
117:            End If
118:       End If
119:  Loop Until objReadFile.AtEndOfStream = True
120:  Dim numServers
121:  numServers = count
122:  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
123:  ' FIRST OFF, CREATE A LIST OF JUMP LINKS
124:  jumpLinks
125:  Sub jumpLinks()
126:       writeLog "f", "<b>Jump to...</b><br/>"
127:       Dim count, prevGroup
128:       For count = 0 To numServers - 1
129:            'If the group name In the current element of the array is not the same as before, close and start a new table
130:            If prevGroup <> aSvrStatus(4, count) Then
131:                 writeLog "f", "- <a href=""#" & aSvrStatus(4, count) & """>" & aSvrStatus(4, count) & "</a><br/>"
132:            End If
133:            prevGroup = aSvrStatus(4, count)
134:       Next
135:  End Sub
136:  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
137:  ' SECONDLY, SIMPLY SPIT OUT THE DETAILS OF THE SUMMARY.LOG FILE
138:  'Create object for reading from our log file list
139:  Set objReadFile = objFSO.OpenTextFile("logssummary.log", ForReading, True)
140:  Dim summaryCount
141:  summaryCount = 0
142:  writeLog "b", "<p>"
143:  Do
144:       strLine = objReadFile.readLine
145:       If summaryCount = 0 Then
146:            'Ignore the first line and output it as it appears
147:            writeLog "b", "<b>" & strLine & "</b><table>"
148:       Else
149:            'if line is blank then skip it
150:            If strLine <> "" and not IsNull(strLine) Then
151:                 'Subsqeuent lines need to be split to seperate the category and the total
152:                 strLine = Replace(strLine, "Partially Successful", "Partially-Successful")
153:                 strLine = Replace(strLine, " ", "")
154:                 aLine = Split(strLine, ":")
155:                 writeLog "b", "<tr><td>" & aLine(0) & "&nbsp;</td><td>&nbsp;" & aLine(1) & "&nbsp;</td></tr>"
156:            End If
157:       End If
158:       summaryCount = summaryCount + 1
159:  Loop Until objReadFile.AtEndOfStream = True
160:  writeLog "b", "</table><i>Please note: more than one ""job"" exists per backup client.</i><br><br>"
161:  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
162:  ' NOW WE HAVE OUR ARRAY WE CAN PARSE THE REPORT.CSV FILE FOR EACH SERVER STATUS
163:  Set objReadFile = objFSO.OpenTextFile("logsreport.csv", ForReading, True)
164:  Dim currentStatus
165:  Do
166:       aLine = split(objReadFile.ReadLine, ",")
167:       'For every line in the report, we need to loop through the array searching for a match
168:       For count = 0 To numServers - 1
169:            'aLine(6) = Server name
170:            'aLine(4) = Policy name
171:            'aLine(16) = bytes copied
172:            'If the server name and policy name match then we update information
173:            If aSvrStatus(0, count) = aLine(6) And aSvrStatus(1, count) = aLine(4) Then
174:                 'Check current status. If the current status is less that the new one from this line in the report log, then override it.
175:                 'The reason is that we want to know about ANY errors, so we don't care if drive C backed up successfully if drive D had issues.
176:                 If aSvrStatus(2, count) = "" Or aSvrStatus(2, count) < aLine(3) Then
177:                      'If the status is blank, it MAY be in progress. Check the prev column too which will confirm this.
178:                      If aLine(2) = 1 And aLine(3) = "" Then
179:                           aSvrStatus(2, count) = "IP"
180:                      Else
181:                           'WScript.Echo aSvrStatus(0, count) & " currently: [" & aSvrStatus(2, count) & "]" & VbCrLf & "Changing to: [" & aLine(3) & "]"
182:                           aSvrStatus(2, count) = aLine(3)
183:                      End If
184:                 end If
185:                 'Calculate Total Bytes. Not used. Seems inaccurate.
186:                 aSvrStatus(3, count) = aSvrStatus(3, count) + aLine(16)
187:            End If
188:       Next
189:  Loop Until objReadFile.AtEndOfStream = True
190:  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
191:  ' GO THROUGH THE ERROR LOG AND MATCH UP SERVERS AND FAILED FILES
192:  Set objReadFile = objFSO.OpenTextFile("logserrors.log", ForReading, True)
193:  count = 0
194:  Dim bUseOther : bUseOther = False
195:  Dim otherCount : otherCount = 0
196:  ReDim aSvrLogs(2, count)
197:  ReDim aOtherErrors(otherCount)
198:  Do
199:       strLine = objReadFile.ReadLine
200:       bUseOther = False
201:       'Get the server name from the string. We find the position of the word "client" then add 7 to account for that word and the space after.
202:       'We then search for the semi-colon and finish at 1 before (so as not to include the semi-colon itself.
203:       If InStr(strLine, "client ") > 0 Then
204:            'Being as this text file can change format by quite a lot, we need to put a catch in here.
205:            'If we can't easily extract our information, simply append this error line to the aOtherErrors
206:            'array. At least then the error will still be captured.
207:            On Error Resume Next
208:            strServer = mid(strLine, InStr(strLine, "client ") + 7, inStr(strLine, ":") - InStr(strLine, "client ") - 7)
209:            If Err.Number <> 0 Then
210:                 bUseOther = True
211:            Else
212:                 'add this to the normal Array
213:                 strLine = Mid(strLine, inStr(strLine, ":") + 2)
214:                 If Err.Number <> 0 Then     bUseOther = True
215:            End If
216:            On Error GoTo 0
217:       Else
218:            bUseOther = True
219:       End If
220:       'Here we actually enter the data in to the correct array
221:       If Not bUseOther Then
222:            '???COULD WE LOOP THROUGH THE ARRAY LOOKING FOR DUPLICATE ENTRIES???
223:            redim preserve aSrvLogs(2, count)
224:            aSrvLogs(0, count) = strServer
225:            aSrvLogs(1, count) = strLine
226:            count = count + 1
227:       Else
228:            'If we can't easily extract a server name to associate this error to, store it in a seperate array.
229:            ReDim Preserve aOtherErrors(otherCount)
230:            aOtherErrors(otherCount) = strLine
231:            otherCount = otherCount + 1
232:       End If
233:  Loop Until objReadFile.AtEndOfStream = True
234:  'Call sub to output the details of the array (server names, errors, etc...)
235:  writeArray
236:  writeLog "e", "<br><p>Regards,<br><br><b>Systems Engineering, 2nd Line</b><br>Robert Half International</p>"
237:  writeLog "b", "</body>"
238:  writeLog "b", "</html>"
239:  filetxt.Close
240:  fileToday.Close
241:  'today.html is used by the Daily Checks spreadsheet
242:  objFSO.copyfile "reportsarchivebackupReport_" & Year(Now) & Month(Now) & Day(Now) & ".html", "reportsuk_netbackup.html"
243:  ''' EMAIL NO LONGER AUTOMATICALLY SENT. INSTEAD, THE TODAY.HTML FILE GENERATED IS USED BY ANOTHER SCRIPT
244:  ''' WHICH COLATES ALL NETBACKUP AND FILER SNAPSHOT REPORTS IN TO ONE.
245:  '''SendEmail
246:  'WScript.Echo "Done"
247:  Dim objRange
248:  ''Set objRange = objExcel.usedRange
249:  ''objRange.EntireColumn.AutoFit()
250:  ''objRange.AutoFit()
251:  ''objExcel.SaveAs("c:test.xls")
252:  ''objExcel.Quit()
253:  ' ******** END OF SCRIPT ! ********
254:  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
255:  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
256:  ' FUNCTIONS AND SUB-ROUTINES
257:  Function logToday(hexSchedule)
258:       'All this funtion does is return TRUE if the log file was supposed to have
259:       'been run "today" (or whatever schedule was passed to it).
260:       Dim hs : hs = hexSchedule
261:       Dim isInDate : isInDate = false
262:       Dim Sun : Sun = false
263:       Dim Mon : Mon = false
264:       Dim Tues : Tues = false
265:       Dim Wed : Wed = false
266:       Dim Thur : Thur = false
267:       Dim Fri : Fri = false
268:       Dim Sat : Sat = False
269:       Dim today : today = weekday(date())
270:       ' 1 = Sunday
271:       ' 2 = Monday
272:       ' 3 = Tuesday
273:       ' 4 = Wednesday
274:       ' 5 = Thursday
275:       ' 6 = Friday
276:       ' 7 = Saturday
277:       If hs >= 64 Then
278:            hs = hs - 64
279:            Sat = True
280:       End If
281:       If hs >= 32 Then
282:            hs = hs - 32
283:            Fri = True
284:       End If
285:       If hs >= 16 Then
286:            hs = hs - 16
287:            Thur = True
288:       End If
289:       If hs >= 8 Then
290:            hs = hs - 8
291:            Wed = True
292:       End If
293:       If hs >= 4 Then
294:            hs = hs - 4
295:            Tues = True
296:       End If
297:       If hs >= 2 Then
298:            hs = hs - 2
299:            Mon = True
300:       End If
301:       If hs >= 1 Then
302:            Sun = True
303:       End If
304:       'I've had to change this check. The servers.txt file now states
305:       'when REPORTS should be run, NOT when the clients were due to be backed up.
306:       'REPORTS DO NOT GET RUN AT THE WEEKEND SO WE DON'T NEED SATURDAY OR SUNDAY
307:       Select Case today
308:            Case 2
309:                 If Mon Then isInDate = true
310:            Case 3
311:                 If Tues Then isInDate = true
312:            Case 4
313:                 If Wed Then isInDate = true
314:            Case 5
315:                 If Thur Then isInDate = true
316:            Case 6
317:                 If Fri Then isInDate = true
318:       End select
319:       'MsgBox "logToday = " & isInDate
320:       logToday = isInDate
321:  End Function
322:  Sub writeLog(bEmail, strLine)
323:       'bEmail used to be a boolean variable hence the name
324:       'b = write to both email and HTML file
325:       'e = write to email body onlly
326:       'f = write to HTML file only
327:       Select Case bEmail
328:            Case "e"
329:                 emailBody = emailBody & strLine
330:                 fileToday.Writeline(strLine)
331:            Case "f"
332:                 filetxt.Writeline(strLine)
333:            Case "b"
334:                 emailBody = emailBody & strLine
335:                 fileToday.Writeline(strLine)
336:                 filetxt.Writeline(strLine)
337:       End select
338:  End Sub
339:  Sub backupLogs()
340:       'On Error Resume Next
341:       Dim dayName
342:       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
343:       'Before we start copying all the log files, we want to move
344:       'the current log folder to a temporary backup folder...
345:       'WScript.Echo "Copying LOGS folder to backup location"
346:       If objFSO.FolderExists("logs") Then
347:            dayName = Weekday(date)
348:            'Take off a day (this will be YESTERDAYS logs we are moving)
349:            dayName = dayName - 1
350:            If dayName = 0 Then dayName = 7 '0 is invalid so go back a week
351:            Select Case dayName
352:                 Case 1
353:                      dayName = "Sunday"
354:                 Case 2
355:                      dayName = "Monday"
356:                 Case 3
357:                      dayName = "Tuesday"
358:                 Case 4
359:                      dayName = "Wednesday"
360:                 Case 5
361:                      dayName = "Thursday"
362:                 Case 6
363:                      dayName = "Friday"
364:                 Case 7
365:                      dayName = "Saturday"
366:            End Select
367:            'First check if our destination folder exists. If so, remove it.
368:            If objFSO.FolderExists("logs" & dayName) then
369:                 objFSO.DeleteFolder "logs" & dayName
370:            End If
371:            objFSO.CopyFolder "logs", "backups" & dayName, True
372:       End If
373:       'Make sure the LOGS folder exists before we begin copying logs in to it
374:       If Not objFSO.FolderExists("logs") Then
375:            objFSO.CreateFolder("logs")
376:       End If
377:       'WScript.Echo " Copied to logs" & dayName
378:       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
379:  End Sub
380:  Sub SendEmail ()
381:       'Make sure the HTML file has been closed
382:       WScript.Sleep 5000
383:       Dim strComputer, objNetwork, emailSubject, objEmail
384:       Set objNetwork = WScript.CreateObject("WScript.Network")
385:       strComputer = objNetwork.ComputerName
386:       Dim today, backupType
387:       today = weekday(now())
388:       If today = 2 Then
389:            backupType = "Weekly "
390:       Else
391:            backupType = "Daily "
392:       End If
393:       emailSubject = backupType & ucase(Left(strComputer, 2)) & " Backup Report for " & Day(Now) & "/" & Month(Now) & "/" & Year(Now)
394:       set objEmail = CreateObject("CDO.Message")
395:       objEmail.From = "storageTeam@yourCompany.com"
396:       ''objEmail.To = "toaddress@email.com"
397:       objEmail.To = "backupReports@yourCompany.com"
398:       objEmail.Subject = emailSubject
399:       objEmail.HTMLbody = emailBody
400:       'objEmail.CreateMHTMLBody "file://c:/scripts/reports/backupReport_" & Year(Now) & Month(Now) & Day(Now) & ".html"
401:       objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
402:       objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yourdomain.com"
403:       objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
404:       objEmail.Configuration.Fields.Update
405:       objEmail.AddAttachment "file://c:/scripts/reports/backupReport_" & Year(Now) & Month(Now) & Day(Now) & ".html"
406:       objEmail.Send
407:  End Sub
408:  Sub writeArray ()
409:       Dim count, strOne, strTwo, numSpaces, strSpaces, cntSpace, cntErrors, strError, prevGroup
410:       prevGroup = ""
411:       Dim overview
412:       Set overview = CreateObject("Scripting.Dictionary")
413:       For count = 0 To numServers - 1
414:            'If the group name In the current element of the array is not the same as before, close and start a new table
415:            If prevGroup <> aSvrStatus(4, count) Then
416:                 ov_func = aSvrStatus(4, count)
417:                 'If this is NOT the first iteration of the array then we must already have an open table, so close it off first...
418:                 If count > 0 Then
419:                      writeLog "f", "</table>"
420:                      'save current status to OV_ALL variable
421:                      ov_all = ov_all & "UK Netbackup," & ov_func & "," & ov_status & VbCrLf
422:                 End If
423:                 'reset other variables
424:                 ov_fail = False
425:                 ov_status = "Success"
426:                 writeLog "f", "<h2>" & aSvrStatus(4, count) & "</h2>"
427:                 If count = 0 Then
428:                      writeLog "e", "<table width=""300"" id=""" & aSvrStatus(4, count) & """>"
429:                      'Only write this to the email/today file for the first iteration
430:                      writeLog "b", "<tr class=""big""><td>Client</td><td>Policy</td><td>Status</td><td>Warnings</td></tr>"
431:                 End If
432:                 writeLog "f", "<table id=""" & aSvrStatus(4, count) & """>"
433:                 writeLog "f", "<tr class=""big""><td>Client</td><td>Policy</td><td>Status</td><td>Warnings</td></tr>"
434:            End If
435:            'Now we have done our check, reset the variable for checking in the next iteration of the loop
436:            prevGroup = aSvrStatus(4, count)
437:            writeLog "b", "<tr>"
438:            strOne = aSvrStatus(0, count)
439:            strTwo = aSvrStatus(2, count)
440:            If Len(strOne) < 8 Then
441:                 strOne = strOne & "  "
442:            End If
443:            Select Case strTwo
444:                 Case "IP"
445:                      strTwo = "<font color=""orange"">In progress</font>"
446:                      ov_status = "Failure" : ov_fail = True
447:                 Case "0"
448:                      strTwo = "<font color=""blue"">Success</font>"
449:                 Case "1"
450:                      strTwo = "Success (with warnings)"
451:                      If not ov_fail Then
452:                           ov_status = strTwo
453:                      End If
454:                 Case "11"
455:                      strTwo = "<font color=""red"">FAILURE - System call failed (UKNOWN ERROR)</font>"
456:                      ov_status = "Failure" : ov_fail = True
457:                 Case "48"
458:                      strTwo = "<font color=""red"">FAILURE - Could not contact client</font>"
459:                      ov_status = "Failure" : ov_fail = True
460:                 Case "58"
461:                      strTwo = "<font color=""red"">FAILURE - Could not connect to client</font>"
462:                      ov_status = "Failure" : ov_fail = True
463:                 Case "96"
464:                      strTwo = "<font color=""red"">FAILURE - No media available</font>"
465:                      ov_status = "Failure" : ov_fail = True
466:                 Case "150"
467:                      strTwo = "<font color=""red"">FAILURE - Cancelled by administrator</font>"
468:                      ov_status = "Failure" : ov_fail = True
469:                 Case "156"
470:                      strTwo = "<font color=""red"">FAILURE - Snapshot error encountered</font>"
471:                      ov_status = "Failure" : ov_fail = True
472:                 Case "196"
473:                      strTwo = "<font color=""red"">FAILURE - Backup window expired</font>"
474:                      ov_status = "Failure" : ov_fail = True
475:                 Case "200"
476:                      strTwo = "<font color=""red"">FAILURE - Scheduler found no backups due to run</font>"
477:                      ov_status = "Failure" : ov_fail = True
478:                 Case "800"
479:                      strTwo = "<font color=""red"">FAILURE - Resource request failed</font>"
480:                      ov_status = "Failure" : ov_fail = True
481:                 Case ""
482:                      strTwo = "<font color=""orange"">Queued...</font>"
483:                      ov_status = "Failure"
484:                 Case Else
485:                      strTwo = "Error Code: " & strTwo
486:                      ov_status = "Success (with warnings)"
487:            End Select
488:            numSpaces = 20 - Len(strOne)
489:            For cntSpace = 1 To 20
490:                 strSpaces = strSpaces & " "
491:            Next
492:            writeLog "b", "<td nowrap>" & strOne & "</td><td nowrap>" & aSvrStatus(1, count) & "</td><td nowrap>" & strTwo & "</td>"
493:            writeLog "b", "<td>"
494:            'If this is a mailstore policy do not output the failed files, since they would have already
495:            'been reported against the flatfile backup for that server. Any additional errors should be
496:            'in the aOtherErrors array.
497:            If inStr(aSvrStatus(1, count), "mail") > 0 Then
498:                 writeLog "b", "<i>see below for potential mailstore warnings</i>"
499:            Else
500:                 On Error Resume Next
501:                 For cntErrors = 0 To UBound(aSrvLogs,2)
502:                      'WScript.Echo "Pass " & cntErrors & ". "
503:                      'WScript.echo "strOne = " & strOne
504:                      'wscript.Echo "aSrvLogs(0, cntErrors) = " & aSrvLogs(0, cntErrors)
505:                      If Trim(strOne) = trim(aSrvLogs(0, cntErrors)) Then
506:                           strError = aSrvLogs(1, cntErrors)
507:                           'Trim off unnecessary text:
508:                           strError = Replace(strError, "WRN - ", "")
509:                           strError = Replace(strError, "ERR - ", "")
510:                           strError = Replace(strError, "can't open file: ", "")
511:                           strError = Replace(strError, "failure reading file: ", "")
512:                           writeLog "b", "&bull; " & strError & "<br/>"
513:                      'Else
514:                      '     writeLog "f", "&nbsp;"
515:                      End If
516:                 Next
517:                 On Error GoTo 0
518:            End If
519:            If overview.Exists(aSvrStatus(4, count)) Then
520:                 'Function already exists, so just update status ONLY if it is worse that is currently held
521:                 select case ov_status
522:                      Case "Failure"
523:                           'Status is as bad as it'll get so we'd may as well write it
524:                           overview.Item(aSvrStatus(4, count)) = ov_status
525:                      Case "Success (with warnings)"
526:                           if overview.Item(aSvrStatus(4, count)) <> "Failure" Then
527:                                overview.Item(aSvrStatus(4, count)) = ov_status
528:                           End If
529:                      Case "Success"
530:                           if overview.Item(aSvrStatus(4, count)) <> "Failure" and overview.Item(aSvrStatus(4, count)) <> "Success (with warnings)" Then
531:                                overview.Item(aSvrStatus(4, count)) = ov_status
532:                           End If
533:                 End select
534:            Else
535:                 'Function does NOT exist so create it and write the status
536:                 overview.Add aSvrStatus(4, count), ov_status
537:            End If
538:            writeLog "f", "</td>"
539:            writeLog "b", "</tr>"
540:       Next
541:       'save current status to OV_ALL variable
542:       ov_all = overview.Keys
543:       ov_all_status = overview.Items
544:       writeLog "b", "</table>"
545:       writeLog "f", "<p style=""font-size: x-small"">The following minor errors were unable to be associated to a particular job/client...</p><p style=""font-size: x-small"">"
546:       For cntErrors = 0 To UBound(aOtherErrors)
547:            writeLog "f", "&bull; " & aOtherErrors(cntErrors) & "<br/>"
548:       Next
549:       writeLog "f", "</p>"
550:       Dim aCount
551:       For aCount = 0 To overview.Count - 1
552:            statusFile.WriteLine "UK Netbackup," & ov_all(aCount) & "," & ov_all_status(aCount)
553:       Next
554:       'statusFile.Write ov_all
555:       statusFile.close
556:  End Sub

1:  REM *** THIS BATCH FILE IS CALLED AUTOMATICALLY BY generateReports.bat ***
2:  REM *** Run bpdbjobs for todays report...
3:  @bpdbjobs -report -gdm > logs\report.csv
4:  REM *** Run again to add to master report...
5:  @bpdbjobs -report -gdm >> backups\reports_master.csv

1:  REM *** THIS BATCH FILE IS CALLED AUTOMATICALLY BY generateReports.vbs ***
2:  @bpdbjobs -summary -L > logs\summary.log