Discussion :

[darkwall_37]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[omen999]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 : http://blogs.msdn.com/b/ericlippert/.../15/52996.aspx

[l_autodidacte]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[darkwall_37]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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