運行時輸入objSell.exec方法在VBScript

Question

我需要在我的VBScript作爲使用Subversion命令行工具（svn.exe），

cmd = "c:\Program Files\VisualSVN Server\bin\svn.exe " & "list " & "https://10.0.3.133/svn/MyRepos" 
Set oExec = objShell.Exec (cmd) 
OutPut = oExec.StdOut.ReadAll 
Wscript.Echo Output 

但是這個命令需要運行時輸入（（R ）退出，接受（t），或接受（p）永久？）接受證書。

我如何給objShell.exec命令提供運行時輸入？

注意：我已經嘗試使用SendKeys（），但沒有工作。

謝謝...

Answer 1

這是我通常使用：

Set WshShell = wscript.CreateObject("wscript.Shell") 
WshShell.Run "cmd" 
WScript.Sleep 100 
WshShell.AppActivate "C:\Windows\system32\cmd.exe" 
WScript.Sleep 100 
wshshell.sendkeys """c:\Program Files\VisualSVN Server\bin\svn.exe"" list https://10.0.3.133/svn/MyRepos" 
wshshell.sendkeys "{ENTER}" 
WScript.Sleep 100 
wshshell.sendkeys "P"