Script to get folder owners

[Dukester0122]

I need a script so it'll give me the owners of certain folders/subfolders.

 

[PHV]

What have YOU tried so far and where in YOUR code are you stuck ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Dukester0122]

This script is working but only can look at one folder. I have around 300+ subfolders and want the script to loop and look at each folder:

strFolderName = "c:\Billing\Invoices"
Set objWMIService = GetObject("winmgmts:")
Set objFolderSecuritySettings = _
objWMIService.Get("Win32_LogicalFileSecuritySetting='" & strFolderName & "'")
intRetVal = objFolderSecuritySettings.GetSecurityDescriptor(objSD)

If intRetVal = 0 Then
WScript.Echo "Owner: " & objSD.Owner.Domain & "\" & objSD.Owner.Name
Else
WScript.Echo "Couldn't retrieve security descriptor."
End If

 

[PHV]

Have a look here (GetFolder method and SubFolders property):

http://msdn2.microsoft.com/en-us/library/z9ty6h50.aspx

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Dukester0122]

I'm not a programmer so looking at that link doesn't help me. I need somebody who can point me what's missing and where to insert in the script.

I got the script on a VB script site.

tks.

 

[dglienna]

Look up recursive and you'll find many examples. Search for The Scripting Guys, for their free tool

http://www.microsoft.com/technet/scriptcenter/default.mspx

-David
2006, 2007 & 2008 Microsoft Most Valuable Professional (VB)
2006 Dell Certified System Professional (CSP)

 

[purek77]

Set FSO = CreateObject("Scripting.FileSystemObject")

ShowSubfolders FSO.GetFolder("C:\WINDOWS")


Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Set objWMIService = GetObject("winmgmts:")
Set objFolderSecuritySettings = _
objWMIService.Get("Win32_LogicalFileSecuritySetting='" & Folder & "'")
intRetVal = objFolderSecuritySettings.GetSecurityDescriptor(objSD)

If intRetVal = 0 Then
WScript.Echo "Owner: " & objSD.Owner.Domain & "\" & objSD.Owner.Name
Else
WScript.Echo "Couldn't retrieve security descriptor."
End If
ShowSubFolders Subfolder
Next
End Sub