demande d'aide pour correction d'un script

Version imprimable

Bonjour à tous,
j'avais éditer le script ci-dessous afin de supprimer le fichier outlook.NK2. ce fichier est le cache des contacts Outlook. mais je me suis rendu compte que le nom du fichier varie d'un systéme à un autre. c'est soit outlook.NK2 ou login_utilisateur.NK2.
je voudrais donc modifier le script de sorte qu'il s'execute s'il trouve un fichier d'extention .NK2 qui a le mem mon avec le profile de l'utilisateur ou qui se nomme outlook.NK2.

je vous prie de m'apporter votre aide. merci.

NB: je fais mes premiers pas en VBS.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim fso, ws, AppData, Chemin, MyFile Set ws = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") AppData = ws.ExpandEnvironmentStrings("%AppData%") Chemin = AppData & "\Microsoft\Outlook\*.NK2" If (fso.FileExists(Chemin)) Then Set MyFile = fso.GetFile(Chemin) If (MyFile.datecreated < "#20/07/2010#") Then Msgbox " Le fichier " & MyFile.name & " va être supprimer !",64,"Fichier à Supprimer" MyFile.Delete else Msgbox "Rien à supprimer" End If Else Msgbox "n'existe pas" WScript.Quit End If
merci pour ton aide.

03/09/2010, 13h52
mcm2010

Suppression d'un fichier dans une GPO

J'ai également le même problème et je voudrais savoir si une autre methode de suppression de fichier via GPO est possible?
03/09/2010, 13h54
mcm2010

Suppression d'un fichier via une GPO

J'ai également le même problème et je voudrais savoir si une autre methode de suppression de fichier via GPO est possible?

Bonjour,

Je pesne que tu devrais faire quelque chose du genre pas tester mais en gros c'est ce que j'ai compris.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Function Supprimer_NK2()
 Dim  objDossier, objFichier
 Dim Repertoire
 
  AppData = ws.ExpandEnvironmentStrings("%AppData%")
  Repertoire =  AppData & "\Microsoft\Outlook\" 
 
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objDossier = objFSO.GetFolder(Repertoire)
 
  If (objDossier.Files.Count > 0) Then
     For Each objFichier In objDossier.Files
        If (InStr(objFichier.Name, ".NK2")) Then
            Msgbox " Le fichier " & objFichier.Name & " va être supprimer !",64,"Fichier à Supprimer"
                objFichier.Delete
        End If
     Next
   End If
 
End Function

Si tu veux que certaine personne tu modifie

Code:

1
2
3
4
5
6
 
If (InStr(objFichier.Name, ".NK2")) Then
 
en 
 
If (InStr( objFichier.Name, ".NK2") And InStr( objFichier.Name, Nom_DE_LA_PERSONNE)) Then

bonne journée

Ps: J'avais pas vu la date peut être plus intérréssant ...