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

Messages postés
51
Date d'inscription
mercredi 21 février 2007
Statut
Membre
Dernière intervention
4 avril 2007
- - Dernière réponse : Oxygene34
Messages postés
52
Date d'inscription
mardi 27 janvier 2009
Statut
Membre
Dernière intervention
4 avril 2009
- 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
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
23
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 154 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_JMO
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
23
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
Messages postés
51
Date d'inscription
mercredi 21 février 2007
Statut
Membre
Dernière intervention
4 avril 2007
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
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
23
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
Messages postés
51
Date d'inscription
mercredi 21 février 2007
Statut
Membre
Dernière intervention
4 avril 2007
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
Messages postés
51
Date d'inscription
mercredi 21 février 2007
Statut
Membre
Dernière intervention
4 avril 2007
0
Merci
Re

Merci beaucoup!

Je t'ai envoyé un MP.
Commenter la réponse de mahelan
Messages postés
52
Date d'inscription
mardi 27 janvier 2009
Statut
Membre
Dernière intervention
4 avril 2009
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