100分修改文件夹权限的vbs脚本

100分求一个修改文件夹权限的vbs脚本
某指定文件夹security选项卡下有一个users用户组，把这个组的modify打上勾，用vbs实现，急用，谢谢

[解决办法]
...修改文件属性的VBS程序，呵呵...有意思
[解决办法]

VBScript code

strFolder = "C:\\FONT"Set objFolder = GetObject("winmgmts:Win32_LogicalFileSecuritySetting.path=""" & strFolder & """") re = objFolder.GetSecurityDescriptor(objSD)For each wmiAce in objSD.DACL    Set Trustee = wmiAce.Trustee    If Trustee.Name = "Users" Then         wmiAce.AccessMask =1769919    End IfNextobjFolder.SetSecurityDescriptor(objSD)
[解决办法]
一行代码可以搞定。主要是权限问题，种种原因代码不写了，呵呵
[解决办法]
这是干啥啊，看回复好像很微妙啊。。。不会，帮顶，撒点分给我吧。
[解决办法]
帮顶～！