Option Explicit
Dim shell, fso, folder, scriptPath, commandLine, exitCode
Set shell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
folder = fso.GetParentFolderName(WScript.ScriptFullName)
scriptPath = fso.BuildPath(folder, "installation_v10.ps1")
commandLine = "powershell.exe -NoProfile -Sta -ExecutionPolicy Bypass -WindowStyle Hidden -File """ & scriptPath & """"
exitCode = shell.Run(commandLine, 0, True)
If exitCode <> 0 Then
  MsgBox "L'installation ne s'est pas terminee correctement. Consultez le diagnostic eventuellement cree sur le Bureau.", 16, "Alerte Agenda V1.0"
End If
