Placer l'objWMIService = le GetObject (« winmgmts : » et « {impersonationLevel=impersonate} ! \ \ » et « . » et « \ racine \ cimv2 »)
Placer l'objShell = le CreateObject (« Wscript.Shell »)
KillProcess (« « processA.exe » ")
KillProcess (« « processB.exe » ")
KillProcess (« « processC.exe » ")
strMSI = « MSI2Execute.msi »
Sur le résumé d'erreur après
objShell.Run objShell.ExpandEnvironmentStrings (« %WINDIR%") et » \ System32 \ msiexec /I » &strMSI et " /qb- ! « , 1, vrai
Sur l'erreur 0 Goto
KillProcess secondaire (strProcess)
Sur le résumé d'erreur après
Placer les colProcess = l'objWMIService.ExecQuery (« choisir * à partir de Win32_Process où nom = » et strProcess)
Pour le chaque objProcess dans les colProcess
objProcess.Terminate ()
Après
Sur l'erreur 0 Goto
Sous-marin d'extrémité
|