某指定文件夹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)
------解决方案--------------------------------------------------------
一行代码可以搞定。主要是权限问题,种种原因代码不写了,呵呵
------解决方案--------------------------------------------------------
这是干啥啊,看回复好像很微妙啊。。。不会,帮顶,撒点分给我吧。
------解决方案--------------------------------------------------------
帮顶~!