vbscript / html

Marsh Posté le 31-08-2004 à 18:07:06

Voila, j'ai fais ca:

Code :

<input type="button" value="connection PT" id="bouton">
<script language="VBScript">
Sub bouton_onclick
dim wsh, fso, f
set wsh = CreateObject("WScript.Shell" )
set fso = CreateObject("Scripting.FileSystemObject" )
set f = fso.GetFile("c:\PTW525\pt525.exe" )
wsh.Run f.ShortPath
end sub
</script>

Mais il faudrait que je puisse lancer "c:\PTW525\pt525.exe" avec des parametres.......

Le tout est dans une page html...
Voila, je suis bloqué....
Merci d'avance.

Exemple : "c:\PTW525\pt525.exe telnet.psl machine toto"

Reply

Marsh Posté le 31-08-2004 à 18:07:06

Reply

Marsh Posté le 31-08-2004 à 19:13:11

Code :

wsh.Run f.ShortPath & "telnet.psl machine toto"

Message édité par leneuf22 le 31-08-2004 à 19:13:48

Reply

Marsh Posté le 01-09-2004 à 09:37:27

Ca ne fonctionne pas.

code :

<input type="button" value="connection PT" id="bouton">

<script language="VBScript">
Sub bouton_onclick
dim wsh, fso, f
set wsh = CreateObject("WScript.Shell" )
set fso = CreateObject("Scripting.FileSystemObject" )
set f = fso.GetFile("c:\PTW525\pt525.exe" )
wsh.Run f.ShortPath & ("telnet.psl" )
end sub
</script>

Reply

Marsh Posté le 01-09-2004 à 13:25:28

hornetmen a écrit :

Ca ne fonctionne pas.

un ptit espace :

Code :

<input type="button" value="connection PT" id="bouton">
<script language="VBScript">
Sub bouton_onclick
dim wsh, fso, f
set wsh = CreateObject("WScript.Shell" )
set fso = CreateObject("Scripting.FileSystemObject" )
set f = fso.GetFile("c:\PTW525\pt525.exe" )
wsh.Run f.ShortPath & " telnet.psl"
end sub
</script>

Message édité par leneuf22 le 01-09-2004 à 13:25:50

Reply

Marsh Posté le 01-09-2004 à 14:00:10

leneuf22 a écrit :

un ptit espace :

Code :

<input type="button" value="connection PT" id="bouton">
<script language="VBScript">
Sub bouton_onclick
dim wsh, fso, f
set wsh = CreateObject("WScript.Shell" )
set fso = CreateObject("Scripting.FileSystemObject" )
set f = fso.GetFile("c:\PTW525\pt525.exe" )
wsh.Run f.ShortPath & " telnet.psl"
end sub
</script>

Merci à toi, cela fonctionne bien.

Pour info, j'avais solutionner le pb en faisant cela :

Code :

<input type="button" value="toto" id="bouton1">
<script language="VBScript">
Sub bouton1_onclick
Dim oShell
Set oShell = CreateObject ("WSCript.shell" )
oShell.run "cmd /C cd C:\PTW525 & pt525.exe telnet.psl server"
end sub
</script>

Par contre, je suis obligé d'utiliser CMD.EXE pour garder le path vers le programme :sarcastic:

Reply

vbscript / html

Sujets relatifs:

Leave a Replay