svn - vbscript 中 objSell.exec 方法的运行时输入

Question

我需要在我的 vbscript 中使用颠覆命令行工具（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"