Cacher la fenêtre shell

Bonjour,

J'ai trouvé dans la FAQ, le code suivant pour cacher la fenêtre shell.
http://vb.developpez.com/faqvbs/?page=IV.1#wshRun

Dans mon code, je rajoute ce qui est préconisé par la FAQ

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

On Error Resume Next Dim Sh, version Set Sh = WScript.CreateObject("WScript.Shell") version = Sh.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Papercut NG\Version") If IsNull(version) then Sh.Run("cmd /c start \\Packages\papercut\pcng-setup.exe /SILENT /TYPE=secondary_print",0,true) ElseIf version <> "13.0.0.20822" then Sh.Run("cmd /c start \\Packages\papercut\pcng-setup.exe /SILENT /TYPE=secondary_print") Else Sh.Run("sc config pcprintprovider start= auto") Sh.Run("net start pcprintprovider") End If

---

Mais cela ne marche pas, il me dit :

Code:

---

Erreur de compilation Microsoft VBScript: L'appel d'une fonction Sub n'admet pas de parenthèses.

---

Je ne comprends pas cette erreur ici dans ce cas ci.
Merci d'avance !

bonjour,
lorsqu'une fonction est appelée comme une sous-routine avec plus d'un paramètre, les parenthèses ne doivent pas être utilisées
donc

Code:

---

Sh.Run "cmd /c start \\Packages\papercut\pcng-setup.exe /SILENT /TYPE=secondary_print",0,true

---

au lieu de

Code:

---

Sh.Run("cmd /c start \\Packages\papercut\pcng-setup.exe /SILENT /TYPE=secondary_print",0,true)

---

pour une explication complète sur cette subtilité syntaxique :mrgreen: : http://blogs.msdn.com/b/ericlippert/.../15/52996.aspx

Enlève les parenthèses dans toutes les lignes où il y a Sh.Run .
Par exemple

Code:

---

Sh.Run "cmd /c start \\Packages\papercut\pcng-setup.exe /SILENT /TYPE=secondary_print",0,true

---

Ô :oops: Je n'ai pas vu que omen999 m'a devancé

Merci, oui c'est bien ça.
J'étais partis sur un ShellExecute, car cette commande ne cache pas la fenêtre.

Voilà ma solution pour ceux qui tomberaient sur ce topic :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

On Error Resume Next Dim Sh, version Set Sh = WScript.CreateObject("WScript.Shell") Set objShell = CreateObject("shell.application") version = Sh.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Papercut NG\Version")   If IsNull(version) then objShell.ShellExecute "\\Packages\papercut\pcng-setup.exe", " /SILENT /TYPE=secondary_print", "", "open", 0 ElseIf version <> "13.0.0.20822" Then objShell.ShellExecute "\\Packages\papercut\pcng-setup.exe", " /SILENT /TYPE=secondary_print", "", "open", 0 Else objShell.ShellExecute "\\packages\papercut\Papercut.Services.Start.bat", "", "", "open", 0 End If

---

En sommes :

Code:

---

objShell.ShellExecute "chemin\application.exe", " arguments eventuels", "", "open", 0

---

Avec le 0 veut dire que le shell sera caché à l'execution.

Pour plus de détails : http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx