Установка программы на удаленный компьютер с помощью VBS скрипта

Скрипт для удаленной установки приложения с помощью VBS скрипта. Установка приложения осуществляется с помощью пакетов .msi (готовить пакеты нужно отдельно).

myDomain\AdminUser - учетная запись администратора домена
password - пароль
\\share\distrib\install.msi - сетевая папка с установщиком программы.
CompName - имя компьютера




Const wbemImpersonationLevelDelegate = 4

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

Set objSoftware = objConnection.Get("Win32_Product")
errReturn = objSoftware.Install("\\share\distrib\install.msi",,True)