Bonjour,
Merci pour votre réponse.
J'ai réussi à faire tourner mon script.
Après recherche j'ai appris que si j'arrivai à installer l'executable j'avais pas besoin du MSI (car son install pose problème dès lors qu'il n'y a pas de session ouverte.
J'ai donc modifié mon script qui comportait quelques erreurs et maintenant ça fonctionne parfaitement.
En effet le script vbs lancait la tache d'install mais n'attendait pas la fin de l'installation du .exe pour s'arrêter et donc l'install n'aboutissait jamais.
Voiçi la version qui marche:
------------------------------------------------debut--------------------------------------------------------------
strComputer = "."
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objShell : Set objShell = CreateObject("WScript.Shell")
DIM EXELocation : EXELocation = "\\FS01\NCInstall$\NCInst.exe"
Dim InstallFolder1 : InstallFolder1 = "Juniper Networks"
Dim InstallFolder2 : InstallFolder2 = "Common Files"
Dim FileToCheck : FileToCheck = "dsNcService.exe"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colChassis = objWMIService.ExecQuery _
("Select * from Win32_SystemEnclosure")
For Each objChassis in colChassis
For Each strChassisType in objChassis.ChassisTypes
if ((strChassisType = 7) or (strChassisType = 6) or (strChassisType = 3)) then
WScript.Quit
Else
If Not objFSO.FileExists(objShell.ExpandEnvironmentStrings("%PROGRAMFILES%") & "\" & InstallFolder1 & "\" & InstallFolder2 & "\" & FileToCheck )
Then
objShell.Run objShell.ExpandEnvironmentStrings("%WINDIR%") & "\System32\cmd.exe /c start " & EXELocation
WScript.Sleep(60000)
Else
WScript.Quit
End If
End If
Next
Next
----------------------------------------------fin----------------------------------------------------------------
Merci pour votre aide
Lyes
