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

Signaler
Messages postés
51
Date d'inscription
mercredi 21 février 2007
Statut
Membre
Dernière intervention
4 avril 2007
-
Messages postés
52
Date d'inscription
mardi 27 janvier 2009
Statut
Membre
Dernière intervention
4 avril 2009
-
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!

7 réponses

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
25
 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
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
25
 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
Messages postés
51
Date d'inscription
mercredi 21 février 2007
Statut
Membre
Dernière intervention
4 avril 2007

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
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
25
 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
Messages postés
51
Date d'inscription
mercredi 21 février 2007
Statut
Membre
Dernière intervention
4 avril 2007

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
Messages postés
51
Date d'inscription
mercredi 21 février 2007
Statut
Membre
Dernière intervention
4 avril 2007

Re

Merci beaucoup!

Je t'ai envoyé un MP.
Messages postés
52
Date d'inscription
mardi 27 janvier 2009
Statut
Membre
Dernière intervention
4 avril 2009

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