Bonjour,


J' ai un petit souci pour lancer un vbs qui se trouve dans "c:\Program Files" dont voici le bout de code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
If objFSO.FileExists(FichierLog) And ControlDate = True Then
    MsgBox "Pensez à changer de mot de passe assez rapidement" & vbcrlf & _
    "avant expiration de celui-ci", VbInformation
Else
    MsgBox "Votre mot de passe Nérée a expiré !!!" & vbcrlf & _   
    "Merci de le modifier rapidement sinon cetains scripts seront inopérationnels", VbExclamation
    oProgramFiles = WshShell.ExpandEnvironmentStrings("%PROGRAMFILES%")
    oChemin = oProgramFiles & "\ChgPwd\ChgPwdAdmNeree.vbs"
    MsgBox oChemin  ==> il m' affiche bien le chemin "c:\Program Files\ChgPwd\ChgPwdAdmNeree.vbs"
    WshShell.Exec oChemin  ===> par contre ici il me dit que le fichier spécifié est introuvable.Pourquoi ???
    WScript.Quit
End If
La solution de contournement pour le moment que j' ai trouvé et de mettre le fichier dans un répertoire à la racine.

Ex: c:\ChgPwd\ChgPwdAdmNeree.vbs

J' aimerais savoir tout de même pourquoi il ne trouve pas le chemin oProgramFiles & "\ChgPwd\ChgPwdAdmNeree.vbs" alors qu' apparemment il me l' affiche correctement dans une messagebox.

Merci d' avance pour vos réponses.

Cordialement.