Faire un script pour fichier ntfs

Mathieusk · Inscrit le: Jul 18, 2006 Messages: 58 Localisation: Quebec

Description :

Ce script permet de trouver le propriétaire d'un fichier.

Ce script au format VBS peut être utilisé comme suit.

Script :

strFileName = "C:\scripts\test.txt"
Set objWMIService = GetObject("winmgmts:")
Set objFileSecuritySettings = _
objWMIService.Get("Win32_LogicalFileSecuritySetting='" & strFileName & "'")
intRetVal = objFileSecuritySettings.GetSecurityDescriptor(objSD)

If intRetVal = 0 Then
WScript.Echo "Owner: " & objSD.Owner.Domain & "\" & objSD.Owner.Name
Else
WScript.Echo "Impossible de récupérer le descripteur de sécurité."
End If

Fin Script

Il suffit de mettre l'extention en .vbs a la fin