Exécution tache différée
cirilovb
Messages postés
6
Date d'inscription
dimanche 24 avril 2005
Statut
Membre
Dernière intervention
13 mai 2005
-
11 mai 2005 à 22:58
cirilovb Messages postés 6 Date d'inscription dimanche 24 avril 2005 Statut Membre Dernière intervention 13 mai 2005 - 13 mai 2005 à 12:20
cirilovb Messages postés 6 Date d'inscription dimanche 24 avril 2005 Statut Membre Dernière intervention 13 mai 2005 - 13 mai 2005 à 12:20
A voir également:
- Exécution tache différée
- Erreur d'exécution 424 ✓ - Forum Visual Basic
- Erreur 424 "Objet requis" ✓ - Forum Visual Basic 6
- Message d'erreur 424: objet requis ✓ - Forum VBA Office (Excel, Word ...)
- Erreur d'execution 9 ✓ - Forum Visual Basic 6
- Macro envoi de mail : "Erreur 424 : Objet requis" - Forum VBA Office (Excel, Word ...)
9 réponses
BaFM
Messages postés
64
Date d'inscription
mercredi 24 juillet 2002
Statut
Membre
Dernière intervention
26 novembre 2009
11 mai 2005 à 23:13
11 mai 2005 à 23:13
Il te faut ces lignes pour pouvoir exécuter une commande :
Dim WshShell 'Variable recevant l'objet WScript.Shell
Set WshShell = CreateObject("WScript.Shell") 'Création de l'objet
WshShell.Exec("SCHTASKS /CREATE /TN vnc /TR C:\vncviewer.exe /sc once /st " & today & " /s PC32") 'Exécution de la commande.
Et voilà, ca exécute ta commande comme il faut :)
MyGoddess
Dim WshShell 'Variable recevant l'objet WScript.Shell
Set WshShell = CreateObject("WScript.Shell") 'Création de l'objet
WshShell.Exec("SCHTASKS /CREATE /TN vnc /TR C:\vncviewer.exe /sc once /st " & today & " /s PC32") 'Exécution de la commande.
Et voilà, ca exécute ta commande comme il faut :)
MyGoddess
cirilovb
Messages postés
6
Date d'inscription
dimanche 24 avril 2005
Statut
Membre
Dernière intervention
13 mai 2005
11 mai 2005 à 23:19
11 mai 2005 à 23:19
'Variable recevant l'objet WScript.Shell
cette variable c'est quoi ?? c'est le numéro de PC???
cette variable c'est quoi ?? c'est le numéro de PC???
cirilovb
Messages postés
6
Date d'inscription
dimanche 24 avril 2005
Statut
Membre
Dernière intervention
13 mai 2005
11 mai 2005 à 23:21
11 mai 2005 à 23:21
a non C des explication en vert,
lol
je débute vraiment, jvais tenter de m'en sortir avec ça même si jcomprends pas encore tout ;-)
lol
je débute vraiment, jvais tenter de m'en sortir avec ça même si jcomprends pas encore tout ;-)
BaFM
Messages postés
64
Date d'inscription
mercredi 24 juillet 2002
Statut
Membre
Dernière intervention
26 novembre 2009
11 mai 2005 à 23:22
11 mai 2005 à 23:22
Non, c'est juste pour stocker l'objet système qui te permet d'exécuter des commandes.
Regarde la doc sur http://download.microsoft.com/, cherche windows script host documentation v5.6
Ce sera en anglais mais c'est très complet ;)
Regarde la doc sur http://download.microsoft.com/, cherche windows script host documentation v5.6
Ce sera en anglais mais c'est très complet ;)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cirilovb
Messages postés
6
Date d'inscription
dimanche 24 avril 2005
Statut
Membre
Dernière intervention
13 mai 2005
11 mai 2005 à 23:29
11 mai 2005 à 23:29
ok,
j'ai modif mon script; yavait une erreur je crois juste dans l'heure d'exec de la tache, c'était answer au lieu de today ;-)
voila mon VBS, mais j'ai une erreur
Dim today
Dim answer
today =Now
answer = today.AddSeconds(10)
Dim reponse
reponse = InputBox("Entrez le numero de PC sur lequel vous voulez prendre la main")
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Exec("SCHTASKS /CREATE /TN vnc /TR C:\vncviewer.exe /sc once /st " & answer & " /s PC32")
ou est elle??? on peut pas utiliser NOW si??? après maintenant il est déja trop tard non ??? lol
j'ai modif mon script; yavait une erreur je crois juste dans l'heure d'exec de la tache, c'était answer au lieu de today ;-)
voila mon VBS, mais j'ai une erreur
Dim today
Dim answer
today =Now
answer = today.AddSeconds(10)
Dim reponse
reponse = InputBox("Entrez le numero de PC sur lequel vous voulez prendre la main")
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Exec("SCHTASKS /CREATE /TN vnc /TR C:\vncviewer.exe /sc once /st " & answer & " /s PC32")
ou est elle??? on peut pas utiliser NOW si??? après maintenant il est déja trop tard non ??? lol
BaFM
Messages postés
64
Date d'inscription
mercredi 24 juillet 2002
Statut
Membre
Dernière intervention
26 novembre 2009
11 mai 2005 à 23:41
11 mai 2005 à 23:41
Dim answer
answer = DateAdd("s", 10, Now)
Voilà comment tu peut calculer le nouveau temps. Aide toi du fichier d'aide don je t'es donnée le chemin pour y aller :)
answer = DateAdd("s", 10, Now)
Voilà comment tu peut calculer le nouveau temps. Aide toi du fichier d'aide don je t'es donnée le chemin pour y aller :)
cirilovb
Messages postés
6
Date d'inscription
dimanche 24 avril 2005
Statut
Membre
Dernière intervention
13 mai 2005
11 mai 2005 à 23:51
11 mai 2005 à 23:51
eee, ba, regarde "mon" script
Dim reponse
reponse = InputBox("Entrez le numero de PC sur lequel vous voulez prendre la main")
Dim today
today = Now
Dim answer
answer = DateAdd("s", 10, Now)
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Exec("SCHTASKS /CREATE /TN vnc /TR C:\vncviewer.exe /sc once /st " & answer & " /s & reponse")
ça lance po vncviewer, essaie avec une exe chez toi pour voir, C un
script générique, change juste l exe ;-) et fais moi signe si tu arrive
a qqchose
Merci
Dim reponse
reponse = InputBox("Entrez le numero de PC sur lequel vous voulez prendre la main")
Dim today
today = Now
Dim answer
answer = DateAdd("s", 10, Now)
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Exec("SCHTASKS /CREATE /TN vnc /TR C:\vncviewer.exe /sc once /st " & answer & " /s & reponse")
ça lance po vncviewer, essaie avec une exe chez toi pour voir, C un
script générique, change juste l exe ;-) et fais moi signe si tu arrive
a qqchose
Merci
BaFM
Messages postés
64
Date d'inscription
mercredi 24 juillet 2002
Statut
Membre
Dernière intervention
26 novembre 2009
12 mai 2005 à 00:00
12 mai 2005 à 00:00
J'ai fait ca :
Dim WshShell 'Variable recevant l'objet WScript.Shell
Set WshShell = CreateObject("WScript.Shell") 'Création de l'objet
WshShell.Exec("notepad prout.txt") 'Exécution de la commande
et ca fonctionne tout seul... Peut être qu'il ne trouve pas le fichier SCHTASKS...
Dim WshShell 'Variable recevant l'objet WScript.Shell
Set WshShell = CreateObject("WScript.Shell") 'Création de l'objet
WshShell.Exec("notepad prout.txt") 'Exécution de la commande
et ca fonctionne tout seul... Peut être qu'il ne trouve pas le fichier SCHTASKS...
cirilovb
Messages postés
6
Date d'inscription
dimanche 24 avril 2005
Statut
Membre
Dernière intervention
13 mai 2005
13 mai 2005 à 12:20
13 mai 2005 à 12:20
Bon, j'ai trouvé mais je fait tout autrement.
Pour ceux que ça intéresse, j'utilise la commande Psexec du kit Pstools.
Avec l'option -i ça exécute le fichier voulu sur le PC distant comme si on cliquait dessus, c'est vraiment terrible.
Dans mon .bat, je voudrais lancer vncviewer sur mon poste puis
lancer la commande Psexec pour lancer winvnc.exe sur le poste distant.
Mais le fait que vncviewer se lance sur mon poste bloque la commande
Psexec qui suite dans mon batch. Je suis contraint de fermer la fenêtre
de vncviewer pour que le batch execute la suite du bacth
Comment, passer (dans un batch)à la deuxième commande directement une fois que le première est lancer?
Merci.
Pour ceux que ça intéresse, j'utilise la commande Psexec du kit Pstools.
Avec l'option -i ça exécute le fichier voulu sur le PC distant comme si on cliquait dessus, c'est vraiment terrible.
Dans mon .bat, je voudrais lancer vncviewer sur mon poste puis
lancer la commande Psexec pour lancer winvnc.exe sur le poste distant.
Mais le fait que vncviewer se lance sur mon poste bloque la commande
Psexec qui suite dans mon batch. Je suis contraint de fermer la fenêtre
de vncviewer pour que le batch execute la suite du bacth
Comment, passer (dans un batch)à la deuxième commande directement une fois que le première est lancer?
Merci.