Ajustar o objWMIService = o GetObject (“winmgmts: ” & “{impersonationLevel=impersonate}! \ \” & “.” & “\ raiz \ cimv2”)
Ajustar o objShell = o CreateObject (“Wscript.Shell”)
KillProcess (““processA.exe” ")
KillProcess (““processB.exe” ")
KillProcess (““processC.exe” ")
strMSI = “MSI2Execute.msi”
No resumo do erro em seguida
objShell.Run objShell.ExpandEnvironmentStrings (“%WINDIR%") &” \ System32 \ msiexec /I” &strMSI & " /qb-! “, 1, verdadeiro
No erro 0 empreendedores
KillProcess secundário (strProcess)
No resumo do erro em seguida
Ajustar colProcess = objWMIService.ExecQuery (“selecionar * de Win32_Process onde nome =” & os strProcess)
Para o cada objProcess nos colProcess
objProcess.Terminate ()
Em seguida
No erro 0 empreendedores
Submarino da extremidade
|