Set ownerobj = CreateObject("SAPIEN.FileOwner")
PreviousOwner = ownerobj.GetOwner("C:\Temp\Testing\test.vbs")
WScript.Echo PreviousOwner
If ownerobj.SetOwner("TestUser", "C:\Temp\Testing\test.vbs") Then
    WScript.Echo "User set to TestUser"
Else
    WScript.Echo "Setting User failed"
end If
ownerobj.SetOwner PreviousOwner, "C:\Temp\Testing\test.vbs"

' Точно так же работаем с папками:
PreviousOwner = ownerobj.GetOwner("C:\Temp\Testing")
WScript.Echo PreviousOwner
If ownerobj.SetOwner("TestUser", "C:\Temp\Testing") Then
    WScript.Echo "User set to TestUser"
Else
    WScript.Echo "Setting User failed"
end If
ownerobj.SetOwner PreviousOwner, "C:\Temp\Testing"