Retrieving Folder attributes: "Owner"

[DRH192]

Is there any way to retrieve the owner of a folder. I can easily get file details but the information you can retrieve for folders seems limited.

Any help much appreciated

Cheers

 

[CautionMP]

DRH192,
This should get you moving in the right direction:

http://www.microsoft.com/technet/scriptcenter/resources/qanda/oct04/hey1007.mspx

It's VBS so it should be pretty easy to port over to VBA

Hope this helps

[small]For the best results do what I'm thinking, not what I'm saying.[/small]
(GMT-07:00) Mountain Time (US & Canada)

 

[LauNai]

Yes it is working find here for VBA

Public Function fctGetOwner(strFile As String) As String
Dim objWMIService As Object

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set colitems = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile & "'}" _
& " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")

For Each objitem In colitems
' MsgBox objItem.ReferencedDomainName
' MsgBox objItem.AccountName
fctGetOwner = objitem.AccountName
Next


End Function