result = MsgBox ("Installation... Veuillez Patientez", vbInformation, "Intranet Installer")

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

End Select