☰

Удаленная установка msi на серверах Citrix с помощью WMI

tag-icon • tag-icon powershell vbscript msi wmi
Удаленная установка msi на серверах Citrix с помощью WMI

Хорошо, я программист на C#, который пытается упростить развертывание пользовательского приложения Windows Form, которое я унаследовал и создал установщик для WiX (это приложение нужно будет регулярно переустанавливать, так как я вношу в него изменения). Я не очень привык к административным вещам (или VBS, или WMI, или терминальным серверам, или Citrix, и даже WiX и MSI — это не то, с чем я обычно имею дело), ​​но пока что я собрал несколько VBS и имею в виду конечную цель. MSI работает, и я установил его с отображенного диска O: на моей машине разработчика и при этом подключился по RDP к машине Citrix.

Конечная цель:Развернуть код, написанный на моей машине разработчика и скомпилированный в MSI-файл (который я могу улучшить в рамках WiX и всего того, что позволяет Windows Installer Engine), на кластере машин Citrix, к которым имеют доступ мои пользователи.

Чего мне не хватает в моем скрипте, чтобы запустить MSI на удаленных машинах?

Макет:

  • Машина A — это моя машина разработки, на ней находятся скрипт vbs и файл msi (XP SP3)
  • Машины C1 - C6 - это серверы Citrix, на которых необходимо установить приложение с помощью msi (Server 2003 R2 SP2)
  • Также опционально имеется общий сетевой ресурс, к которому могут получить доступ все машины.

Сценарий:

'Set WMI Constants
Const wbemImpersonationLevelImpersonate = 3
Const wbemAuthenticationLevelPktPrivacy = 6

'Set whether this is installing to the debug Citrix Servers
Const isDebug = true

'Set MSI location
'Network location yields error 1619 (This installation package could not be opened.)
msiLocation = "\\255.255.255.255\odrive\Citrix Deployment\Setup.msi"
'Directory on machine A yields error 3 (file not found)
'msiLocation = "C:\Temp\Deploy\Setup.msi"
'Mapped network drive (on both machines) yield error 3 (file not found)
'msiLocation = "O:\Citrix Deployment\Setup.msi"

'Set login information
strDomain = "MyDomain" 
Wscript.StdOut.Write "user name:"
strUser = Wscript.StdIn.ReadLine 
Set objPassword = CreateObject("ScriptPW.Password")
Wscript.StdOut.Write "password:"
strPassword = objPassword.GetPassword()

'Names of Citrix Servers
Dim citrixServerArray
If isDebug Then
    citrixServerArray = array("C4")
Else
    'citrixServerArray = array("C1","C2","C3","C5","C6")
End If

'Loop through each Citrix Server
For Each citrixServer in citrixServerArray

    'Login to remote computer
    Set objLocator = CreateObject("WbemScripting.SWbemLocator")
    Set objWMIService = objLocator.ConnectServer(citrixServer, _
        "root\cimv2", _
         strUser, _
         strPassword, _
         "MS_409", _
         "ntlmdomain:" + strDomain)

    'Set Remote Impersonation level
    objWMIService.Security_.ImpersonationLevel = wbemImpersonationLevelImpersonate
    objWMIService.Security_.AuthenticationLevel = wbemAuthenticationLevelPktPrivacy
     
    'Reference to a process on the machine
    Dim objProcess : Set objProcess = objWMIService.Get("Win32_Process")

    'Change user to install for terminal services
    errReturn = objProcess.Create _
        ("cmd.exe /c change user /install", Null, Null, intProcessID)   
    WScript.Echo errReturn
    
    'Install MSI here
    'Reference to a product on the machine
    Set objSoftware = objWMIService.Get("Win32_Product")
    'All users set in option parameter, I'm led to believe that the third parameter is actually ignored
    'http://www.webmasterkb.com/Uwe/Forum.aspx/vbscript/2433/Installing-programs-with-VbScript
    errReturn = objSoftware.Install(msiLocation,"ALLUSERS=2 REBOOT=ReallySuppress",True)
    Wscript.Echo errReturn
            
    'Change user back to execute
    errReturn = objProcess.Create _
        ("cmd.exe /c change user /execute", Null, Null, intProcessID)
    WScript.Echo errReturn

Next

Я также пробовал использовать этот метод для установки, он не возвращает код ошибки, но и не устанавливает msi-файл, и это заставляет меня задуматься, работает ли вообще команда change user /install.

errReturn = objProcess.Create _
    ("cmd.exe /c msiexec /i ""O:\Citrix Deployment\Setup.msi"" /quiet")
Wscript.Echo errReturn

@tony Файл копируется нормально, но затем я получаю это:

ERROR:
Code = 0x80070005
Description = Access is denied.
Facility = Win32

Мне нужно использовать другую учетную запись пользователя (но в том же домене) для машин Citrix, поэтому я использовал:

Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objLocator.ConnectServer( .....

В конце концов я использовал для этого скрипт PowerShell, основанный на вкладке и предложении Тони, и он выглядит и работает гораздо чище.

Хотя получение метода установки класса Win32_Product все еще выглядит немного запутанным (по сравнению с командой WMIC), но именно это предлагает Technet:

Связь http://technet.microsoft.com/en-us/library/dd347651.aspx

#$servers = 'C1' , 'C2', 'C3' , 'C5', 'C6'
$servers = , 'C4'
$MyCredential = Get-Credential MyDomain\otherusername

foreach($server in $servers)
{
    Copy-Item -LiteralPath C:\Temp\Deploy\Setup.msi -Destination \\$server\c$\Temp\Setup.msi -Force
    (Get-WmiObject -ComputerName $server -Credential $MyCredential -List | `
    Where-Object -FilterScript {$_.Name -eq "Win32_Product"}).Install("C:\TEMP\Setup.msi")
}

решение1

во-первых, у citrix есть собственная технология развертывания, во-вторых, вы говорите, что ваш метод развертывания в чем-то не срабатывает? Если так, то я предполагаю, что это проблема имперсонации. Но я не могу сказать этого из вашего объяснения.

Ниже приведен ярлык для всего кода, который у вас есть
в первой
копии file.msi \citrixservername\c$\pathtoyourfile

wmic /node:citrixservername product call install true,"" , "c:\PathToYour\File.msi"

Обратите внимание, что установочный файл сначала копируется локально на сервер. Если вы этого не сделаете, у вас возникнет проблема с выдачей себя за другое лицо!

Связанный контент