sendkey and AppActivate

From the section of code below....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...
I am running this via a command window by wscript.exe file.vbs

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"
objShell.SendKeys "password"

Basically...the lsnrctl CHANGE_PASSWoRD opens a new command window and waits for inputs I want to be able to send the inputs via the sendkys is this possible?

THnks for any help or ideas