result = MsgBox ("Désinstallation, Veuillez Patientez...", vbInformation, "Intranet Uninstaller")

Select Case result
Case vbOk
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "Intranet_Virus\uninstaller_one.vbs"

End Select