[windows2000] RSM Work Queue Monitor

  • From: "Sullivan, Glenn" <GSullivan@xxxxxxxxxxxxxx>
  • To: <windows2000@xxxxxxxxxxxxx>
  • Date: Mon, 15 Sep 2008 14:53:56 -0400

I wrote up a quick script, and figured, if I needed it, someone else
might.

We use, of all things, NTBackup to do our backups here.  Normally it all
works great, but once a week, when I do the "Full" backup, it runs onto
more than one tape... I kept forgetting to put the second tape into the
tape drive since NTBackup was running in an RDP session to the Exchange
Server.

So I wrote a quick script to monitor the "Work Queue" for events, and
send them to an email address... I use the email address that sends text
messages to my phone, but you could really use any address.

Unfortunately, there is not a whole lot of info available from the
command line on Work Queue entries, but this is the best I could do...
At least I'm notified when there is a new entry, which is almost always
right after I insert a tape (inventory/mount) or when a tape is ejected
(dismount).

Here goes:

<-------------Start----------------->
@echo off
SetLocal
set @BlatLoc=c:\tools\blat\blat.exe
set @MailServer=MailServer
set @MailRecipient=PHONENUMBER@xxxxxxxxx
set @SleepLoc=c:\Tools\Sleep.exe
set @SleepSeconds=60
set @EmailUsername=username
set @EmailPassword=password

rem On intial run, delete any old log.  All requests are "New".  
rem Remove this line to keep a history in the log file.
if exist GUIDLog.txt del /q GUIDLog.txt

:MainProcess
Rem Delete any existing set of "new" entries
if exist NewGUID.txt del /q NewGUID.txt

rem For each entry in the Work Queue, run the "Process" subroutine
for /f "tokens=* skip=3" %%i in ('rsm view /tlibrequest /guiddisplay')
do call :Process "%%i"

rem Check to see if there is anything to mail
if not exist NewGUID.txt goto :AfterMail

rem Mail the end results to the end user.
rem Everything until the :aftermail tag is one line
%@BlatLoc% NewGUID.txt -q -u %@EmailUsername% -pw %@EmailPassword% -to
%@MailRecipient% -subject "LibRequest %ComputerName%" -mime -server
%@MailServer% -f TapeDrive@xxxxxxxxxxxxxx

:AfterMail
rem Sleep, and then restart
%@SleepLoc% %@SleepSeconds%
goto :MainProcess

:Process
rem Remove the quotes
set @Item=%1
Set @Item=%@Item:"=%

rem Skip the last line
if "%@Item%"=="The command completed successfully." Goto :EOF

rem If there is no log, it definitely is new
if not exist GUIDLog.txt goto :NewGUID

rem Look at the log of requests to see if this one is already there...
if not, it is new.
FIND /I "%@Item%" GUIDLog.txt >>Nul
IF ERRORLEVEL 1 GOTO :NewGUID

rem Must not be new... skip it
Goto :EOF

:NewGUID
Echo New GUID %@Item%
Echo %@Item% >>GUIDLog.txt
set @Item=%@Item:~0,-32%
echo %@Item% >>NewGUID.txt
Goto :EOF

:EOF
<----------------end------------>

HTH,

Glenn Sullivan, MCSE+I MCDBA
David Clark Company Inc. 
**********************
To Unsubscribe, set digest or vacation
mode or view archives use the below link.

http://www.freelists.org/list/windows2000

Other related posts:

  • » [windows2000] RSM Work Queue Monitor