没有Powershell远程安装.msi？

Question

我们有一个多服务器系统 ，需要在客户端站点上安装。 我想编写一个可以执行以下操作的脚本：

1. 关闭远程计算机上的服务
2. 在多台远程计算机上卸载软件
3. 在多个远程计算机上安装.msi文件

我一直在努力与psexec和wmic进行第二点和第三点。

似乎必须有一种更简便的方法而不必诉诸PowerShell 。

Answer 1

首先，请参阅此线程进行WSH远程处理 ： Windows Server 2012 R2上的远程安装 。

然后，您也许可以尝试使用VbsEdit之类的VBScript库 （我不愿意提出软件建议，但由于我不隶属我，所以我认为它是允许的，并且希望提出它来解决问题。 ）：

这是一个远程安装软件的脚本：

' Install Software on a Remote Computer
Const wbemImpersonationLevelDelegate = 4

Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objConnection = objwbemLocator.ConnectServer _
    ("WebServer", "root\cimv2", "fabrikam\administrator", _
         "password", , "kerberos:WebServer")
objConnection.Security_.ImpersonationLevel = wbemImpersonationLevelDelegate

Set objSoftware = objConnection.Get("Win32_Product")
errReturn = objSoftware.Install("\\atl-dc-02\scripts\1561_lab.msi",,True)

这是停止服务的脚本：

' Stop Services Running Under a Specific Account
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colServices = objWMIService.ExecQuery _
    ("Select * from Win32_Service Where StartName = '.\netsvc'")

For Each objService in colServices 
    errReturnCode = objService.StopService()
Next

---

这是VbsEdit的脚本库的屏幕截图：