Hi,
We are trying to script into tso with a VBSCRIPT. The script looks like
this:
<job>
<script language="VBScript" CODEPAGE="37">
Option Explicit
On Error Resume Next
Dim WshShell
set WshShell=CreateObject("WScript.Shell")
WshShell.run "cmd.exe"
WScript.Sleep 3000
WshShell.SendKeys "telnet"
WshShell.Sendkeys("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "SET LOCALECHO"
WshShell.Sendkeys("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "UNSET CRLF"
WshShell.Sendkeys("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "SET BSASDEL"
WshShell.Sendkeys("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "o 10.1.13.228"
WshShell.Sendkeys("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "DINO44"
WshShell.Sendkeys("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "ABCDEFF"
WshShell.Sendkeys("{Enter}")
WScript.Sleep 1000
WScript.Quit
</script>
</job>
TSO responsed with:
IKJ56710I INVALID USERID,
l|l|l|l|DDl|DDl|l|l|IIl|IIl|l|l|NNl|NNl|l|l|OOl|OOl|l|
44l|44l|44l|44l|
IKJ56703A REENTER THIS OPERAND -
IKJ56710I INVALID USERID, l|
IKJ56703A REENTER THIS OPERAND -
You may see that the userid DINO44 is printed somehow ;-)
Any idea?
ITschak
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
