| 标题 | VBSCript之GenerateSDDL函数(权限设置) |
| 内容 | 自己写的一个函数和应用实例，用于设置对象的相关权限，需要的朋友可以参考下 代码如下: Function GenerateSDDL(AccountName, AccessFlag, AccessType, AccessMask) Dim Accounts, ObjWMI, ObjSID, ObjTru, ObjACE Const SET_DACL_PRESENT = &H8004 Set ObjWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate, (Security)}!\\.\root\cimv2") Set Accounts = ObjWMI.ExecQuery("SELECT * FROM Win32_Account WHERE Name='" & AccountName & "'") For Each Account In Accounts StrSID = Account.SID Next Set ObjSID = ObjWMI.Get("Win32_SID.SID='"& StrSID &"'") Set ObjTru = ObjWMI.Get("Win32_Trustee").SpawnInstance_() ObjTru.Domain = ObjSID.ReferencedDomainName ObjTru.Name = ObjSID.AccountName ObjTru.SID = ObjSID.BinaryRepresentation ObjTru.SidLength = ObjSID.SidLength ObjTru.SIDString = ObjSID.Sid Set ObjACE = ObjWMI.Get("Win32_ACE").SpawnInstance_() ObjACE.Trustee = ObjTru ObjACE.AceType = AccessType ObjACE.AccessMask = AccessMask ObjACE.AceFlags = AccessFlag Set GenerateSDDL = ObjWMI.Get("Win32_SecurityDescriptor").SpawnInstance_() GenerateSDDL.Owner = ObjTru GenerateSDDL.DACL = Array(ObjACE) GenerateSDDL.ControlFlags = SET_DACL_PRESENT End Function 例子： 代码如下: strPath = "d:\\1.txt" Set ObjWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate, (Security)}!\\.\root\cimv2") Set ObjSec = ObjWMI.Get("Win32_LogicalFileSecuritySetting.Path='" & strPath & "'") ObjSec.SetSecurityDescriptor(GenerateSDDL("everyone", &H0, &H1, &H100E0)) |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。