VBScript 克隆源对象的ACL到目标

lxzzr

准确的应该是附加源对象的权限到目标。

1. 
   
2. '==============================================================
   
3. ' Copyright (c) enun-net. All rights reserved.
   
4. ' ScriptName: CloneACL.vbs
   
5. ' Creation Date: 8/5/2013
   
6. ' Last Modified: 8/5/2013
   
7. ' Author: lxzzr
   
8. ' Homepage: www.enun.net
   
9. ' E-mail: 0x22e09@sina.com
   
10. ' Description: Clone object's ACL.
    
11. '==============================================================
    
12. 
    
13. If WScript.Arguments.Count < 2 Then
    
14.         WScript.Echo "Usage: CloneACL <sObjectPath(file or Folder)> <dObjectPath(file or Folder)>"
    
15.         WScript.Quit 1
    
16. End If
    
17. 
    
18. sObjectPath = WScript.Arguments( 0 )
    
19. dObjectPath = WScript.Arguments( 1 )
    
20. Set ObjWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate, (Security)}!\\.\root\cimv2")
    
21. 
    
22. Set scr = ObjWMI.Get("Win32_LogicalFileSecuritySetting=""" & Replace( sObjectPath,"","\") & """" )
    
23. sReturn = scr.GetSecurityDescriptor( objSD )
    
24. If ( sReturn <> 0 ) Then
    
25.         WScript.Echo "Could not get security descriptor: " & sReturn
    
26.         wscript.Quit sReturn
    
27. End If
    
28. 
    
29. Set dst = ObjWMI.Get("Win32_LogicalFileSecuritySetting=""" & Replace( dObjectPath,"","\") & """" )
    
30. dReturn = dst.SetSecurityDescriptor( objSD )
    
31. If ( dReturn <> 0 ) Then
    
32.         WScript.Echo "Could not set security descriptor: " & dReturn
    
33.         wscript.Quit dReturn
    
34. End If

复制代码

https://www.enun.net/?p=2308