Appel .bat dans fonction

Bonjour j'aimerai créer une fonction qui lance un .bat voila se que j'ai fait :

Code:

---

1 2 3 4 5 6

Function mem ()   Set WshShell = CreateObject("WScript.Shell") Return = WshShell.Run("c:\verMem.bat" , 1, true)   End Function

---

le soucis c'est que rien ne se passe :cry: j'ai essayer de mettre plusieurs chose suite a des recherches :

Code:

---

1 2 3 4 5 6 7 8 9

Set WshShell = WScript.CreateObject("WScript.Shell") objShell.Run("%comspec% /k c:\verMem.bat")   Set WshShell = CreateObject("WScript.Shell") Return = WshShell.Run("c:\verMem.bat" , 1, true)   Set WshShell = CreateObject("WScript.Shell") WshShell.Run("cmd /C c:\verMem.bat",1 ,true)

---

merci de votre aide

Citation:

---

Microsoft VBScript compilation error: Cannot use parentheses when calling a Sub

---

Chez moi le code suivant fonctionne:

Code:

---

1 2	Set WshShell = CreateObject("WScript.Shell") WshShell.Run "c:\test.bat" , 1, true

---

Je viens de tester cela ne change rien :? en fait lorsque je teste cela :

Code:

---

1 2	Set WshShell = CreateObject("WScript.Shell") WshShell.Run "c:\test.bat" , 1, true

---

aucun soucis sa fonctionne mais lorsque je le met dans une fonction, rien ne se passe quand je l'exécute :

Code:

---

1 2 3 4 5

Function mem() Set WshShell = CreateObject("WScript.Shell") WshShell.Run "c:\test.bat" , 1, true End Function

---

Ben si tu n'appelles jamais la fonction c'est normal qu'elle ne s'exécute pas.
Place

Code:

---

mem()

---

après la définition de la fonction.

effectivement j'avais trouver cela, mais en fait j'utilise un soft qui peu m'exécuter qu'une fonction VBS mais lorsque je le fait, rien ne se passe ...

Le problème vient du soft alors.

ok je vais voir de se coté la merci de ton aide !!!!