Faire appel à un fichier .vbs dans page HTML

Résolu

ShirMi Messages postés 2 Date d'inscription mardi 11 mars 2014 Statut Membre Dernière intervention 11 mars 2014 - 11 mars 2014 à 11:21
jordane45 Messages postés 38137 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 - 14 mars 2014 à 01:46

Bonjour

je dispose d'un fichier .vbs et je voudrais lui faire appel avec une page web HTML. J'ai essayéé plusieurs fois mais j'ai pas pu le faire.

Est ce que vous pouvez m'aidez pour le trouver
et Merci .

Répondre (11) Posez votre question

A voir également:

Vbscript html
Vbs html - Meilleures réponses
Html vbscript - Meilleures réponses
Html array - Conseils pratiques -PHP
Vbscript msgbox - Conseils pratiques -Visual Basic / VB.NET
Span html - Forum PHP
Vbscript goto - Forum Visual Basic
Fermer balise html - Forum PHP

11 réponses

Réponse 1 / 11

jordane45 Messages postés 38137 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 344
11 mars 2014 à 18:46

Bonjour,

Si ton VBS est sur le bureau...il n'est alors pas dans le chemin que tu indiques dans ton programme...??

Le code suivant fonctionne:

<html>
<head>
<script type="text/vbscript">
	Function exec_vbs()
	   Set oShell = CreateObject("WScript.Shell" )
	   oShell.Run "C:\chemin\test1.vbs"
	   Set oShell = Nothing
	End Function
</script>
</head>
 
<body>
<a href="vbscript:exec_vbs()">Test</a>
<br><input type="button" value="Test" onclick="exec_vbs()">
</body>
</html>

NB: Attention... Ne fonctionne QUE SUR IE !

Réponse 2 / 11

jordane45 Messages postés 38137 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 344
11 mars 2014 à 11:57

Bonjour,
Un fichier vbs stocké sur le serveur ?
Qui est Utilisé comme un javascript en somme..?

Comment à tu essayé de l'appeler depuis ta page web ?

Réponse 3 / 11

ShirMi Messages postés 2 Date d'inscription mardi 11 mars 2014 Statut Membre Dernière intervention 11 mars 2014
Modifié par jordane45 le 11/03/2014 à 18:35

1_
le fichier est enregistré sur le bureau .

2_
j'ai pas compris votre question.

3_
j'ai essayé avec ce code

<html>
<head>
<script language="VBScript">
Public Sub exec_vbs()
   Set oShell = CreateObject("WScript.Shell" )
   oShell.Run "C:\chemin\test1.vbs"
   Set oShell = Nothing
End sub
</script>
</head>
 
<body>
<a href="javascript:(function(){exec_vbs();})()">Test</a>
<br><input type="button" value="Test" onclick="exec_vbs()">
</body>
</html>

Réponse 4 / 11

ShirMi
11 mars 2014 à 19:49

je l'ai essayé mais rien ne se change , même j'ai changé le chemin de mon fichier mais il ne marche pas :(

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 11

jordane45 Messages postés 38137 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 344
11 mars 2014 à 20:11

Tu as mis ton fichier a quel endroit ?

Tu as recopie mon code tel quel ?

Tu as quoi dans ton vbs ?

Tu es bien sur IE ? Quelle version ?

Réponse 6 / 11

ShirMi
Modifié par jordane45 le 11/03/2014 à 20:51

1- j'ai placée mon fichier dans système :"C" le dossier "Dell" sous le nom de "pagTest.vbs" .

2- oui sauf le chemin bien sur j'ai mise le chemin de mon fichier :
voila :

<html>
<head>
<script type="text/vbscript">
 Function exec_vbs()
    Set oShell = CreateObject("WScript.Shell" )
    oShell.Run "C:\Dell\pagTest.vbs"
    Set oShell = Nothing
 End Function
</script>
</head>
 
<body>
<a href="vbscript:exec_vbs()">Test</a>
<br><input type="button" value="Test" onclick="exec_vbs()">
</body>
</html>

4- et je l'ai exécuté avec l'IE comme tu m'as indiqué... Version 8

jordane45 Messages postés 38137 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 344
11 mars 2014 à 20:39

Et le 3 ?
Tu as quoi dans ton vbs ?

ShirMi
Modifié par jordane45 le 11/03/2014 à 21:00

j'ai des commandes pour lancer un script et ouvrir le terminal sous UBUNTU.Voila le contenu de mon vbs :

Set WshShell = WScript.CreateObject("WScript.Shell")
 
 
WshShell.Run "telnet xx.xx.XX.XXxx"
WScript.Sleep 1000
WshShell.SendKeys "ata" & chr(13)
WScript.Sleep 1000
WshShell.SendKeys "root" & chr(13)
WScript.Sleep 5000
WshShell.SendKeys "sudo bash"  & chr(13)
WScript.Sleep 500
WshShell.SendKeys "root"  & chr(13)
WScript.Sleep 500
WshShell.SendKeys  chr(13)
WScript.Sleep 1000
WshShell.SendKeys "ifconfig" & chr(13)
WScript.Sleep 1000
WshShell.SendKeys "service isc-dhcp-server status"  & chr(13)
WScript.Sleep 1500
WshShell.SendKeys "service isc-dhcp-server restart"  & chr(13)
WScript.Sleep 1500
WshShell.SendKeys "quit" &  chr(13) & chr(13)
WScript.Sleep 2000
WshShell.SendKeys "exit"& chr(13)
 
 
WScript.Quit

si j'ouvre le fichier sans l'intermédiaire d'une page web, il s'exécute bien.

jordane45 Messages postés 38137 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 344
Modifié par jordane45 le 11/03/2014 à 20:51

On va plutot faire autrement...

Tu peux créer un fichier test.vbs dans lequel tu mets UNIQUEMENT :

Msgbox " Coucou "

que tu places dans :
c:\tmp\

Et tu modifies le chemin dans ton code :

oShell.Run "C:\tmp\test.vbs"

Avant de lancer ta page html.. vérifies déjà qu'en cliquant sur le fichier test.vbs tu as bien le message qui apparaisse......

ps: N'oublies pas de nous indiquer ta version de ton windows.

PS2: lorsque tu colles du code sur le forum penses à utiliser la coloration syntaxique ( icone à droite)
http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

.

ShirMi
11 mars 2014 à 20:56

d'accord je vais l'essayée..et pour la version IE est version 8 et Windows 7.

et Merci surtout pour la deuxième remarque.

jordane45 Messages postés 38137 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 344
11 mars 2014 à 21:01

j'ai édité ton message pour y mettre les balises de code
et j'ai supprimé l'IP que tu y marquais...

Réponse 7 / 11

jordane45 Messages postés 38137 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 344
11 mars 2014 à 22:07

Alors là... aucune idée...
Ca mériterait presque de poser cette question DANS la section VB du forum.

sinon tu peux essayer de le faire direct en javascript:
http://www.activexperts.com/activsocket/howto/telnet/html/

Réponse 8 / 11

ShirMi
11 mars 2014 à 22:25

d'accord et Merci infiniment pour l'aide.

Réponse 9 / 11

jordane45 Messages postés 38137 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 344
13 mars 2014 à 00:51

Hello,
as-tu trouvé la solution à ton problème ?

Sinon, as tu essayé de mettre ton code directement dans ta page html plutot que d'appeller un VBS externe ?

<html>
<head>
<script type="text/vbscript">
	Function exec_vbs()
	   
           Set WshShell = WScript.CreateObject("WScript.Shell")
           ServeurIP = "xxxx.xxxx.xxxx.xxxx"
           WshShell.Run "telnet.exe " & ServeurIP
           WScript.Sleep 1000
           WshShell.SendKeys "ata" & chr(13)
           WScript.Sleep 1000
           WshShell.SendKeys "root" & chr(13)
           WScript.Sleep 5000
           WshShell.SendKeys "sudo bash"  & chr(13)
           WScript.Sleep 500
           WshShell.SendKeys "root"  & chr(13)
           WScript.Sleep 500
           WshShell.SendKeys  chr(13)
           WScript.Sleep 1000
           WshShell.SendKeys "ifconfig" & chr(13)
           WScript.Sleep 1000
           WshShell.SendKeys "service isc-dhcp-server status"  & chr(13)
           WScript.Sleep 1500
           WshShell.SendKeys "service isc-dhcp-server restart"  & chr(13)
           WScript.Sleep 1500
           WshShell.SendKeys "quit" &  chr(13) & chr(13)
           WScript.Sleep 2000
           WshShell.SendKeys "exit"& chr(13)
  
           Msgbox "Script Terminé"
           
           WScript.Quit
	End Function
</script>
</head>
 
<body>
<a href="vbscript:exec_vbs()">Test</a>
<br><input type="button" value="Test" onclick="exec_vbs()">
</body>
</html>

Pense à modifier l'IP bien sur :
ServeurIP = "xxxx.xxxx.xxxx.xxxx"

Réponse 10 / 11

ShirMi
13 mars 2014 à 19:24

Bonsoir
oui le code d'Hier marche bien mais seulement avec Windows XP et non pas 7.
Mon probléme maintenant c'est que je veux savoir comment je peut avoir les résultats des commandes Linux que j'ai lancé

Réponse 11 / 11

jordane45 Messages postés 38137 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 344
Modifié par jordane45 le 14/03/2014 à 01:58

Bonjour,

oui le code d'Hier marche bien

Ta question initialie est donc résolue... merci donc de clore le sujet (en cliquant sur le lien qui se trouve sous le titre de ta question)

Mon probléme maintenant c'est que je veux savoir comment je peut avoir les résultats des commandes Linux que j'ai lancé

Il s'agit là d'une nouvelle question... il faut donc que tu ouvres une nouvelles discussion sur le forum.
Mais tu peux déjà chercher du côté de :
http://www.adamstauffer.com/saving-the-output-from-a-telnet-session.htm

telnet "ipadd" -f logfile

Avant de poser une question, merci de lire la charte du site.
Cordialement, Jordane

Répondre Posez votre question

Votre réponse

Discussions similaires

Erreur de compilation

Benjamin M - 7 mai 2015 à 10:18
Benjamin M - 7 mai 2015 à 10:38

5 réponses

Impossible de trouver le moteur de script "VBScript"

cs_hackoo - 6 sept. 2011 à 09:30
hackoo - 7 sept. 2011 à 19:28

6 réponses

Créer et compléter un fichier Excel en VBS

johann91 - 6 avril 2006 à 16:23
johann91 - 7 avril 2006 à 09:25

4 réponses

Python via HTML/PHP

ursulay - 19 avril 2014 à 14:25
ursulay - 21 avril 2014 à 15:19

5 réponses

[->Javascript] Griser ou éteindre un bouton

agentmorris - 26 oct. 2014 à 00:48
agentmorris - 27 oct. 2014 à 02:51

4 réponses

générer pdf a partir d'un formulaire php puis envois par mail

lokardz - 6 août 2013 à 04:56
Loud - 14 juil. 2015 à 11:49

8 réponses

Devenez membre en quelques clics

Connectez-vous simplement avec ceux qui partagent vos intérêts
Suivez vos discussions facilement et obtenez plus de réponses
Mettez en avant votre expertise et aidez les autres membres
Profitez de nombreuses fonctionnalités supplémentaires en vous inscrivant

S'inscrire