mahelan
Messages postés51Date d'inscriptionmercredi 21 février 2007StatutMembreDernière intervention 4 avril 2007
-
21 févr. 2007 à 00:19
Oxygene34
Messages postés52Date d'inscriptionmardi 27 janvier 2009StatutMembreDerniè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?
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 21 févr. 2007 à 13:24
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
[ 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