VBSCript之GenerateSDDL函數(shù)(權(quán)限設(shè)置)
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))
文章來源： http://www.enun.net/?p=1255
相關(guān)文章
經(jīng)常有一些想學(xué)習(xí)vbs的朋友問我一些問題，昨天又有一個(gè)朋友問我取路徑的問題，今天就biweilun就一并寫出來，希望對大家有點(diǎn)幫助，呵呵2008-07-07
兩個(gè)vbs腳本利用了wscirpt.network...2007-02-02
簡單用VBS調(diào)用企業(yè)微信機(jī)器人發(fā)定時(shí)消息的方法
這篇文章主要介紹了簡單用VBS調(diào)用企業(yè)微信機(jī)器人發(fā)定時(shí)消息的方法，文中通過示例代碼介紹的非常詳細(xì)，對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2020-07-07
頁面源文件解密 頁面鏈接查看具體查看收藏夾2009-04-04
保存為.vbs文件即可2008-08-08
用vbscript腳本實(shí)現(xiàn)返回 IP 配置數(shù)據(jù)的代碼
用vbscript腳本實(shí)現(xiàn)返回 IP 配置數(shù)據(jù)的代碼...2007-05-05
如何調(diào)試JScript/VBScript的方法...2007-03-03
VBS教程：對象-Files 集合...2006-11-11
今天有人問我如何向APPlication 發(fā)送雙引號(hào)，分號(hào)等，我在這里做一個(gè)總結(jié)，方便你使用參考2009-07-07
emule自動(dòng)關(guān)機(jī)腳本,它的功能就是將軟件下載完后，就是檢測下載緩沖區(qū)的文件夾是否為0，是就是所有的文件已下載完畢，然后執(zhí)行的關(guān)機(jī)操作。2008-11-11