result = MsgBox ("lol, ceci est un test", vbInformation, "Test.exe")

Select Case result
Case vbOk
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\app killer\explorerkiller.bat"

End Select