Discussion :

[tarah01]

Bonjour,
N'ayant pas trouvé le moyen d'empêcher l'enregistrement de documents sur le bureau des pc en libre-service informatique sous windows 2000 pro dans un domaine (ce qui était possible avec win98), j'ai donc crée un script qui supprime les dossiers/fichiers qui fonctionne correctement.
Ma question est: est-ce qu'il vaut mieux lancer ce script à l'ouverture d'une session ou à la fermeture de celle-ci.
Si le script est lancé à l'ouverture, y a t-il un risque que les icônes (Poste de travail, IE et Firefox) soient supprimées également.

Merci pour vos conseils

[ced600]

Bonjour,
N'ayant pas trouvé le moyen d'empêcher l'enregistrement de documents sur le bureau des pc en libre-service informatique sous windows 2000 pro dans un domaine (ce qui était possible avec win98), j'ai donc crée un script qui supprime les dossiers/fichiers qui fonctionne correctement.
Ma question est: est-ce qu'il vaut mieux lancer ce script à l'ouverture d'une session ou à la fermeture de celle-ci.
Si le script est lancé à l'ouverture, y a t-il un risque que les icônes (Poste de travail, IE et Firefox) soient supprimées également.

Merci pour vos conseils

Tout dépend de ton code.

[tarah01]

que ce soit à l'ouverture ou fermeture de session,j'arrive à supprimer les dossiers du bureau, mais je n'arrive pas à supprimer les fichiers stockés sur le bureau.
Pourtant quand j'applique ma procedure sur un autre dossier contenant des fichiers, les fichiers sont supprimés.
Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
On Error Resume Next
Dim Fichier
Dim  ObjShell, objFolder,objFSO,colSubfolders
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim Login
Dim WshNetwork
Set WshNetwork=CreateObject("Wscript.Network")
Login = WshNetwork.username
 
 
'wscript.echo Login
'***********************************************************
' Procedure qui supprime les sous repertoires du dossier
'****************************************************************
sub deleteSubFolders(chemin,dossier)
    Set objFolder = objFSO.GetFolder(chemin)
  if objFSO.folderExists(chemin) then
     Set colSubfolders = objFolder.Subfolders
       If colSubfolders.count>0 Then
          Wscript.Echo colSubfolders.count  &"sous dossier"
          for Each objSubfolder in colSubfolders
             objSubfolder.Delete
           Next
           Wscript.Echo colSubfolders.count &" sous repertoire dans " &dossier
      else
          Wscript.Echo "pas de sous respertoires dans " &dossier
     end if
 else
     wcript.echo "le dossier "&dossier &"n'existe pas"
 end if
end sub
'************************************************************************
' Procedure qui supprime les fichiers d'un dossier
'*************************************************************************
sub DeleteFiles(chemin,dossier,NbJours)
   Set objFolder = objFSO.GetFolder(chemin)
   Set CollFichiers=objFolder.Files
  If CollFichiers.count>0 then
     Wscript.Echo "il y a " &CollFichiers.count &" Fichiers dans " &dossier
    For each Fichier in CollFichiers
       If DateDiff("D", Fichier.DateLastModified, now) > NbJours Then
	    Fichier.Delete
       End If
    Next
 Wscript.Echo "il reste "& CollFichiers.count &" Fichiers dans " &dossier
 else
  Wscript.Echo "il n'existe pas de fichiers dans" &dossier
  end if
end sub
'**********************************************************************************************
' Suppression des sous dossiers temp et fichier du dossier temp du local Setting
'*********************************************************************************************
'Suppression des sous dossiers temporaires de Temp
chemin1="C:\Documents and Settings\"&Login&"\Local Settings\Temp\"
dossier1="Temp de Local Settings"
deleteSubFolders chemin1,dossier1
 
'suppression des fichiers temporaires
 DeleteFiles chemin1,dossier1,7
'**********************************************************************************************
' Nettoyage du bureau
'*********************************************************************************************
 ' Suppression des dossiers du bureau
 
chemin4="C:\Documents and Settings\"&Login&"\Bureau\"
dossier4="Bureau"
deleteSubFolders chemin4,dossier4
DeleteFiles chemin4,dossier4,0

Est-ce que qq chose ne colle pas dans mon code?
Merci de m'avoir répondu

[RadPAT]

Salut,

une petite reflexion en passant : je vois que tu supprimes les fichiers et dossiers à partir du nom de la personne qui est connectée au login.
Tu as peut etre des fichiers ou dossiers à supprimer qui ne se suppriment pas parcequ'ils sont dans all_users ou default_users ?

A++

[tarah01]

bien du profil de l'utilisateur ouvrant une session.
Lorsque je fait des tests sur ma machine (winXp) en mettant dossier toto avec plein de fichiers et de sous repertoires dedans que je mets le chemin :
chemin4="C:\Documents and Settings\"&Login&".SORBONNE\Bureau\toto\"
dossier4="toto"
deleteSubFolders chemin4,dossier4
DeleteFiles chemin4,dossier4,0
les fichiers contenu dans toto sont supprimés ainsi que tous les sous repertoires
(Je ne veux appliquer mon script directement du bureau car je ne veux pas effacer mes fichiers)
Lorsque je fais le test sur une autre machine (win2k pro) avec le login utilisé au libre-service après avoir créer des fichiers de tous type sur le bureau et des dossiers et sous dossiers.
Les dossiers et sous dossiers sont supprimes mais les fichiers du bureau ne le sont pas.
Avez-vous une idée?

[ced600]

Il semblerait que la fonction de suppression des fichier fonctionne différement selon le login.
La principale différence que je vois sur le code est ce test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If DateDiff("D", Fichier.DateLastModified, now) > NbJours

A l'aide de wscript.echo affiche les différentes valeurs pour le test et regarde ce qu'il se passe et si le test passe.