VBscript to share a folder only for specific users

Hi

I need to share a folder only for specific users using vbscripts. Also,

Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 25
strComputer = “.”
Set objWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2”)
Set objNewShare = objWMIService.Get(“Win32_Share”)
errReturn = objNewShare.Create _
(“C:\arpita”, “arpita”, FILE_SHARE, _
MAXIMUM_CONNECTIONS, “Public share for the Finance group.”)

This particular piece of code share and give full permission to “Everyone”. I need to give minimum permissions/ read permissions only to everyone.

please help