Copier dossier si fichier modifié depuis moins de 3 mois
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:
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:
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 &"") |