Executer un script a partir d'un autre
Bonjour j'aimerais faire la même chose que dans cette discussion mais en exécutant le script sur un poste réseaux a distance.
chez moi j'exécute le remote que voici :
Code:
1
2
3
| Set obj = CreateObject("Shell.Application")
obj.ShellExecute "\\totoUserReseau\temp\alarmes.vbs"
Set obj = Nothing |
temp est un répertoire partagé de l'ordinateur "totoUserReseau" surlequel j'ai tout les droits et dans lequel j'ai le script alarme.vbs qui joue un fichier wav. (je le place a tout hasard);
Code:
1
2
3
4
| dim strWavFile
chemson = "C:\temp\sondeclocher.wav"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "Sndrec32 /play /close """ & chemson & """", SW_HIDE |
Quand je l'exécute il me dit qu'il est impossible d'ouvrir "c:\temp\alarmes.vbs" je ne comprend pas car quand j'exécute "alarme.vbs" en local sur "totoUserReseau" tout ce passe correctement.
Executer un script a partir d'un autre
Bonjour je souhaite faire la même chose mais en exécutant le scritp sur une machine distante.
j'ai un script qui se nome alarme.vbs (situé sur la machine totoUserReseau) qui exécute un fichier wav :
Code:
1
2
3
4
| dim strWavFile
chemson = "C:\temp\sondeclocher.wav"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "Sndrec32 /play /close """ & chemson & """", SW_HIDE |
Je souhaite pouvoir exécuter ce script d'une machine distante.
je place alarme.vbs sur "c:\temp\alarme.vbs" qui est un dossier partagé de la machine s'appelant "totoUserReseau" et de mon poste j'exécute ceci :
Code:
1
2
3
| Set obj = CreateObject("Shell.Application")
obj.ShellExecute "\\totoUserReseau\temp\alarme.vbs"
Set obj = Nothing |
Quand j'exécute ce script (remote.vbs) il m'affiche ce message d'erreur :
Citation:
impossible d'ouvrir : "C:\temp\alarmes.vbs"
, ce qui est normal puisque qu'il n'est pas sur mon poste mais sur totoUserReseau.
PS j'ai tout les droit sur le dossier partagé et alarme.vbs s'exécute normalement en local sur totoUserReseau
j'ai aussi trouvé un autre moyen :
Code:
1
2
3
4
| Dim Controller, RemoteScript
Set Controller = WScript.CreateObject("WSHController")
Set RemoteScript = Controller.CreateScript(\\totoUserReseau\temp\alarmes.vbs)
RemoteScript.execute |
Savez vous ce qui se passe? comment faire?
Les 2 messages ci-dessus ont été déplacé d'une discussion résolue (voir lien dans le premier).
AlainTech
