I got som hints

I can read the owner value now

$objuser=getobject("LDAP://CN=Jan Smith,OU=Accounts,DC=fabrican,DC=com")

? $objuser.samaccountname+ ";" + $objuser.ntSecurityDescriptor.owner

and this is the VB script for changing folder ownership:

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService.ExecQuery _
("Select * From Win32_Directory Where Name = 'C:\\Scripts'")

For Each objFolder in colFolders
objFolder.TakeOwnershipEx
Next

Can I user it for user account also ??
_________________________
“I’ll not change you unless you don’t have intention to change yourself” --H:Quran