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"

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

1 个答案: