Использование SendKeys из VBS полностью скрытым способом?

Question

Вот что я планирую сделать

Set WshShell = WScript.CreateObject("WScript.Shell")    
WshShell.Run"cmd"
WshShell.AppActivate"telnet 192.168.1.1"     
WScript.Sleep 50    
WshShell.SendKeys"telnet 192.168.1.1 -f 22.txt{ENTER}" 
WScript.Sleep 2000    
WshShell.SendKeys "admin{ENTER}"     
WScript.sleep 50     
WshShell.SendKeys"sys info{ENTER}"   
WScript.Sleep 50

Я хочу, чтобы это было полностью скрыто, но sendkeys просто работает на активированном окне, поэтому попытка скрыть его путем сворачивания окна не удалась. Я не мог найти какой-либо понятный способ сделать это

Возможно ли это без дополнительных инструментов?

Answer 1

Единственное решение, которое я нашел, это использование AutoIt Scripting Language

DllCall("kernel32.dll", "boolean", "Wow64DisableWow64FsRedirection", "boolean", 1) 
Run('cmd',"",@SW_HIDE) Local $hWnd = WinWait("[CLASS:cmd]", "", 1) 
Sleep (250) 
ControlSend("C:\WINDOWS\SYSTEM32\cmd.exe","","","telnet 192.168.1.1 -f log.txt{ENTER}") 
Sleep (2500) 
ControlSend("Telnet 192.168.1.1","","","pass1{ENTER}") 
ControlSend("Telnet 192.168.1.1","","","sysinfo{ENTER}") 
Sleep (1500) 
WinClose("Telnet 192.168.1.1")