ASendkeys problem 1

[malaygal]

I have a vbscript that launch telnet, login and execute a command in our unix box:

set fs = CreateObject ("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\pwd.txt", 1)
upwd = f.ReadAll

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "telnet unix1"
WScript.Sleep 10000
WshShell.Sendkeys "myusename"
WshShell.Sendkeys "{ENTER}"
WScript.Sleep 10000
WshShell.Sendkeys pwd
WshShell.Sendkeys "{ENTER}
.............................

On some of our users, this script will launch minimized applications such as Excel, word, Lotus notes etc.

Any help will be greatly apprecciated.

 

[markdmac]

You need to use the Shell object's AppActivate to set the active window.

Something like this:

WSHShell.AppActivate "Notepad"

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

 

[malaygal]

Actually, what I need is to deactivate all applications when I run telnet.
What is happening was when user run this script (saved on desktop), all minimized applications are activated and the sendkeys is sending the user an password all over the place, whatever was currently active when sendkeys was invoked.

 

[malaygal]

Actually, what I need is to deactivate all applications when I run telnet.
What is happening was when user run this script (saved on desktop), all minimized applications are activated and the sendkeys is sending the user an password all over the place, whatever was currently active when sendkeys was invoked.

 

[barny2006]

malayqal,
mark's suggestion will "deactivate" all other apps and activate the app you're activating (focusing on). it works.

 

[malaygal]

I tried this code below. It worked fine on some computer but on some PC, telnet just flashed and the sendkeys activated the start menu.

set fs = CreateObject ("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\pwd.txt", 1)
pwd = f.ReadAll

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "telnet Unix1"
WshShell.AppActivate "telnet Unix1"
WScript.Sleep 10000
WshShell.Sendkeys "myusename"
WshShell.Sendkeys "{ENTER}"
WScript.Sleep 10000
WshShell.Sendkeys pwd
WshShell.Sendkeys "{ENTER}

 

[markdmac]

You typically want to call AppActiviate before each sendkey command.

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

 

[malaygal]

I revised the code to below and some PC's still can not run it. The telnet session just "flashed" and closed immediately.
I run the telnet session on the cmd prompt and the session "sticks".
The script was working for them before unitl the OS was re-installed.
I was wondering maybe some setting might have changed.


set fs = CreateObject ("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\pwd.txt", 1)
pwd = f.ReadAll

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "telnet Unix1"
WshShell.AppActivate "telnet Unix1"
WScript.Sleep 5000
WshShell.AppActivate "telnet Unix1"
WshShell.Sendkeys "myuser"
WshShell.AppActivate "telnet Unix1"
WshShell.Sendkeys "{ENTER}"
WScript.Sleep 5000
WshShell.AppActivate "telnet Unix1"
WshShell.Sendkeys pwd
WshShell.AppActivate "telnet Unix1"
WshShell.Sendkeys "{ENTER}

 

[barny2006]

i have had experience like this with a cmd window. it just flashes and goes away. it's usually when there's an error on the cmd window. or if telnet is not authorized by group policy or something.

 

[markdmac]

Replace WshShell.Run "telnet Unix1" with WshShell.Run "CMD.EXE /K telnet Unix1"


That will force open the Command Window and keep it open while your code executes.
You will then need to complete your actions with using sendkey commands to close the window.

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

 

[malaygal]

It worked I revised the code as:

set fs = CreateObject ("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\pwd.txt", 1)
pwd = f.ReadAll

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "CMD.EXE /K telnet Unix1"
WshShell.AppActivate "telnet Unix1"
WScript.Sleep 5000
WshShell.AppActivate "telnet Unix1"
WshShell.Sendkeys "myuser"
WshShell.AppActivate "telnet Unix1"
WshShell.Sendkeys "{ENTER}"
WScript.Sleep 5000
WshShell.AppActivate "telnet Unix1"
WshShell.Sendkeys pwd
WshShell.AppActivate "telnet Unix1"
WshShell.Sendkeys "{ENTER}"
WScript.Sleep 5000
WshShell.AppActivate "telnet Unix1"
WshShell.Sendkeys "exit"
WshShell.Sendkeys "{ENTER}"

- After this line, logout and then Connection to host lost and it just hangs
I want to complete the whole process of exiting telnet and cmd.exe altogehter.
I tried adding this to no avail

WshShell.RUN "CMD.EXE /K EXIT"
'WshShell.Sendkeys "exit

 

[markdmac]

To close the Command prompt just send the exit command:

WshShell.Sendkeys "exit"

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

 

[malaygal]

markdmac, thanks for all the help. Tested it on one of the PC that is having a problem and it is now working fine.

 

[Yogalakshmi]

Hi,

I am new to this scripting world, i am facing some problem while executing a similar script as described in this thread...

I have to lauch telnet to execute some Unix commands, while searching for the answer, by luck i have seen this tread... and it is quite useful also... but while i am trying to execute the script,

its throwing the message as Object required:'WScript'

Script:

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "CMD.EXE /K telnet unix"
WshShell.AppActivate "telnet racerx"
WScript.Sleep 100000
WshShell.AppActivate "telnet unix"
WshShell.Wscript.Sleep 10000
WshShell.Sendkeys username
WshShell.AppActivate "telnet unix"
WshShell.Sendkeys "~"
WshShell.AppActivate "telnet unix"
WScript.Sleep 100000
WshShell.AppActivate "telnet unix"
WshShell.Sendkeys pwd
WshShell.Sendkeys "~"

Thanks in Advance,
Yoga

 

[PHV]

Object required:'WScript'
You code should be in a .VBS file, not an HTML page.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[dilettante]

At Dimac Free Downloads there is a component called w3Sockets that can do both Telnet and "raw" TCP. It was designed for scripting and so uses blocking calls.

It is free though you'll have to register to get it. It also needs to be installed on machines that will run your script. Much more reliable than trying to use SendKeys though, assuming it meets your needs.

 

[PHV]

Anyway, replace this:
WshShell.Wscript.Sleep 10000
with this:
Wscript.Sleep 10000

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886