在vb6中从客户端执行服务器中的exe

Question

我有一台连接到开发服务器的终端服务器。

在我的开发服务器中，有一个包含许多“.exe”文件的共享文件夹。

我想要的是我的终端服务器上任何具有该共享文件夹权限的终端应该能够启动“.exe”文件。

但是这些“.exe”文件无法在终端服务器上运行。这些“.exe”文件需要在我的开发服务器中工作。

因此我试图创建一个执行器来执行我在开发服务器中定义的“.exe”文件。我怎样才能在vb6中实现这个目标？

Answer 1

如果我理解你的问题，我认为你需要看起来像这样的代码

Sub Main()

    Dim objWSShell As Object
    Set objWSShell = CreateObject("Wscript.Shell")
    objWSShell.Run Command$, 0, True

End Sub

你要用你想要作为参数运行的exe来调用你的exe：

MyAppRunner MyAppToRun.exe

Answer 2

如果程序需要在第二个“开发”服务器上运行，则需要RDP到该服务器，如果您想要进行交互。

关于您可以做的唯一其他事情是将它们分解为客户端和服务器，并在终端服务器上运行客户端。这些客户端将使用DCOM，Web服务等作为两者之间的粘合剂。

异常可能是编写为命令行或无UI批处理程序的程序，在大多数VB6用法中相当罕见。这些可以通过Telnet到第二台服务器或远程执行来运行。没有必要详细阐述这一点，因为它更不可能满足您的需求。如果你真的做意味着批处理/非交互式程序，请查看使用WSH的远程脚本。