Discussion :

[proteine1024]

Bonjour,

Je suis en train de faire un script pour recopier les dossiers des users de C:\Documents and Settings dans C:\Users. Mais uniquement les dossier des comptes qui ont été utilisés depuis 3 mois (pour ca je peux me baser sur la date de modification du ficheir NTUSER.DAT présent dans tous les users directory.

Je bloque sur la mise en place de la boucle et la vérification de la date de NTUSER.DAT.

Est ce qu'il y aurait quelqu'un parmis vous qui pourrait m'aider a mettre en oeuvre ce script svp ?

Merci par avance pour votre aide.

Pour la version du fichier je pensais me baser la dessus mais pour faire le check "moins de 3 mois" .... ? j'ai du mal.

Code :

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

1
2
3
4
5
6
7
8
9
10
Function ShowFileAccessInfo(filespec)
   Dim fso, f, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(filespec)
   s = UCase(filespec) & "<BR>"
   s = s & "Created: " & f.DateCreated & "<BR>"
   s = s & "Last Accessed: " & f.DateLastAccessed & "<BR>"
   s = s & "Last Modified: " & f.DateLastModified
   ShowFileAccessInfo = s
End Function

J'arrive à lister les users locaux de cette facon:

Code :

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

1
2
3
4
5
6
7
8
9
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
 
Set colAccounts = GetObject("WinNT://" & strComputer & "")
colAccounts.Filter = Array("user")
 
For Each objUser In colAccounts
    'Wscript.Echo objUser.Name 
Strprofpath = ("C:\Documents and Settings\" & objUser.Name &"")

[Fredledingue]

Code :

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

If DateDiff("m", MyDate1, MyDate2) >=3 Then '...

Si la seconde date est plus ancienne, le résultat (DateDiff) sera négatif.
La seconde date doit donc etre celle du fichier le plus recent.