Creeme que no me fue sencillo conseguirlo pero al fin despues de mucho indagar por aqui y por alla lo logre y pude conseguir compartir una carpeta usando codigo de visual basic, espero te sea de utilidad
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:\Carpeta", "CarpetaCompartida", FILE_SHARE, _
MAXIMUM_CONNECTIONS, "Esta es una carpeta compartida.")
WScript.Echo "errReturn = " & errReturn