Vbscript - Remove Share Permission

Hi Guys,

I need to create a script to remove all permissions from a share and set only a single account to have permission to use the share. 

Do you know if there is any tool or any way to do that?

Best regards,