Bonjour,
Avec l'aide de diverses ressources internet dont ce site, j'ai réalisé un petit script permettant de lister les fichiers pst présents sur les ordinateurs de mon réseau.
J'utilise une "requête" sur objWMIservice pour obtenir la liste des fichiers sur chaque ordinateur.
Mon problème : je souhaite obtenir aussi la taille de chaque fichier et si possible également sa date de modification
Les propriétés .size ou .DateLastModified ne sont pas valides dans ce cas.
Est ce possible avec la méthode employée (voir extrait du code ci-dessous) ?
Sinon une autre méthode est elle envisageable ?
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 For Each Ordinateur In OrdinateursTestes on error resume next Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & ordinateur & "\root\cimv2") if err.number <> 0 then message = "Ordinateur non joignable" call EcritLog on error goto 0 else Set colFiles = objWMIService.ExecQuery _ ("Select * from CIM_DataFile where Extension = 'pst'") For Each objFile in colFiles message = objfile.name call EcritLog Next end if Next
D'avance merci
Partager