Installation .exe depuis VBS
Bonjour à tous,
Je viens vers vous cars j'aimerais que l'installation de mon setup.exe ce face tout seul .
C'est a dire : Je voudrais que quand je lance mon script VBS qu'il n’exécute pas seulement le .exe mais qu'il passe les étape suivant accepter les licence si il y a, jusqu’à l'installation .
Script VBS qu'on utilise pour l’exécution de .exe
Option Explicit
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| On Error Resume Next
Dim objShell, objFSO, SystemDrive, WshShell, OsType
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.shell")
Set WshShell = CreateObject("WScript.Shell")
set filesys=CreateObject("Scripting.FileSystemObject")
SystemDrive = objShell.ExpandEnvironmentStrings("%SYSTEMDRIVE%")
OsType = WshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE")
'Install application
If OsType = "x86" then
objShell.run "I:\setup.exe /S", 1, True
Wscript.quit
elseif OsType = "AMD64" then
objShell.run "I:\setup.exe /S", 1, True
Wscript.quit(Exitcode)
end if |
Je vous remercie .
Cordialement .
