COMMENT OBTENIR L'INFORMATION SOMMAIRE D'UN FICHIER AVEC WINDOWS SCRIPTING HOST

CLEAR 
lcComputer = "."
loWMIService = Getobject("winmgmts:" ;
	+ "{impersonationLevel=impersonate}!\\" + lcComputer + "\root\cimv2")
colFiles = loWMIService.ExecQuery ;
	("Select * from CIM_Datafile Where name = 'c:\\blat.dll'")  && Important "\\"
For Each loFile In colFiles
	?"Masque d'acces: " + Transform(loFile.AccessMask)
	?"Archive: " + Transform(loFile.Archive)
	?"Compresse: " + Transform(loFile.Compressed)
	?"Méthode de compression : " + Transform(loFile.CompressionMethod)
	?"Date de Creation: " + Transform(loFile.CreationDate)
	?"Nom de l'ordinateur: " + Transform(loFile.CSName)
	?"Disque dur: " + Transform(loFile.Drive)
	?"Nom du fichier en 8.3: " + Transform(loFile.EightDotThreeFileName)
	?"Encrypte: " + Transform(loFile.Encrypted)
	?"Methode d'encryption: " + Transform(loFile.EncryptionMethod)
	?"Extension: " + Transform(loFile.Extension)
	?"Nom du fichier: " + Transform(loFile.FileName)
	?"Taille du fichier: " + Transform(loFile.FileSize)+' KB'
	?"Type de fichier: " + Transform(loFile.FileType)
	?"Nom du systeme de fichier: " + Transform(loFile.FSName)
	?"Cache: " + Transform(loFile.Hidden)
	?"Derniere fois accede: " + Transform(loFile.LastAccessed)
	?"Derniere fois modifie: " + Transform(loFile.LastModified)
	?"Manufacturier: " + Transform(loFile.Manufacturer)
	?"Nom: " + Transform(loFile.Name)
	?"Chemin: " + Transform(loFile.Path)
	?"Lisable: " + Transform(loFile.Readable)
	?"Systeme: " + Transform(loFile.System)
	?"Version: " + Transform(loFile.Version)
	?"Ecrivable: " + Transform(loFile.Writeable)
Next