Who owns the file?

[GEOSoft]

This is also available on my site under Code>>My Extra UDFs>>Filex.au3 but I thought I would also post it for others to use.

I'm still working on a few related functions to set file permissions etc. I'll post when they are finished.

expandcollapse popup

;
;===============================================================================
; Function Name:   _File_GetOwner()
; Description:   Retrieve the ownership of a file
; Syntax:        _File_GetOwner("FULL path and filename", "computer name")
; Parameter(s):   
; Requirement(s):   
; Return Value(s):   Success - Returns name or group of the file owner
;                           Failure - Returns "" if file not found (@Error = 0)
;                             Sets @Error to 1 if unable to connect to the object
;
; Author(s):   GEOSoft
; Modification(s):   
; Note(s):   
; Example(s):   
;===============================================================================

Func _File_GetOwner($sFile, $sComputer = "localhost")
   Local $Obj, $Item, $Items, $rVal = ""
   If StringRight($sFile, 1) = "\" Then $sFile = StringTrimRight($sFile, 1)
   $sComputer = StringReplace($sComputer,"\","")
   $Obj = ObjGet("winmgmts:\\" & $sComputer & "\root\cimv2")
   If isObj($Obj) Then
   $Items = $Obj.ExecQuery _
   ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & $sFile & "'}" & _
   " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")
   For $Item in $Items
      If $Item.ReferencedDomainName Then
         $rVal = $Item.AccountName
      EndIf
   Next
   Else
      SetError(1)
   EndIf
   Return $rVal
EndFunc;<==> _File_GetOwner()
;

Edited May 22, 2008 by GEOSoft

[monoceres]

Nice I'm sure this will come in handy.

Looking forward to be able to set file (folder?) permissions, could really make life easier.

[GEOSoft]

Nice I'm sure this will come in handy.

Looking forward to be able to set file (folder?) permissions, could really make life easier.

Thanks.

Now that you mention it, I forgot to check if this function will work against a folder or if I'm going to have to write another one for that.

I already have a method to remove ownership of a file or folder and I think I can use something similar to re-set ownership, but I'm not ready to post that yet because I think there may be an easier way. I'm also working on a file/folder lock/unlock function, that one is giving me trouble.

[GEOSoft]

The code has been edited so that it will run against a folder properly.

@monoceres

I have the code to set file/folder ownership to the current user working properly. I just have to decide if I should post it here or not. The reason is that I think it could be abused, however I have found similar scripts in other languages so people could use one of those instead I suppose.

I will have to think about that some more.

[Valuater]

Failure - Returns 0 if file not found (@Error = 0)

Shouldn't that be

Failure - Returns "" if file not found (@Error = 0)

8)

[GEOSoft]

Shouldn't that be

Failure - Returns "" if file not found (@Error = 0)

8)

Thanks @Val

Typo

I plead the old age defence.

[Jango]

Thank you for this usefull code.

Just a remark, if the WMI is not installed (i got the case with some XP embedded) the code crash. This can be handled with:

$oErr = ObjEvent("AutoIt.Error", "onerror")

Cu

[TheSaint]

Just dredged up from the depths of my memory ... I think someone who works for MS used to have a free program for download on their own site, that would let you set things, etc. So you are probably ok to post your own version here, without feeling to worried about the devastation it might precipitate!

[GEOSoft]

Just dredged up from the depths of my memory ... I think someone who works for MS used to have a free program for download on their own site, that would let you set things, etc. So you are probably ok to post your own version here, without feeling to worried about the devastation it might precipitate!

I know that one of the MVPs has something similar on his site. I put the code into the page on my site so you just have to go to the site and follow the menu links...

Code>>My Extra UDFs>>Filex.au3

I'm leaning more to this method of making code available because, according to my counters, people are finding more that they are interested in while they are there.

The site link is in my sig. Of course it's still under construction so some of the menu links (Code Examples, Tips & Tricks) are not working because I have not uploaded the code for any of sub menus yet. In fact I have not even decided what format I want to use for Tips & Tricks yet.