VBScript: Сохранить DACL общего ресурса

Dim objWMI, objCollection, objItem, objWSNet, objFS
Dim objSD, objSID, objTrustee, objACE, objShare
Dim strDomain, strComputer, strUser, strUserSID, blnHasACE
Const FULL_ACCESS = 2032127
Const ACCESS_ALLOWED = 0
Const strShareName = "Temp"
Const strSharePath = "C:\Temp"

Set objWSNet = CreateObject("WScript.Network")
strDomain = objWSNet.UserDomain
strComputer = objWSNet.ComputerName
strUser = objWSNet.UserName
Set objWSNet = Nothing
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(strSharePath) Then
	Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\CIMV2")
	Set objCollection = objWMI.ExecQuery("SELECT SID FROM Win32_UserAccount WHERE Domain='" & strDomain & "' AND Name='" & strUser & "'")
	If objCollection.Count > 0 Then
		For Each objItem In objCollection
			strUserSID = objItem.SID
		Next
		Set objCollection = Nothing
		Set objSID = objWMI.Get("Win32_SID.SID='" & strUserSID & "'")
		Set objTrustee = objWMI.Get("Win32_Trustee").SpawnInstance_
		objTrustee.Domain = strDomain
		objTrustee.Name = strUser
		'objTrustee.SID = objSID.BinaryRepresentation
		objTrustee.SidLength = objSID.SidLength
		objTrustee.SIDString = strUserSID
		Set objSID = Nothing							
		Set objACE = objWMI.Get("Win32_Ace").SpawnInstance_
		objACE.AccessMask = FULL_ACCESS
		objACE.AceFlags = 3
		objACE.AceType = ACCESS_ALLOWED
		objACE.Trustee = objTrustee
		Set objTrustee = Nothing
		Set objSD = objWMI.Get("Win32_SecurityDescriptor").SpawnInstance_
		objSD.DACL = Array(objACE)
        Set objACE = Nothing
		On Error Resume Next
		Set objShare = objWMI.Get("Win32_Share.Name='" & strShareName & "'")
        If Err.Number = 0 Then
            intResult = objShare.SetShareInfo(Null, Null, objSD)
            Select Case intResult
                Case 0
					Wscript.Echo "DACL для SMB-разрешения изменён."
					Set objSecSettings = objWMI.Get("Win32_LogicalShareSecuritySetting.Name='" & strShareName & "'")
					If Err.Number = 0 Then
						If objSecSettings.GetSecurityDescriptor(objSD) = 0 Then
							If IsNull(objSD.DACL) Then
								WScript.Echo "Список управления доступом пуст."
							Else
								For Each objACE In objSD.DACL
									If StrComp(objACE.Trustee.Domain, strDomain, vbTextCompare) = 0 AND StrComp(objACE.Trustee.Name, strUser, vbTextCompare) = 0 Then
										WScript.Echo UCase(objACE.Trustee.Domain & "\" & objACE.Trustee.Name) & vbNewLine & objACE.Trustee.SIDString
										If IsArray(objACE.Trustee.SID) Then
											WScript.Echo "Размерность массива objACE.Trustee.SID = [ " & LBound(objACE.Trustee.SID) & " - " & UBound(objACE.Trustee.SID) & " ]"
										Else
											WScript.Echo "Значение свойства objACE.Trustee.SID не определено."
										End If
										blnHasACE = True
										Exit For
									End If
								Next
								If Not blnHasACE Then WScript.Echo "Запись объекта " & UCase(strDomain & "\" & strUser) & " не найдена."
							End If
						Else
							WScript.Echo "Не удалось прочитать дескриптор безопасности."
						End If
					Else
						WScript.Echo "Ошибка " & Err.Number & vbNewLine & Err.Description
						Err.Clear
					End If
                Case 2: Wscript.Echo "Доступ к объекту запрещён."
                Case 8: Wscript.Echo "Неизвестная ошибка."
                Case 9: Wscript.Echo "Неверное имя."
                Case 10: Wscript.Echo "Неверный уровень."
                Case 21: Wscript.Echo "Неверный параметр."
                Case 22: Wscript.Echo "Попытка создания дубликата ресурса."
                Case 23: Wscript.Echo "Перенаправленный путь."
                Case 24: Wscript.Echo "Неизвестное устройство или путь."
                Case 25: Wscript.Echo "Сетевое имя не найдено."
            End Select
            Set objShare = Nothing
        Else
			Err.Clear
            Wscript.Echo "Объект типа ОБЩАЯ ПАПКА не найден."
        End If
		On Error GoTo 0
        Set objSD = Nothing
	Else
		Wscript.Echo "Не обнаружена учётная запись пользователя " & UCase(strUser)
	End If
Else
	WScript.Echo "Путь " & UCase(strSharePath) & " не найден."
End If
Set objWMI = Nothing
Set objFS = Nothing
WScript.Quit 0

Dim objWMI, objCollection, objItem, objWSNet, objFS
Dim objSD, objSID, objTrustee, objACE, objShare
Dim strDomain, strComputer, strUser, strUserSID, blnHasACE
Const FULL_ACCESS = 2032127
Const ACCESS_ALLOWED = 0
Const strShareName = "Temp"
Const strSharePath = "C:\Temp"
 
Set objWSNet = CreateObject("WScript.Network")
strDomain = objWSNet.UserDomain
strComputer = objWSNet.ComputerName
strUser = objWSNet.UserName
Set objWSNet = Nothing
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(strSharePath) Then
    Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\CIMV2")
    Set objCollection = objWMI.ExecQuery("SELECT SID FROM Win32_UserAccount WHERE Domain='" & strDomain & "' AND Name='" & strUser & "'")
    If objCollection.Count > 0 Then
        For Each objItem In objCollection
            strUserSID = objItem.SID
        Next
        Set objCollection = Nothing
        Set objSID = objWMI.Get("Win32_SID.SID='" & strUserSID & "'")
        Set objTrustee = objWMI.Get("Win32_Trustee").SpawnInstance_
        objTrustee.Domain = strDomain
        objTrustee.Name = strUser
        'objTrustee.SID = objSID.BinaryRepresentation
        objTrustee.SidLength = objSID.SidLength
        objTrustee.SIDString = strUserSID
        Set objSID = Nothing                            
        Set objACE = objWMI.Get("Win32_Ace").SpawnInstance_
        objACE.AccessMask = FULL_ACCESS
        objACE.AceFlags = 3
        objACE.AceType = ACCESS_ALLOWED
        objACE.Trustee = objTrustee
        Set objTrustee = Nothing
        Set objSD = objWMI.Get("Win32_SecurityDescriptor").SpawnInstance_
        objSD.DACL = Array(objACE)
'        Set objACE = Nothing
		

		
'        On Error Resume Next
        Set objShare = objWMI.Get("Win32_Share.Name='" & strShareName & "'")
        If Err.Number = 0 Then

			objSD.ControlFlags = 32772
		
			Set objShareSecSetting = objWMI.Get("Win32_LogicalShareSecuritySetting.Name='" + strShareName + "'")
		
			returnval = objShareSecSetting.SetSecurityDescriptor(objSD)

            'intResult = objShare.SetShareInfo(Null, Null, objSD)
            Select Case intResult
                Case 0
                    Wscript.Echo "DACL для SMB-разрешения изменён."
                    Set objSecSettings = objWMI.Get("Win32_LogicalShareSecuritySetting.Name='" & strShareName & "'")
                    If Err.Number = 0 Then
                        If objSecSettings.GetSecurityDescriptor(objSD) = 0 Then
                            If IsNull(objSD.DACL) Then
                                WScript.Echo "Список управления доступом пуст."
                            Else
                                For Each objACE In objSD.DACL
                                    If StrComp(objACE.Trustee.Domain, strDomain, vbTextCompare) = 0 AND StrComp(objACE.Trustee.Name, strUser, vbTextCompare) = 0 Then
                                        WScript.Echo UCase(objACE.Trustee.Domain & "\" & objACE.Trustee.Name) & vbNewLine & objACE.Trustee.SIDString
                                        If IsArray(objACE.Trustee.SID) Then
                                            WScript.Echo "Размерность массива objACE.Trustee.SID = [ " & LBound(objACE.Trustee.SID) & " - " & UBound(objACE.Trustee.SID) & " ]"
                                        Else
                                            WScript.Echo "Значение свойства objACE.Trustee.SID не определено."
                                        End If
                                        blnHasACE = True
                                        Exit For
                                    End If
                                Next
                                If Not blnHasACE Then WScript.Echo "Запись объекта " & UCase(strDomain & "\" & strUser) & " не найдена."
                            End If
                        Else
                            WScript.Echo "Не удалось прочитать дескриптор безопасности."
                        End If
                    Else
                        WScript.Echo "Ошибка " & Err.Number & vbNewLine & Err.Description
                        Err.Clear
                    End If
                Case 2: Wscript.Echo "Доступ к объекту запрещён."
                Case 8: Wscript.Echo "Неизвестная ошибка."
                Case 9: Wscript.Echo "Неверное имя."
                Case 10: Wscript.Echo "Неверный уровень."
                Case 21: Wscript.Echo "Неверный параметр."
                Case 22: Wscript.Echo "Попытка создания дубликата ресурса."
                Case 23: Wscript.Echo "Перенаправленный путь."
                Case 24: Wscript.Echo "Неизвестное устройство или путь."
                Case 25: Wscript.Echo "Сетевое имя не найдено."
            End Select
            Set objShare = Nothing
        Else
            Err.Clear
            Wscript.Echo "Объект типа ОБЩАЯ ПАПКА не найден."
        End If
        On Error GoTo 0
        Set objSD = Nothing
    Else
        Wscript.Echo "Не обнаружена учётная запись пользователя " & UCase(strUser)
    End If
Else
    WScript.Echo "Путь " & UCase(strSharePath) & " не найден."
End If
Set objWMI = Nothing
Set objFS = Nothing
WScript.Quit 0