' MacroName: Logon
' MacroDescription: Log onto Libs+
' Macro written by: Joel Hahn, Niles Public Library District

sub main
'replace the "defaults" with your logon & password
Agency$="default"
Password$="default"

dim CS as session
set CS = CurrentSession
CS.Receive 21, "ully."
CS.Send Agency$+"\r"
CS.Receive 6, "Password:"
CS.Send Password$+"\r"
CS.Receive 6, "CONTINUE"
CS.Send "\r"
end sub