Votre question

VBScript : Lancement automatique

Tags :
  • Script
  • Programmation
Dernière réponse : dans Programmation
26 Mai 2004 14:33:04

Bonjour à tous, j'ai créé un petit script VBscript qui doit être exécuté toutes les semaines. Pour cela je l'ai placé dans une tâche planifiée Windows. Le script se lance bien mais une fenêtre windows avec un rond rouge contenant une croix blanche apparait.

Mon code est le suivant :

Set oWSH= CreateObject("WScript.Shell")
oWSH.Run "http://mrbean/Weblocal/pages/gestion_current.php", 1, True
set oWSH = nothing

Le script lance donc une page PHP. La page se lance en partie mais pas complètement. Le traitement réalisé par cette page sur une base de données est assez long et ne peut donc avoir lieu.
Je tiens à préciser que lorsque je lance cette page manuellement (en cliquant sur un lien) il n'y a aucun problème...


La fenêtre d'erreur contient les information suivantes :

Windows Script Host

Script : C:\Program Files\EasyPHP1-7\www\Weblocal\pages\Gestion_auto.vbs
Ligne : 2
Caract. : 1
Erreur : Impossible d'attendre pour le traitement.
Code : 80020009
Source : WSHShell.Run

Si quelqu'un pouvait m'aider...là je ne vois pas ce qui cloche...
Merci d'avance pour votre aide :) 

Autres pages sur : vbscript lancement automatique

12 Juillet 2004 17:47:15

pour donner un temps d'attente pour le chargement de la page, tu pourrais utiliser l'objet internet.application. Voici un exemple :

Set objIE = Wscript.CreateObject("InternetExplorer.Application")
objIE.navigate "http://monserver/monsite"
' permet de voire IE
objIE.VISIBLE = 1
' boucle tant que IE is busy
Do While (objIe.Busy)
WScript.Sleep 10
Loop
' envois d'une séquence alt espace n pour maximiser la fenêtre
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.appActivate "Internet Explorer"

WshShell.SendKeys "%"
WshShell.SendKeys " "
WshShell.SendKeys "n"
' Etc..
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS