Установите objWMIService = GetObject («winmgmts: » & «{impersonationLevel=impersonate}! \ \» & «.» & «\ корень \ cimv2»)
Установите objShell = CreateObject («Wscript.Shell»)
KillProcess (««processA.exe» ")
KillProcess (««processB.exe» ")
KillProcess (««processC.exe» ")
strMSI = «MSI2Execute.msi»
На резюме ошибки затем
objShell.Run objShell.ExpandEnvironmentStrings («%WINDIR%") &» \ System32 \ msiexec /I» &strMSI & " /qb-! «, 1, поистине
На ошибке переход 0
Sub KillProcess (strProcess)
На резюме ошибки затем
Установите colProcess = objWMIService.ExecQuery («выберите * от Win32_Process где имя =» & strProcess)
Для каждого objProcess в colProcess
objProcess.Terminate ()
Затем
На ошибке переход 0
Подводная лодка конца
|