Permisos a carpetas compartidas

Buenas

Quisiera saber si me pueden ayudar, he realizado un script en el cual,
creo la carpeta del usuario, la comparto sin problemas. Mi problema es
que quiero asignarle permisos a la carpeta compartida pero no hubico
la forma o los parametros para poder hacerlo.

A continuacion dejo parte del script

Sub CreateShare ()
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "oot
\cimv2")
Set objNewShare = objWMIService.Get("Win32_Share")
errReturn = objNewShare.Create _
(strDirectory, strUserName & "$", FILE_SHARE, _
MAXIMUM_CONNECTIONS, "Unidad X del usuario")
End Sub

Desde ya muchas gracias
Alejandro