SendKey to Application in APPActivcate

ASP Free Forums Sponsor:

October 15th, 2008, 06:37 PM

zambrtp

Registered User

Join Date: Oct 2008

Posts: 15

Time spent in forums: 1 h 57 m 6 sec
Reputation Power: 0

VBScript - SendKey to Application in APPActivcate

I am trying to get focus on the lsnrctl window so I can use the sendkeys to that exe. But even though I see the focus the sendkeys is not able to inject anything...
Does anyone know why..I tried Sleep...

objShell.Run("D:\Infrastructure\10.1.2\bin\lsnrctl.exe CHANGE_PASSWORD"),1,True

objShell.AppActivate("D:\Infrastructure\10.1.2\bin\lsnrctl.exe")
objShell.SendKeys "{ENTER}"
objShell.SendKeys "password"

October 16th, 2008, 12:14 AM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,254

Folding Points: 206875 Folding Title: Super Ultimate Folder - Level 1

Time spent in forums: 6 Days 10 h 25 m 34 sec
Reputation Power: 667

Quote:

Originally Posted by zambrtp

Is it truly focusing? The AppActivate method accepts a parameter that is the TITLE bar of the window. And you should be doing some error-handling as well.

vb Code:

Original - vb Code
objShell.Run("D:\Infrastructure\10.1.2\bin\lsnrctl.exe CHANGE_PASSWORD"),1,True WScript.Sleep 1000 If objShell.AppActivate("D:\Infrastructure\10.1.2\bin\lsnrctl.exe") Then objShell.SendKeys "{ENTER}" objShell.AppActivate("D:\Infrastructure\10.1.2\bin\lsnrctl.exe") objShell.SendKeys "password" End If

objShell.Run("D:\Infrastructure\10.1.2\bin\lsnrctl.exe CHANGE_PASSWORD"),1,True
WScript.Sleep 1000
 
If objShell.AppActivate("D:\Infrastructure\10.1.2\bin\lsnrctl.exe") Then
    objShell.SendKeys "{ENTER}"
    objShell.AppActivate("D:\Infrastructure\10.1.2\bin\lsnrctl.exe")
    objShell.SendKeys "password"
End If

__________________

Click the image if at any point you don't like my decision.

Scripting problems? Windows questions? Ask the Windows Guru!

Subscribe to Nilpo's Live Article Feed

October 16th, 2008, 07:45 AM

zambrtp

Registered User

Join Date: Oct 2008

Posts: 15

Time spent in forums: 1 h 57 m 6 sec
Reputation Power: 0

Nilpo

I assumed it was in focus because I see the cmd window that I called the script from gray out and the title bar of D:\Infrastructure\10.1.2\bin\lsnrctl.exe come forward and appear blue. But using your code the result is the same. The lsnrctl command window waits for user input. I am very new to Windows Scripting I will attempt to add error checking...thanks

October 16th, 2008, 10:57 AM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,254

Time spent in forums: 6 Days 10 h 25 m 34 sec
Reputation Power: 667

Ok. The best way to handle command windows is by passing text to the StdIn stream...I'll post back with the code.

October 16th, 2008, 05:38 PM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,254

Time spent in forums: 6 Days 10 h 25 m 34 sec
Reputation Power: 667

I apologize. I didn't have time to write the code earlier. Here's what you need to use the StdIn and StdOut streams to read and write to a CMD window. Cheers!

vb Code:

Original - vb Code

Const WshRunning = 0
Const WshFinished = 1
Const WshFailed = 2
strCommand = "D:\Infrastructure\10.1.2\bin\lsnrctl.exe CHANGE_PASSWORD"
 
Set WshShell = CreateObject("WScript.Shell")
Set WshShellExec = WshShell.Exec(strCommand)
 
Select Case WshShellExec.Status
    Case WshRunning
        WshShellExec.StdIn.WriteLine("") 'Simulate pressing Enter
        WshShellExec.StdIn.WriteLine("password") 'password followed by Enter
    Case WshFinished
        strResponse = WshShellExec.StdOut.ReadAll
    Case WshFailed
        strError = WshShellExec.StdErr.ReadAll
End Select

October 20th, 2008, 08:13 AM

zambrtp

Registered User

Join Date: Oct 2008

Posts: 15

Time spent in forums: 1 h 57 m 6 sec
Reputation Power: 0

NO luck :(

Thanks for the code...I tried it this morning.....the code spawns the second window but it dissappears in a sec and isnt setting it...Im VERY new to windows scripting how can I slow it down to see errors?
Thanks again for your help

October 20th, 2008, 04:17 PM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,254

Time spent in forums: 6 Days 10 h 25 m 34 sec
Reputation Power: 667

You should be able to just echo strError.

October 22nd, 2008, 11:50 AM

zambrtp

Registered User

Join Date: Oct 2008

Posts: 15

Time spent in forums: 1 h 57 m 6 sec
Reputation Power: 0

I added some ECHO commands...I added one right after te strCommand = "D..........CHANGE_PASSWORD"
that one I get back from screen ..then I added another one after the line below along with a strError=WshShellExec.stdErr.ReadALL
Set WshShellExec=WshShell.Exec(strCommand)
but i dont get the echo and at that point it waits for a few seconds and terminates...when I check to see if the change was made it was not...I should see my original listener.ora file with a new time stamp...
I must be doing soemthing wrong..

October 22nd, 2008, 12:57 PM

zambrtp

Registered User

Join Date: Oct 2008

Posts: 15

Time spent in forums: 1 h 57 m 6 sec
Reputation Power: 0

if the Exec command supresses the command window of the lsrnctl is there a way to allow it to come up so I can see if the stream in is actually writing?

#10

October 22nd, 2008, 03:48 PM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,254

Time spent in forums: 6 Days 10 h 25 m 34 sec
Reputation Power: 667

Quote:

Originally Posted by zambrtp

if the Exec command supresses the command window of the lsrnctl is there a way to allow it to come up so I can see if the stream in is actually writing?

Unfortunately, you can only access Standard Input and Output streams in VBS when using the Exec method. Try this variation instead.

vb Code:

Original - vb Code

Const WshRunning = 0
Const WshFinished = 1
Const WshFailed = 2