Oprette share og tildele de rigtige permissions?

Hej
Jeg er ved at oprette brugere via scripts, og det fungere egentligt fint, men jeg har problemer med at tildele permissions til min shares:

Jeg opretter en mappe og deler den med følgende script. Håber der er nogle som har en idé til at få permissions med.

---- script ----

drev="c:\"
folder="nymappe"


Set objFSO = CreateObject("Scripting.FileSystemObject")
If Not objFSO.FolderExists(drev & folder ) Then
    '******** Opret folder
    objFolder = objFSO.CreateFolder(drev & folder)
End If


Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 2
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewShare = objWMIService.Get("Win32_Share")
errReturn = objNewShare.Create (drev & folder, folder & "$", FILE_SHARE, MAXIMUM_CONNECTIONS, "Hjemme drev for "& folder)
Wscript.Echo errReturn


---- script ----

Mvh

Jacob