Удаленная установка
 

Пытаюсь так
strComputer="remotehost"

Set oSoft=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_Product")

errReturn = oSoft.Install("\\share\product.msi",,True)
Wscript.Echo errReturn

Ошибка 1619
Если менять "remotehost" на "." локально устанавливает без проблем

Пробовал так

Const wbemImpersonationLevelDelegate = 4

Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objConnection = objwbemLocator.ConnectServer _
("remotehost", "root\cimv2")
objConnection.Security_.ImpersonationLevel = wbemImpersonationLevelDelegate
Set objSoftware = objConnection.Get("Win32_Product")
errReturn = objSoftware.Install("\\share\product.msi",,True)

На строке objConnection.Get("Win32_Product") выдает "Ошибка в пакете безопастности"

Соответственно меняем удаленный на локальный и все работает без проблем.

Используется Windows XP, компы как мой так и удаленный находятся в АД, права администратора со своей доменной учеткой я на них имею.

Скрипты для удаления софта, например так:

strComputer = "remotehost"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colSoftware = objWMIService.ExecQuery _
("Select * from Win32_Product Where Name = 'Google Toolbar for Internet Explorer'")

For Each objSoftware in colSoftware
wscript.echo objSoftware.Uninstall()
Next
wscript.echo "Finish"

Работает без проблем. Где собака порылась?

В первом варианте нашел, проблема nulsession, но как обойти? Никакие изменения на сервере хранящем инсталляционные пакеты я произвести немогу.

учетке компа из АД нужно дать права на шару с пакетами - например, включить в соответствующую глобальную группу
например, создать своё "зеркало" и дать нужные права