远程运行安装程序

Posted 2023-02-16

【中文标题】远程运行安装程序

【英文标题】：Run an install program remotely

【发布时间】：2015-10-15 14:04:14

【问题描述】：

我需要能够在不同的机器上运行安装程序，这基本上是为了最小化用户输入，例如，我有 7 台不同的计算机通过专用网络连接，但机器 1 是驻留在主数据库和其他软件，我需要从机器 1 独立运行所有机器的软件更新。

Dim p As New Process
    p.StartInfo.FileName = "\\SHOP" & box & TextBox1.Text & "\E\VastUpdate\AutoITUpdater.exe"
    p.StartInfo.Arguments = "/i AutoITUpdater.exe"
    p.Start()

【问题讨论】：

删除了“请帮忙”。

【参考方案1】：

使用PsExec。

这是一个示例代码：

Dim application As String = "\\SHOP" & box & TextBox1.Text & "\E\VastUpdate\AutoITUpdater.exe"
Dim arguments As String = "/i AutoITUpdater.exe"
Dim location_of_psexec As String = "c:\pstools\psexec.exe"
Dim remote_machine As String = "remote_machine"

Dim process As Process = New Process()
process.StartInfo.UseShellExecute = False
process.StartInfo.CreateNoWindow = True
process.StartInfo.FileName = location_of_psexec
process.StartInfo.Arguments = String.Format("\\0 -c ""1"" ""2""", remote_machine, application, arguments)

process.Start()

我在我的代码中假设应用程序路径（例如"\\SHOP" & box & TextBox1.Text & "\E\VastUpdate\AutoITUpdater.exe"）是相对于您的机器，而不是远程机器。

如果您想使用相对于远程机器的路径，只需从 process.StartInfo.Arguments 的值中删除 -c