run sur serveur

run sur serveur - ASP - Programmation

Marsh Posté le 04-10-2004 à 10:17:58    

salut,
actuellement je lance un vbs a partir de ma page asp situé sur un serveur a partir d'un poste client.
ce vbs s'execute sur le poste client. Je voudrais qu'il s'execute sur le serveur car le vbs est sur le serveur et bon un quadri process qui reste allumé tout le temps c mieux qu'une petite station de travail.
Merci
 
 
<% titre="Choix des serveurs" %>
<SCRIPT language="VBScript">
<!--
'-------------------------------------------------------------------------------
'cette fonction permet de lancer le script de récupération des données partagées
Function launch(serveur)
dim parametres
parametres = ""
 
'si l'on rajoute un élément à liste_server alors il faut aussi incrémenter la boucle for
'pas trouvé comment faire mieux
for k=0 to 5
if serveur.server.item(k).checked then
'document.write serveur.server.item(k).value & "<br>"
parametres = parametres & serveur.server.item(k).value & " "
end if
next
Dim oWSH
Set oWSH = Server.CreateObject("WScript.Shell" )
chemin = "\\SQL2003\dfichier$\search_and_find\system\droit_fichier_partage5.vbs "
'le chemin du script ne doit pas comporter d'espace sinon bug.
oWSH.Run chemin & parametres, 0,false
Set oWSH = nothing
End Function
-->
</SCRIPT>
 
<!-- #include virtual="/pages/_top.asp"-->
 
voici le début de ma page. Pour pouvoir lancer le script par la méthode run j'ai pas réussi autrement qu'en mettant les balise <script></script> sinon j'aurais simplement fait un Server.CreateObject("WSCript.Shell" )

Reply

Marsh Posté le 04-10-2004 à 10:17:58   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed