Hi Everyone,
New to the forum, and have my first question.
I have the following Macro currently being used within Telnet to run a report for the date being entered. However, now I need the Macro to input the day after today to the the day after today.
Example: If today is May 9, 2012 - the date entered would have to be 10092012.
I though maybe I could use the Now()+1 but obviously that doesn't work in this environment. I have pasted the code being used in the macro below.
Any help would be greatly appreciated. Thanks in advance for taking the time to look at this problem of mine.
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE ReflectionMacroFile [
<!ELEMENT ReflectionMacroFile (Macro)>
<!ATTLIST ReflectionMacroFile version CDATA #REQUIRED>
<!ELEMENT Macro (#PCDATA)>
<!ATTLIST Macro name CDATA "" module CDATA "ThisSession" remove CDATA "true">
]>
<!--
Copyright (c) 2000-2006 Attachmate Corporation
1500 Dexter Avenue North, Seattle, Washington, 98109, U.S.A.
You have a royalty-free right to use, modify, reproduce and distribute
this file (and/or any modified version) in any way you find useful,
provided that you agree that Attachmate Corporation has no warranty, obligation or
liability for its contents.
Created 3/27/2012 11:52:21 PM by Reflection.
This file was created using XML in the following format:
<ReflectionMacroFile version="1.0">
<Macro name="MyMacro" module="MacroFileModule">
' MyMacro Code
</Macro>
</ReflectionMacroFile>
-->
<ReflectionMacroFile version="1.0"><Macro name="ApptLog7087" module="NewMacros" remove="true">' Generated by the Reflection Macro Recorder on 03-27-2012 19:47:16.31.
' Generated by Reflection for UNIX and OpenVMS 14.0.7.
On Error GoTo ErrorHandler
Dim username As String
Dim password As String
Dim hosttype As String
Const NEVER_TIME_OUT = 0
Dim LF As String ' Chr(rcLF) = Chr(10) = Control-J
Dim CR As String ' Chr(rcCR) = Chr(13) = Control-M
Dim ESC As String ' Chr(rcESC) = Chr(27) = Control-[
LF = Chr(Reflection2.ControlCodes.rcLF)
CR = Chr(Reflection2.ControlCodes.rcCR)
ESC = Chr(Reflection2.ControlCodes.rcESC)
username = "glspc"
' Password was removed from this macro for security.
' Prompt for (what is assumed to be) a password.
password = Session.GetPassword( _
Prompt:="Password:", _
HostUserName:=username)
If password = "" Then Exit Sub
hosttype = "HPUX"
With Session
If .Connected = False Then
.Connect
End If
.StatusBar = "Waiting for Prompt: login:"
.WaitForString LF & "login: ", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
.Transmit username & CR
.StatusBar = "Waiting for Prompt: Password:"
.WaitForString LF & "Password: ", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
.Transmit password, rcDecodePassword
.Transmit CR
' .WaitForString LF & " < Press ENTER to continue > " & CR & LF, NEVER_TIME_OUT, rcAllowKeystrokes
.WaitForPasswordExceptions LF & " < Press ENTER to continue > " & CR & LF, _
HostUserName:=username, _
hosttype:=hosttype, _
Timeout:=NEVER_TIME_OUT, _
Options:=rcAllowKeystrokes
.CommitLoginProperties
.Transmit CR
' The following string was not unique:
' .WaitForString ESC & "[4;15H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = "Waiting for Prompt: | User ID :"
.WaitForString "m" & ESC & "[4;15H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
.Transmit "a"
.StatusBar = "Waiting for Prompt: | User ID : a"
.WaitForString ESC & "[7ma", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
.Transmit "pptlog" & CR
.StatusBar = "Waiting for Prompt: | Password:"
.WaitForString ESC & "[5;15H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
.Transmit "d"
.StatusBar = "Waiting for Prompt: | Password:"
.WaitForString ESC & "[C", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
.Transmit "c"
.StatusBar = "Waiting for Prompt: | Password:"
.WaitForString ESC & "[C", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
.Transmit "6"
.StatusBar = "Waiting for Prompt: | Password:"
.WaitForString ESC & "[C", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
.Transmit "0"
.StatusBar = "Waiting for Prompt: | Password:"
.WaitForString ESC & "[C", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
.Transmit "0"
.StatusBar = "Waiting for Prompt: | Password:"
.WaitForString ESC & "[C", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
.Transmit "2"
.StatusBar = "Waiting for Prompt: | Password:"
.WaitForString ESC & "[C", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
.Transmit CR
.StatusBar = "Waiting for Prompt: | Subcenter:"
.WaitForString ESC & "[6;15H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
.Transmit "1" & CR
.StatusBar = "Waiting for Prompt: |"
.WaitForString ESC & "[3;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press VtF2 (Perform the VtF2 function).
.TransmitTerminalKey rcVtF2Key
' The following string was not unique:
' .WaitForString ESC & "[3;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = "Waiting for Prompt: |"
.WaitForString "m" & ESC & "[3;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
.StatusBar = "Waiting for Prompt: |"
.WaitForString ESC & "[4;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
.StatusBar = "Waiting for Prompt: |"
.WaitForString ESC & "[5;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
.StatusBar = "Waiting for Prompt: |"
.WaitForString ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
' The following string was not unique:
' .WaitForString ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = "Waiting for Prompt: |"
.WaitForString " " & ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
' The following string was not unique:
' .WaitForString ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = "Waiting for Prompt: |"
.WaitForString "y" & ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
' The following string was not unique:
' .WaitForString ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = "Waiting for Prompt: |"
.WaitForString "ry" & ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press VtF6 (Perform the Vt F6 function).
.TransmitTerminalKey rcVtF6Key
' The following string was not unique:
' .WaitForString ESC & "[4;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = "Waiting for Prompt: |"
.WaitForString "m" & ESC & "[4;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
.StatusBar = "Waiting for Prompt: |"
.WaitForString ESC & "[5;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
.StatusBar = "Waiting for Prompt: |"
.WaitForString ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
.StatusBar = "Waiting for Prompt: |"
.WaitForString ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
' The following string was not unique:
' .WaitForString ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = "Waiting for Prompt: |"
.WaitForString "a" & ESC & "[m" & ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
.StatusBar = "Waiting for Prompt: |"
.WaitForString ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
.StatusBar = "Waiting for Prompt: |"
.WaitForString ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
' The following string was not unique:
' .WaitForString ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = "Waiting for Prompt: |"
.WaitForString "t" & ESC & "[m" & ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
.StatusBar = "Waiting for Prompt: |"
.WaitForString ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
.StatusBar = "Waiting for Prompt: |"
.WaitForString ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
.StatusBar = "Waiting for Prompt: |"
.WaitForString ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
' The following string was not unique:
' .WaitForString ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = "Waiting for Prompt: |"
.WaitForString " " & ESC & "[m" & ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
.StatusBar = "Waiting for Prompt: |"
.WaitForString ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
' The following string was not unique:
' .WaitForString ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = "Waiting for Prompt: |"
.WaitForString " " & ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
' The following string was not unique:
' .WaitForString ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = "Waiting for Prompt: |"
.WaitForString "m" & ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
' The following string was not unique:
' .WaitForString ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = "Waiting for Prompt: |"
.WaitForString "r" & ESC & "[m" & ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press CursorDown (Move the cursor down one line).
.TransmitTerminalKey rcVtDownKey
' The following string was not unique:
' .WaitForString ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = "Waiting for Prompt: |"
.WaitForString " " & ESC & "[m" & ESC & "[6;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press VtF6 (Perform the Vt F6 function).
.TransmitTerminalKey rcVtF6Key
' The following string was not unique:
' .WaitForString ESC & "[4;15H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = "Waiting for Prompt: | Whse Area:"
.WaitForString "5H" & ESC & "[4;15H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press VtF2 (Perform the VtF2 function).
.TransmitTerminalKey rcVtF2Key
' The following string was not unique:
' .WaitForString ESC & "[11;74H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = "Waiting for Prompt: | 3 02:00 9084992 CONCOR pbyl 1 2 * 3 N WM jbenes"
.WaitForString "m" & ESC & "[11;74H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press VtF11 (Perform the Vt F11 function (ESC)).
.TransmitTerminalKey rcVtF11Key
.StatusBar = "Waiting for Prompt: | 3 02:00 9084992 CONCOR pbyl 1 2 * 3 N WM jbenes"
.WaitForString ESC & "[11;74H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press VtF3 (Perform the VtF3 function).
.TransmitTerminalKey rcVtF3Key
' The following string was not unique:
' .WaitForString ESC & "[4;15H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = "Waiting for Prompt: | Whse Area:"
.WaitForString "5H" & ESC & "[4;15H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press VtF3 (Perform the VtF3 function).
.TransmitTerminalKey rcVtF3Key
' The following string was not unique:
' .WaitForString ESC & "[4;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = "Waiting for Prompt: |"
.WaitForString " " & ESC & "[4;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press VtF3 (Perform the VtF3 function).
.TransmitTerminalKey rcVtF3Key
' The following string was not unique:
' .WaitForString ESC & "[3;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = "Waiting for Prompt: |"
.WaitForString " " & ESC & "[3;4H", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press VtF3 (Perform the VtF3 function).
.TransmitTerminalKey rcVtF3Key
' The following string was not unique:
' .WaitForString ESC & "[4;15H", NEVER_TIME_OUT, rcAllowKeystrokes
' .WaitForString "m" & ESC & "[4;15H", NEVER_TIME_OUT, rcAllowKeystrokes
End With
Exit Sub
ErrorHandler:
Session.MsgBox Err.Description, vbExclamation + vbOKOnly
' Recording stopped at 19:48:46.50.</Macro></ReflectionMacroFile>
Regards,
Jonathan