View Single Post
  #3  
Old 05-01-2013, 01:54 PM
mbaBrickman mbaBrickman is offline
Registered User
 
Join Date: May 2013
Posts: 3
I replaced the user name and password in the scripts with "username" and "password". The only difference between all the scripts is one line with the branch number. It takes about 3 hours for one branch to run so accounting has been opening a new session for each branch so they can run it all at the same time when i run the script that creates new sessions for all these scrips the branch number entered is 792 for all sessions.

Branch657.vbs

#$language = "VBScript"
#$interface = "1.0"

crt.Screen.Synchronous = True

TodaysDate = Right("0" & DatePart("m", Date), 2) _
& "/" & Right("0" & DatePart("d", Date), 2) _
& "/" & Right(DatePart("yyyy", Date), 2)


Sub Main

crt.Screen.Send chr(13)
crt.Screen.WaitForString chr(27) & "[24;79H" & chr(27) & "[19;66H" & chr(27) & "[1;2H" & TodaysDate & chr(27) & "[1;36HC O I N S" & chr(27) & "[19;66H" & chr(27) & "[24;79H" & chr(27) & "[24;79H" & chr(27) & "[3;1H" & chr(27) & "[K" & chr(27) & "[4;1H" & chr(27) & "[K" & chr(27) & "[5;1H" & chr(27) & "[K" & chr(27) & "[7;1H" & chr(27) & "[K" & chr(27) & "[8;1H" & chr(27) & "[K" & chr(27) & "[9;1H" & chr(27) & "[K" & chr(27) & "[11;1H" & chr(27) & "[K" & chr(27) & "[12;1H" & chr(27) & "[K" & chr(27) & "[13;1H" & chr(27) & "[K" & chr(27) & "[14;1H" & chr(27) & "[K" & chr(27) & "[16;1H" & chr(27) & "[K" & chr(27) & "[17;1H" & chr(27) & "[K" & chr(27) & "[18;1H" & chr(27) & "[K" & chr(27) & "[19;1H" & chr(27) & "[K" & chr(27) & "[24;79H" & chr(27) & "[19;66H" & chr(27) & "[6;23H" & chr(14) & "lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk" & chr(27) & "[7;23Hx" & chr(15) & " COINS Version 7 (10.7c2.43) " & chr(14) & "x" & chr(27) & "[8;23Hx" & chr(27) & "[8;32H" & chr(15) & "November 26, 2012" & chr(27) & "[8;57H" & chr(14) & "x" & chr(27) & "[9;23Hmqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj" & chr(27) & "[19;66H" & chr(27) & "[13;29Hlqqqqqqqqqqqqqqqqqqqqqqk" & chr(27) & "[14;29Hx" & chr(15) & " Password: " & chr(27) & "[4m " & chr(27) & "[m " & chr(14) & "x" & chr(27) & "[15;29Hmqqqqqqqqqqqqqqqqqqqqqqj" & chr(27) & "[19;66H" & chr(27) & "[14;43H" & chr(27) & "[24;79H" & chr(27) & "[24;1H" & chr(15) & "Enter data or press F4 to end." & chr(27) & "[24;79H" & chr(27) & "[14;43H"
crt.Screen.Send chr(13)
crt.Screen.WaitForString chr(27) & "[24;1H" & chr(27) & "[K" & chr(27) & "[24;79H" & chr(27) & "[14;43H " & chr(27) & "[24;79H" & chr(7) & chr(27) & "[22;1H" & chr(27) & "[7mInvalid password." & chr(27) & "[m" & chr(27) & "[13;29H" & chr(27) & "[K" & chr(27) & "[14;29H" & chr(27) & "[K" & chr(27) & "[15;29H" & chr(27) & "[K" & chr(27) & "[22;18H" & chr(27) & "[10;26H" & chr(14) & "lqqqqqqqqqqqqqqqqqqqqqqqqqqqk" & chr(27) & "[11;26Hx" & chr(15) & " Enter User ID: " & chr(27) & "[4m " & chr(27) & "[m " & chr(14) & "x" & chr(27) & "[12;26Hmqqqqqqqqqqqqqqqqqqqqqqqqqqqj" & chr(27) & "[22;18H" & chr(27) & "[24;1H" & chr(27) & "[11;45H" & chr(27) & "[24;79H" & chr(27) & "[24;1H" & chr(15) & "Enter data or press F4 to end." & chr(27) & "[24;79H" & chr(27) & "[11;45H"
crt.Screen.Send "username" & chr(13)
crt.Screen.WaitForString chr(27) & "[m" & chr(27) & "[22;1H" & chr(27) & "[K" & chr(27) & "[11;52H" & chr(27) & "[24;1H" & chr(27) & "[K" & chr(27) & "[24;79H" & chr(27) & "[11;45Hhamp.ni " & chr(27) & "[24;79H" & chr(27) & "[24;79H" & chr(27) & "[13;29H" & chr(14) & "lqqqqqqqqqqqqqqqqqqqqqqk" & chr(27) & "[14;29Hx" & chr(15) & " Password: " & chr(27) & "[4m " & chr(27) & "[m " & chr(14) & "x" & chr(27) & "[15;29Hmqqqqqqqqqqqqqqqqqqqqqqj" & chr(27) & "[24;79H" & chr(27) & "[24;1H" & chr(27) & "[14;43H" & chr(27) & "[24;79H" & chr(27) & "[24;1H" & chr(15) & "Enter data or press F4 to end." & chr(27) & "[24;79H" & chr(27) & "[14;43H"
crt.Screen.Send "password" & chr(13)
crt.Screen.Send "7" & chr(13)
crt.Screen.Send "6" & chr(13)
crt.Screen.Send "674" & chr(13)
crt.Screen.Send chr(13)
crt.Screen.Send chr(13)
crt.Screen.Send chr(13)
crt.Screen.Send chr(13)
End Sub

Branch791.vbs

#$language = "VBScript"
#$interface = "1.0"

crt.Screen.Synchronous = True


TodaysDate = Right("0" & DatePart("m", Date), 2) _
& "/" & Right("0" & DatePart("d", Date), 2) _
& "/" & Right(DatePart("yyyy", Date), 2)

Sub Main
crt.Screen.Send chr(13)
crt.Screen.WaitForString chr(27) & "[24;79H" & chr(27) & "[19;66H" & chr(27) & "[1;2H" & TodaysDate & chr(27) & "[1;36HC O I N S" & chr(27) & "[19;66H" & chr(27) & "[24;79H" & chr(27) & "[24;79H" & chr(27) & "[3;1H" & chr(27) & "[K" & chr(27) & "[4;1H" & chr(27) & "[K" & chr(27) & "[5;1H" & chr(27) & "[K" & chr(27) & "[7;1H" & chr(27) & "[K" & chr(27) & "[8;1H" & chr(27) & "[K" & chr(27) & "[9;1H" & chr(27) & "[K" & chr(27) & "[11;1H" & chr(27) & "[K" & chr(27) & "[12;1H" & chr(27) & "[K" & chr(27) & "[13;1H" & chr(27) & "[K" & chr(27) & "[14;1H" & chr(27) & "[K" & chr(27) & "[16;1H" & chr(27) & "[K" & chr(27) & "[17;1H" & chr(27) & "[K" & chr(27) & "[18;1H" & chr(27) & "[K" & chr(27) & "[19;1H" & chr(27) & "[K" & chr(27) & "[24;79H" & chr(27) & "[19;66H" & chr(27) & "[6;23H" & chr(14) & "lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk" & chr(27) & "[7;23Hx" & chr(15) & " COINS Version 7 (10.7c2.43) " & chr(14) & "x" & chr(27) & "[8;23Hx" & chr(27) & "[8;32H" & chr(15) & "November 26, 2012" & chr(27) & "[8;57H" & chr(14) & "x" & chr(27) & "[9;23Hmqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj" & chr(27) & "[19;66H" & chr(27) & "[13;29Hlqqqqqqqqqqqqqqqqqqqqqqk" & chr(27) & "[14;29Hx" & chr(15) & " Password: " & chr(27) & "[4m " & chr(27) & "[m " & chr(14) & "x" & chr(27) & "[15;29Hmqqqqqqqqqqqqqqqqqqqqqqj" & chr(27) & "[19;66H" & chr(27) & "[14;43H" & chr(27) & "[24;79H" & chr(27) & "[24;1H" & chr(15) & "Enter data or press F4 to end." & chr(27) & "[24;79H" & chr(27) & "[14;43H"
crt.Screen.Send chr(13)
crt.Screen.WaitForString chr(27) & "[24;1H" & chr(27) & "[K" & chr(27) & "[24;79H" & chr(27) & "[14;43H " & chr(27) & "[24;79H" & chr(7) & chr(27) & "[22;1H" & chr(27) & "[7mInvalid password." & chr(27) & "[m" & chr(27) & "[13;29H" & chr(27) & "[K" & chr(27) & "[14;29H" & chr(27) & "[K" & chr(27) & "[15;29H" & chr(27) & "[K" & chr(27) & "[22;18H" & chr(27) & "[10;26H" & chr(14) & "lqqqqqqqqqqqqqqqqqqqqqqqqqqqk" & chr(27) & "[11;26Hx" & chr(15) & " Enter User ID: " & chr(27) & "[4m " & chr(27) & "[m " & chr(14) & "x" & chr(27) & "[12;26Hmqqqqqqqqqqqqqqqqqqqqqqqqqqqj" & chr(27) & "[22;18H" & chr(27) & "[24;1H" & chr(27) & "[11;45H" & chr(27) & "[24;79H" & chr(27) & "[24;1H" & chr(15) & "Enter data or press F4 to end." & chr(27) & "[24;79H" & chr(27) & "[11;45H"
crt.Screen.Send "username" & chr(13)
crt.Screen.WaitForString chr(27) & "[m" & chr(27) & "[22;1H" & chr(27) & "[K" & chr(27) & "[11;52H" & chr(27) & "[24;1H" & chr(27) & "[K" & chr(27) & "[24;79H" & chr(27) & "[11;45Hhamp.ni " & chr(27) & "[24;79H" & chr(27) & "[24;79H" & chr(27) & "[13;29H" & chr(14) & "lqqqqqqqqqqqqqqqqqqqqqqk" & chr(27) & "[14;29Hx" & chr(15) & " Password: " & chr(27) & "[4m " & chr(27) & "[m " & chr(14) & "x" & chr(27) & "[15;29Hmqqqqqqqqqqqqqqqqqqqqqqj" & chr(27) & "[24;79H" & chr(27) & "[24;1H" & chr(27) & "[14;43H" & chr(27) & "[24;79H" & chr(27) & "[24;1H" & chr(15) & "Enter data or press F4 to end." & chr(27) & "[24;79H" & chr(27) & "[14;43H"
crt.Screen.Send "password" & chr(13)
crt.Screen.Send "7" & chr(13)
crt.Screen.Send "6" & chr(13)
crt.Screen.Send "791" & chr(13)
crt.Screen.Send chr(13)
crt.Screen.Send chr(13)
crt.Screen.Send chr(13)
crt.Screen.Send chr(13)
End Sub
Reply With Quote