exécution d'un vbs à partir d'une page asp

Question

Bonjour,
cela fait trois jours que je tente de lancer un .vbs à partir d'une page en asp vbscript tournant sur IIS.
Après avoir galéré pas mal sur des problèmes de droits, j'arrive maintenant à ce que le script se lance... enfin presque !
C'est à dire que je le vois dans le gestionnaire de tâche "wscript.exe" et puis c'est tout. L'action que je lui demande ne se fait pas (une écriture dans un fichier qui se fait très bien quand je double clique dessus) et l'entrée dans le gestionnaire des tâches reste, autrement dit mon script ne se ferme jamais.
Si quelqu'un peut m'aider à trouver mon erreur..
Merci.
Bonne journée,
Xavier.

cs_ghuysmans99 · Answer

L'utilisateur IUSR_nomdetamachine a-t-il les droits sur le fichier que tu veux écrire ?
---
VB.NET is good ... VB6 is better

pxav22 · Answer

merci pour votre réponse.
je viens de vérifier, le IUSR et le IWAM ont les droits sur le répertoire C: sur lequel je test mon écriture.
J'avais essayé aussi de faire un msgbox "coucou" mais ça n'avait pas mieux marché.
Pour info dans le gestionnaire des taches, wscript.exe est lancé sour IWAM_nommachine.
Je n'arrive pas à comprendre ce qui bloque.

je vous donne le code asp qui lance le script, dès fois que !

dim oShell
Set oShell = CreateObject("WScript.Shell")
oShell.run "C:\Inetpub\wwwroot\asppack\groupware\chgmdp.vbs",0

cs_ghuysmans99 · Answer

Essaie ceci, cela pourrait peut-être fonctionner :Dim oShell : Set oShell = CreateObject("WScript.Shell")
oShell.run "C:\Inetpub\wwwroot\asppack\groupware\chgmdp.vbs",0,True---
VB.NET is good ... VB6 is better

cs_ghuysmans99 · Answer

Faire un MsgBox ne sert absolument à rien, IUSR n'étant pas loggé interactivement sur le serveur.
---
VB.NET is good ... VB6 is better

pxav22 · Answer

Oui, c'est ceu j'ai lu plus tard. C'est pourquoi je me suis rabattu sur une écriture fichier.
Je teste votre code tout de suite et vous tiens informé.
Merci.

pxav22 · Answer

Je viens de tester, j'ai une erreur de délai d'exécution dépassé.
Je suppose que le "true" est pour faire attendre la fin du script. Mais il ne se termine toujours pas.
Je mets le code du script, dès fois que !
Merci encore.

lancerActions()

Public Function lancerActions()

   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("C:\Inetpub\wwwroot\asppack\groupware\essai.txt", 2,true)
   f.write("Salut")

End Function

cs_ghuysmans99 · Answer

Tu n'as que ça dans ton VBS ? Pense aussi à détruire tes objets en sortant de la fonction (mais ça ne résoudrera pas ton problème).
---
VB.NET is good ... VB6 is better

pxav22 · Answer

bah oui, pour tester, je n'ai mis que ça.
J'ai plus lourd à mettre après mais déjà si ça ça marche pas !!!
Quand vous dites détruire, c'est = Nothing ?
Je le fais tout de suite. Effectivement ça ne résoudra pas le pb mais ça sera plus propre ;-)
Merci.
Sinon, y'aurait-il un moyen de lancer autre chose qu'un vbs depuis asp ? un batch par exemple ? ça me permettrait de m'en sortir quand même.
Merci de votre aide.
Xavier.

cs_ghuysmans99 · Answer

Oui. Il te suffit de remplacer la 2ème ligne par ceci :oShell.run "C:\Inetpub\wwwroot\asppack\groupware	onbatch.bat",0,True---
VB.NET is good ... VB6 is better

Exécution d'un vbs à partir d'une page asp

9 réponses

Votre réponse

Discussions similaires