Re: OCLC Passport macro for automatic verify

[Sonya Fink <fink@xxxxxxxxxx>]

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.

http://rharrison.fullerton.edu/iug2001/

*****************************************
Sonya Fink
Database / Systems Manager, CRS II
UCSF Kalmanovitz Library
tel: 415/514-3338
fax: 415/476-4653
email: fink@xxxxxxxxxx

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
> Passport.
> 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
>