Доброе утро.
Есть проблема.
Имеем клиент серверное приложение.
База -Cache
Сервер бд и приложения - Linux
На сервер бд выкладываются загруженные сканы через Web морду.
Клиентские машины - Windows
Для работы с сервером открываю сессию через putty (или его аналоги) через протокол SSH.
Как в QTP в Windows открыть сессию по SSH, получить сканы и закрыть сессию?
Монтировать папку не очень хочется т.к. тестовых сред довольно много и среды постоянно перемещаются и повторное монтирование занимает довольно много времени.
Работа в QTP через SSH
Автор Hary[K], 20 янв 2009 07:45
В теме одно сообщение
#1
Отправлено 20 января 2009 - 07:45
#2
Отправлено 22 января 2009 - 13:59
Не самое красивое решение, но у меня работает исправно:
[codebox]
Set objShell = CreateObject("WScript.Shell")
WinTitle = "username@host"
strCommand="нужная команда для выполнения"
strCommand = Replace(strCommand,"+","{+}")
strRun="putty -v username@host -pw password"
strOut = objShell.Run(strRun,4,false)
bWin = objShell.AppActivate(WinTitle)
objShell.SendKeys(strCommand)
objShell.SendKeys("{ENTER}")
wait 5
bWin = objShell.AppActivate(WinTitle)
objShell.SendKeys("exit{ENTER}")
Set objShell=Nothing
[/codebox]
[codebox]
Set objShell = CreateObject("WScript.Shell")
WinTitle = "username@host"
strCommand="нужная команда для выполнения"
strCommand = Replace(strCommand,"+","{+}")
strRun="putty -v username@host -pw password"
strOut = objShell.Run(strRun,4,false)
bWin = objShell.AppActivate(WinTitle)
objShell.SendKeys(strCommand)
objShell.SendKeys("{ENTER}")
wait 5
bWin = objShell.AppActivate(WinTitle)
objShell.SendKeys("exit{ENTER}")
Set objShell=Nothing
[/codebox]
Количество пользователей, читающих эту тему: 0
0 пользователей, 0 гостей, 0 анонимных