1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
On Error Resume Next
Set WshShell = Wscript.CreateObject("Wscript.shell")
WshShell.RegRead ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{6A120E99-3123-4CB2-9A02-D24784F4BC8C}\")
if err.number <> 0 then
else
MsgBox " 1 L'antivirus Etrust est en cours de désinstallation, l'ordinateur va redémarrer" , 0, "Service informatique tel 205 ou 278"
'Set objshell = CreateObject("Wscript.Shell")
'objShell.run "MsiExec.exe /quiet /forcerestart /X{6A120E99-3123-4CB2-9A02-D24784F4BC8C}"
End if
WshShell.RegRead ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\etrust Antivirus\")
if err.number <> 0 then
else
MsgBox " 2 L'antivirus Etrust est en cours de désinstallation, l'ordinateur va redémarrer" , 0, "Service informatique tel 205 ou 278"
'Set objshell = CreateObject("Wscript.Shell")
' Uninst = "C:\Program Files\CA\etrust Antivirus\Uninst.isu"
' InoSetup = "C:\Program Files\CA\etrust Antivirus\InoSetup.dll"
'objShell.run ("C:\WINDOWS\IsUn040c.exe -f "& Uninst &" -c "& InoSetup &"")
End if |
Partager