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

Desde visual no tengo ni idea, pero desde línea de comandos, se utiliza el
comando CACLS

Daniel Ríos
http://d-rios.blogspot.com



"Morgan" escribió en el mensaje
news:

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