Re: OCLC Passport macro for automatic verify
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
- Date: Wed, 24 Apr 2002 08:50:09 -0700 (PDT)
- From: Sonya Fink <fink@xxxxxxxxxx>
- Subject: Re: OCLC Passport macro for automatic verify
I don't think this is a big secret, and I hope he doesn't mind me sharing,
but at the last IUG conference, Roger Harrison at fullerton.edu gave a
presentation on these same concerns.
He has VBScripts to automate basic Innopac tasks and some Passport macros,
as well. You can find all this on his site.
Database / Systems Manager, CRS II
UCSF Kalmanovitz Library
On Wed, 24 Apr 2002, Jonathan Jiras wrote:
> Hello INNOPAC users:
> I think someone else on this list may have written an OCLC Passport Macro to
> automatically verify an unattended backup.
> I'm still interested in seeing that Macro too, but in the meantime, here is
> what I came up with.
> It seems to work just fine and can be run from any PC that has OCLC
> Windows NT and Windows 2000 users can set it up to run at a specific time
> every day.
> ' MacroName: Verify
> ' MacroDescription: Verifies III unattended backups
> ' Author: Jonathan Jiras, Rochester Institute of Technology, 4/23/02
> ' Comments and suggestions can be send to: jjjwml@xxxxxxxxxx
> ' Purpose: Scripts the keystrokes necessary to do an automatic verify.
> ' Setup: Within the macro itself, initials and password must be set.
> ' The PC's IP address must be registered in Limit Network Access to
> automatically log into an account.
> ' Create a passport session with this macro as its "Logon" macro.
> ' Use Windows NT or 2000 Scheduler to run this program x number of hours
> after your unattended backup
> ' In the run line of the scheduled task, use the "-o" switch to
> automatically start your verify session
> ' For example: C:\OCLCAPPS\PASSPORT.EXE -o session_name
> ' Different INNOPACs often have different menus protected, so the exact
> contents of the keypress$ variable may differ.
> ' For example: we protect the ADDITIONAL system functions menu, so we have
> to have the initials and passwords come right after it
> ' like this: keypress$ = "a" & strInitials & strPassword & "b vfc"
> ' If you don't protect that menu, then your keypress$ variable should look
> like this:
> ' keypress$ = "ab" & strInitials & strPassword & " vfc"
> ' Here's the program... Good luck...
> Sub Main
> 'these constants control the initials and password used to get into variuos
> functions in Innopac
> Const strInitials = "your_initials_here"
> Const strPassword = "your_password_here"
> 'declare this telnet session as the current session
> Dim CS as Session
> Set CS = CurrentSession
> 'wait up to 20 seconds for the text shown
> CS.Receive 20, "Choose one "
> 'declare a variable to hold all the key strokes used
> keypress$ = "a" & strInitials & strPassword & "b vfc"
> 'loop through those characters one character at a time
> For i = 1 To Len( keypress$ )
> CS.Send Mid$( keypress$, i, 1 ) 'send next character to system
> CS.Receive 10, "" 'any response is good enough
> CS.Wait 2 'wait up to 2 seconds for a response
> Next i
> ' The macro ends here, leaving the person within the backup program ready to
> manually initialize the next tape.
> ' When they arrive in the morning, their computer will have this passport
> session open informing them of the status of the verify.
> ' This will be a reminder to them that they still have to manually
> initialize the next tape.
> End sub
> This message was distributed through the Innovative Users Group INNOPAC list
> Public replies: INNOPAC@xxxxxxxxxx
> Update your subscription options: http://innopacusers.org/list/listinfo/innopac