用net命令 或 NetShareAdd 函数 怎样设置为只读共享

Question

用net命令 或 NetShareAdd 函数 怎样设置为只读共享？
我用NetShareAdd 函数，将SHARE_INFO_2结构对象的shi2_permissions = ACCESS_READ，也不行。请问该怎样做？另外，net 命令能设置为只读共享码？谢谢？
附结构：
Private Type SHARE_INFO_2
shi2_netname As Long '共享名
shi2_type As Long '类型
shi2_re As Long '备注
shi2_permissions As Long '权限
shi2_max_uses As Long '最大用户
shi2_current_uses As Long '
shi2_path As Long '路径
shi2_passwd As Long '密码
End Type

Answer 1

shi2_permissions = ACCESS_READ?

Answer 2

net share 命令在2003下有一个参数GRANT可用,不过在其它系统好象不行

Answer 3

这两个命令都无法完成“只读”共享，只能完成“完全”共享，要“只读”共享应该有其它方法，不过我也找了好久，纯代码或API或命令行方式的最终还是没找到，不过我用虚拟键盘的方式解决了。