NTFS omistajan vaihto

Tervehdys,

Eli olisi tarvetta rakennella pätkä joka korvaa kansion ja alikanioiden omistajan, kopsasin netistä allaolevan pätkän ja muutin sen tarpeitani vastaavaksi. Ongelmana on että kansio mitä haluan räplätä sijaitsee palvelimella, toimiakseen pitää resurrssin \\palvelin\jako\ olla "mäpättynä" käyttööni (z:)
Miten alla oleva esimerkki muutettaisiin jotta se toimisi suoraan \\palvelin\jako\ kansioon ilman mäppäystä?

Sub omistukseenotto()


strComputer = "."

Set objWMIService = _
GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")


Set objShare = objWMIService.Get("Win32_Directory")


Set objOutParams = objWMIService.ExecMethod( _
"Win32_Directory.Name='z:\'", "TakeOwnerShip")


End Sub