如何节省在VBA中使用plink的时间

时间:2016-08-04 02:01:44

标签: vba plink

下面的我的VBA代码显示了有关如何通过plink控制主机的模板

Set wsh = VBA.CreateObject("WScript.Shell")  
for i = 1 to 1000
   wsh.Run("cmd.exe /c plink -ssh 192.168.100.xx -l root -pw xxxx command", 0, True)
   Sleep 1000
next i

如果我必须每秒通过plink.exe从主机获取信息,则必须执行" wsh.Run(" cmd.exe / c plink -ssh 192.168.100.xx -l root -pw xxxx command",0,True)"每次都浪费时间打开shell并执行plink.exe然后每一轮关闭它。有没有办法节省时间,这意味着打开shell并执行一次plink.exe并保持plink.exe监听我的命令,直到循环结束?

1 个答案:

答案 0 :(得分:0)

您可能需要查看Chip Pearsons解决方案,Shell和Wait。

http://www.cpearson.com/excel/ShellAndWait.aspx

  

ShellAndWait函数调用Shell,然后等待Shell的进程终止。您可以指定一个间隔,在该间隔之后函数超时并返回给调用者。 ShellAndWait的声明如下: