Discussion :

[thecharmer1]

Bonjour,


J'aurais besoin des lumières de quelqu'un pour m'expliquer comment passer en paramètre des variables à partir d'une action dans un formulaire HTML vers une fonction en VBSCRIPT.
Ce code permet de configurer le port d'impression d'un imprimante réseau. Le code en VBS fonctionne très bien mais il me faut une interface utilisateur.

Or l'appel à la procédure toConfig() ne fonctionne pas lorsqu'on rentre les paramètres en HTML.

Merci à tous ceux qui pourrait m'aider.


Voici mon

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
<HTA:APPLICATION ID="oHTA";
  APPLICATIONNAME="DivaPrinter";>
 
<script language="VBScript" type="text/vbscript">
 
	sub toConfig(pName,pIp)
		set Shell = CreateObject("WScript.Shell")
		Cmd1 = "cscript %SYSTEMROOT%\system32\prnport.vbs -a -r DIVA_BONS -h " & pIp & " -o raw -n 9100"
		Cmd2 = "cscript %SYSTEMROOT%\system32\prncnfg.vbs -t -p DIVA_DFX_BONS -r DIVA_BONS"
		return = Shell.run (Cmd1,0,TRUE)
		 if return <> 0 then
			msgbox "Impossible de configurer le port d'impression, Erreur : " & strErrorDescription
		else
			return = Shell.run (Cmd2,0,TRUE)
			if return <> 0 then
				msgbox "Impossible de configurer l'imprimante, Erreur : " & strErrorDescription
			else 
				msgbox "Imprimante configurée pour " & pName & " !"
			end if
		end if 
		window.close()
 
	end Function
 
Sub Window_Onload
		set Shell = CreateObject("WScript.Shell")
		Dim objFSO
		set objFSO= CreateObject("Scripting.FileSystemObject")
		Set objFile = objFSO.OpenTextFile("DivaPrinter.ini",1)
		DIM OptionsArray
		Do Until objFile.AtEndOfStream
			OptionsArray = Split(objFile.ReadLine,":")
			arg1=Trim(OptionsArray(0))
			arg2=Trim(OptionsArray(1))
			newButton ="<input type=""button"" name=" & arg1 & " class=""bouton-relief"" value=" & arg1 & " onclick='vbscript:Call toConfig(" & arg1 & "," & arg2 & ")' >"
			document.write(newButton)
		Loop
		objFile.Close

[omen999]

bonjour,

ta routine toConfig est une procédure puisqu'elle ne renvoie aucune valeur
donc :

Code :

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

end sub

au lieu de

Code :

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

end Function

[thecharmer1]

Autant pour moi c'était une erreur de recopie lors du post. mais le problème ne vient pas de là. D'ailleur que ce soit une procédure ou une fonction (avec bien sur les appels associés qui correspondent) j'ai la même erreur.