Script.vbs et tache planifié [Résolu]

mahelan 51 Messages postés mercredi 21 février 2007Date d'inscription 4 avril 2007 Dernière intervention - 21 févr. 2007 à 00:19 - Dernière réponse : Oxygene34 52 Messages postés mardi 27 janvier 2009Date d'inscription 4 avril 2009 Dernière intervention
- 11 mars 2009 à 12:15
Bonsoir à tous,


Je cherche une commande qui me permette de supprimer une tache planifié avec un script.vbs


exemple de tache

C:\WINDOWS\Tasks\AF875FE591A0D1E8.job


cette commande ne marche pas
Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.DeleteFolder("C:\WINDOWS\Tasks\AF875FE591A0D1E8.job")
avez vous une idée?
es possible?


Merci!
Afficher la suite 

Votre réponse

7 réponses

Meilleure réponse
cs_JMO 1854 Messages postés jeudi 23 mai 2002Date d'inscription 22 juin 2018 Dernière intervention - 21 févr. 2007 à 13:24
3
Merci
 Re,

Eh non....pas loin

For Each fichier in fichiers
       objTextStream.Write fichier.Path &vbCrLf
'    <strike>End If</strike>
Next
' fichier.Path pour le chemin complet du fichier
' fichier.Name pour le nom du fichier sans sa racine
' ' ou rem pour les commentaires
' vbCrLf pour saut de ligne

jean-marc

Merci cs_JMO 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 120 internautes ce mois-ci

Commenter la réponse de cs_JMO
cs_JMO 1854 Messages postés jeudi 23 mai 2002Date d'inscription 22 juin 2018 Dernière intervention - 21 févr. 2007 à 05:18
0
Merci
 Bonjour à tous

Bonjour 987301 mahelan ,

[ object].DeleteFolder ( [ folderspec] [, [ force]] )   => Supprime un dossier spécifié et son contenu.
[ object].DeleteFile ([ filespec][, [ force]] ) = > Supprime un fichier spécifié.

Donc:
   filespec = " C:\WINDOWS\Tasks\AF875FE591A0D1E8.job "
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   If (
fso.FileExists(
filespec
)
) Then fso.DeleteFile(filespec)
   Set fso = Nothing

Pour lister les tâches planifiées:

Set WshShell = WScript.CreateObject("WScript.Shell")
Path  = WshShell.ExpandEnvironmentStrings("%windir%\Tasks")


MsgBox VerifTasks(Path),vbInformation,"Liste Tâches planifiées"
Function VerifTasks(strPath)
Dim fso, Dossiers, fichier, fichiers, strListe
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossiers = fso.GetFolder(path)
Set fichiers = Dossiers.Files


For Each fichier in fichiers
    If fso.GetExtensionName(fichier) = "job" Then
       strListe = strListe &vbCrLf& fichier.Path
    End If
Next
VerifTasks = "répertoire" &vbTab& Path &vbCrLf&vbCrLf& strListe
Set fso = Nothing
Set Dossiers = Nothing
Set fichiers = Nothing
Set WshShell = Nothing
End Function

jean-marc
Commenter la réponse de cs_JMO
mahelan 51 Messages postés mercredi 21 février 2007Date d'inscription 4 avril 2007 Dernière intervention - 21 févr. 2007 à 10:54
0
Merci
Salut jean-marc,

Merci beaucoup,ça marche bien!

Tu me dit pour lister les taches ok,par comment je peut faire pour les lister et les envoyer vert un rapport.txt?

Merci d'avance
Commenter la réponse de mahelan
cs_JMO 1854 Messages postés jeudi 23 mai 2002Date d'inscription 22 juin 2018 Dernière intervention - 21 févr. 2007 à 12:37
0
Merci
 Re,

Simplement en créant un .txt

Option explicit
Const resultat = "C:\resultat.txt"
Dim WshShell, Path, Return
Set WshShell = WScript.CreateObject("WScript.Shell")
Path  = WshShell.ExpandEnvironmentStrings("%windir%\Tasks")


Call ListTasks(Path)
Return = WshShell.Run(resultat)'
Set WshShell = Nothing
'--------------------------------------------------
Function ListTasks(strPath)
Dim fso, Dossiers, fichier, fichiers, objTextStream
Set fso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = fso.OpenTextFile(resultat, 2, True)


Set Dossiers = fso.GetFolder(strPath)
Set fichiers = Dossiers.Files


For Each fichier in fichiers
    If fso.GetExtensionName(fichier) = "job" Then
       objTextStream.Write fichier.Path &vbCrLf
    End If
Next
objTextStream.Close


Set objTextStream = Nothing
Set fso = Nothing
Set Dossiers = Nothing
Set fichiers = Nothing
End Function
 

jean-marc
Commenter la réponse de cs_JMO
mahelan 51 Messages postés mercredi 21 février 2007Date d'inscription 4 avril 2007 Dernière intervention - 21 févr. 2007 à 13:05
0
Merci
Re,

Tes un génie!

ça marche parfaitement,merci!

si je veut lister les dossiers et fichiers de System32 ça donne:

Option explicit
Const resultat = "C:\resultat.txt"
Dim WshShell, Path, Return
Set WshShell = WScript.CreateObject("WScript.Shell")
Path  = WshShell.ExpandEnvironmentStrings("%windir%\System32") Call ListTasks(Path)
Return = WshShell.Run(resultat)'
Set WshShell = Nothing
'--------------------------------------------------
Function ListTasks(strPath)
Dim fso, Dossiers, fichier, fichiers, objTextStream
Set fso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = fso.OpenTextFile(resultat, 2, True)

Set Dossiers = fso.GetFolder(strPath)
Set fichiers = Dossiers.Files

For Each fichier in fichiers
       objTextStream.Write fichier.Path &vbCrLf
    End If
Next
objTextStream.Close

Set objTextStream = Nothing
Set fso = Nothing
Set Dossiers = Nothing
Set fichiers = Nothing
End Function

non
Commenter la réponse de mahelan
mahelan 51 Messages postés mercredi 21 février 2007Date d'inscription 4 avril 2007 Dernière intervention - 21 févr. 2007 à 14:26
0
Merci
Re

Merci beaucoup!

Je t'ai envoyé un MP.
Commenter la réponse de mahelan
Oxygene34 52 Messages postés mardi 27 janvier 2009Date d'inscription 4 avril 2009 Dernière intervention - 11 mars 2009 à 12:15
0
Merci
bonjour a tous...


 


je crois que je suis au bon endroit pour poser ma question:


j'aimerais avoir un code qui me peremet que mon .vbs s'execute par exemple a 16h


je sais qu'on peut passer par le panneua de config mais je voudrais un code


 


merci
Commenter la réponse de Oxygene34

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.