arrCommands = rangée (_
« MsiExec.exe /X {5783F2D7-5001-0409-0002-0060B0CE6BBA} /QN /NORESTART », _
« MsiExec.exe /X {5783F2D7-0301-0409-0002-0060B0CE6BBA} /QN /NORESTART », _
« {BA3B0FA5-1EAD-476B-8E8D-6569CBC3E154} _ de /QN /X MsiExec.exe /NORESTART »
)
Placer l'objShell = le CreateObject (« WScript.Shell »)
le strResult = « logiciel a désinstallé : » Et VbCrLf et corde (21, « =")
Pour chaque strCommand dans les arrCommands
intReturn = objShell.Run (strCommand, 0, vrais)
S'intReturn = 0 puis
strResult = strResult et VbCrLf et « SUCCÈS : » et strCommand
Autrement
strResult = strResult et VbCrLf et « ÉCHEC : » et strCommand
Finir si
Après
strResult de MsgBox
|