taille fichiers d'une collection objWMIservice
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:
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
