如何从共享网络驱动器、多台计算机上的命令行运行此VBS脚本？

Question

我创建了一个VBS脚本，并将它放在我办公室的共享驱动器上，我想要的是能够通过命令行将它与另一台计算机一起使用，而不需要编写整个路径，因为它很长，并且违背了脚本的目的。剧本是这样的：

Set oShell = WScript.CreateObject("WScript.Shell")
oShell.run "cmd.exe /c net stop AeXAgentSrvHost", 1, true
oShell.run "cmd.exe /c net stop ""Altiris Deployment Agent""", 1, true
oShell.run "cmd.exe /c net start AeXAgentSrvHost", 1, true
oShell.run "cmd.exe /c net start ""Altiris Deployment Agent""", 1, true
Set oShell = Nothing'

Answer 1

下面是使用Win32_Service类在VBScript中停止远程计算机上的服务的示例。没有必要在远程PC上生成脚本(除非您真的想这样做)。

Const COMPUTER_NAME = "johndoe1"
Const SERVICE_NAME  = "AeXAgentSrvHost"

Dim objWMI
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & COMPUTER_NAME & "\root\cimv2")

With objWMI.Get("Win32_Service.Name='" & SERVICE_NAME & "'")
    If .Started Then .StopService
End With

有关Win32_Service类的属性和方法的完整列表，请参阅上面的链接。

如果您需要在许多计算机上运行此程序，则您有以下几种选择：

• 使用硬编码的计算机名称数组。
• 从文本文件、数据库或其他形式的存储中读取列表
• 提示使用InputBox()或从StdIn读取计算机名称
• 将一个或多个名称作为命令行参数传递。
• 等。

在这个网站上，每个方法都应该有大量的例子。