taille fichiers d'une collection objWMIservice

**Phileo** · 09/02/2011, 15h08

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