'==============================================================
' Copyright (c) enun-net. All rights reserved.
' ScriptName: CloneACL.vbs
' Creation Date: 8/5/2013
' Last Modified: 8/5/2013
' Author: lxzzr
' Homepage: www.enun.net
' E-mail: 0x22e09@sina.com
' Description: Clone object's ACL.
'==============================================================

If WScript.Arguments.Count < 2 Then
	WScript.Echo "Usage: CloneACL <sObjectPath(file or Folder)> <dObjectPath(file or Folder)>"
	WScript.Quit 1
End If

sObjectPath = WScript.Arguments( 0 )
dObjectPath = WScript.Arguments( 1 )
Set ObjWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate, (Security)}!\\.\root\cimv2")

Set scr = ObjWMI.Get("Win32_LogicalFileSecuritySetting=""" & Replace( sObjectPath,"\","\\") & """" )
sReturn = scr.GetSecurityDescriptor( objSD )
If ( sReturn <> 0 ) Then
	WScript.Echo "Could not get security descriptor: " & sReturn
	wscript.Quit sReturn
End If

Set dst = ObjWMI.Get("Win32_LogicalFileSecuritySetting=""" & Replace( dObjectPath,"\","\\") & """" )
dReturn = dst.SetSecurityDescriptor( objSD )
If ( dReturn <> 0 ) Then
	WScript.Echo "Could not set security descriptor: " & dReturn
	wscript.Quit dReturn
End If
复制代码