Hi Michael, hereby included you'll find the VBscripts that we're using for doing TSM backups. Note that if you think to use them you'll have to install WSH 5.6.
Regards, --Jean-Baptiste ------------------------------- TSMbck_incr_NTPDC.wsf ---------------- <job id="TSMbck_incr_NTPDC"> <script language="vbscript" src="C:\PROD\global\exe\BaseName.vbs"/> <script language="vbscript"> dim FSO, LOGFILE, WSHSHELL dim ENVIR, APPDRIVE, APPEXE,APPFIL,APPLOG,APPDAT,APPLIC dim THOUR, TDAY const ForReading = 1, ForWriting = 2, ForAppending = 8 APPDRIVE = "C:\" ENVIR = "PROD" APPLIC = "tsm" APPEXE = APPDRIVE & ENVIR & "\" & APPLIC & "\exe\" APPFIL = APPDRIVE & ENVIR & "\" & APPLIC & "\fil\" APPLOG = APPDRIVE & ENVIR & "\" & APPLIC & "\log\" APPDAT = APPDRIVE & ENVIR & "\" & APPLIC & "\dat\" APPTMP = APPDRIVE & ENVIR & "\" & APPLIC & "\tmp\" SCP_FNAME = wscript.scriptfullname SCP_NAME = BaseName( SCP_FNAME ) THOUR = replace ( time , ":" , "" ) TDAY = replace ( date , "/" , "" ) set FSO = createobject("scripting.filesystemobject") set WSHSHELL = wscript.createobject("wscript.shell") set LOGFILE = FSO.createtextfile( APPLOG & SCP_NAME & "_" & TDAY & THOUR & ".txt", true) LOGFILE.writeline("Script " & SCP_NAME & " started on: " & date & " " & time) LOGFILE.writeline("") REM ------------------------------------------------------------------------------------ REM --- Start of script job. Put your commands below... REM ------------------------------------------------------------------------------------ Do_Backup sub Do_Backup() dim TSMDIR,TSMEXE,TSMOPT,TSMCMD TSMDIR="c:\program files\tivoli\tsm\baclient" WSHSHELL.currentdirectory=TSMDIR TSMDIR="c:\program files\tivoli\tsm\baclient" WSHSHELL.currentdirectory=TSMDIR TSMEXE="""c:\program files\tivoli\tsm\baclient\dsmc.exe""" TSMOPT="-id=xxxxx -password=xxxxx" TSMCMD="incr" RC=WSHSHELL.run(TSMEXE & " " & TSMOPT & " " & TSMCMD,0,true) if RC<>0 then LOGFILE.writeline( SCP_NAME & ": ERROR --- dsmc.exe exited with RC=" & RC & ". ---") else LOGFILE.writeline( SCP_NAME & ": INFO --- dsmc.exe exited with RC=" & RC & ". ---") end if end sub REM ------------------------------------------------------------------------------------ REM --- End of script job. REM ------------------------------------------------------------------------------------ LOGFILE.writeline("") LOGFILE.writeline("Script " & SCP_NAME & " ended on: " & date & " " & time) </script> </job> ------------------------------end TSMbck_incr_NTPDC ------------ ------------------------------------ Basename.vbs -------------- function BASENAME(FNAME) dim FSO set FSO = createobject("scripting.filesystemobject") BASENAME = FSO.getbasename(FNAME) end function ---------------------------------- end basename.vbs ------------ >From: "Regelin Michael (CHA)" <[EMAIL PROTECTED]> >Reply-To: "ADSM: Dist Stor Manager" <[EMAIL PROTECTED]> >To: [EMAIL PROTECTED] >Subject: Re: NT Script to check for failed backups >Date: Mon, 27 May 2002 08:44:58 +0200 > >Hi Jean-Baptiste, > >I'm really interested in your script. We are backuping about 50 NT servers >and our only procedures is to catch information manually from the TSM >server. > >However, we are soon applying a check within the TSM server that will show >us if the backup failed or succeed. > >But i'm very interested in your solution. Could it be possible to look at >the scripts. > >Thank's > >Mike > >-----Message d'origine----- >De : Jean-Baptiste Nothomb [mailto:[EMAIL PROTECTED]] >Envoyi : samedi, 25. mai 2002 20:17 >@ : [EMAIL PROTECTED] >Objet : Re: NT Script to check for failed backups > > >Hello, > > >use WSH 5.6 and with the RUN method execute the dsmc command >to backup your data. Result of the execution will be 0 if everything >ok and >0 if an error did occur. That way it will be possible to >send you a mail. If you're interested in the scripts write me back. > >Regards, >--Jean-Baptiste > > > > > >From: Justin Black <[EMAIL PROTECTED]> > >Reply-To: "ADSM: Dist Stor Manager" <[EMAIL PROTECTED]> > >To: [EMAIL PROTECTED] > >Subject: NT Script to check for failed backups > >Date: Thu, 23 May 2002 17:02:37 -0400 > > > >I am looking for an automated method to check for failed TSM and TDP > >backups on an NT machine. We kick off different backups (using the TSM > >scheduler and NT Services) on different machines on a daily basis and are > >unable to manually verify (due to time constraints) that these are all > >successful. We have noticed when failure occurs during a TSM backup of a > >particular file, it is written to the NT EventLog. On our Unix platform, >we > >are able to do this and email messages are sent out when a failure >occurs. > >Any ideas how this can be accomplished on NT? > > > >Justin Black > > > > >_________________________________________________________________ >Send and receive Hotmail on your mobile device: http://mobile.msn.com _________________________________________________________________ MSN Photos is the easiest way to share and print your photos: http://photos.msn.com/support/worldwide.aspx