SetAclWrapper Class

Public NotInheritable Class SetAclWrapper
	Implements IDisposable

Dim instance As SetAclWrapper

public ref class SetAclWrapper sealed : IDisposable

[<SealedAttribute>]
type SetAclWrapper = 
    class
        interface IDisposable
    end

No code example is currently available or this language may not be supported.

Friend WithEvents Wrapper As New SetAclWrapper(".\SetACL.exe")

Private Sub Test() Handles Button1.Click

    Wrapper.SetOwnership("HKCU\Test", True)
    Wrapper.SetPermission("HKCU\Test", True, SetAclPermission.Full)

End Sub

Private Sub Wrapper_Started(ByVal sender As Object, ByVal e As SetAclStartedEventArgs) _
Handles Wrapper.Started

    ProgressBar1.Value = ProgressBar1.Minimum

    Dim sb As New System.Text.StringBuilder
    With sb
        .AppendLine(String.Format("Arguments: ""{0}""", e.Arguments))
        .AppendLine(String.Format("SetACL.exe process id. (PID) is: {0}", CStr(DirectCast(sender, SetAclWrapper).Process.Id)))
    End With

    Debug.WriteLine(String.Format("Start Time: {0}", Date.Now.ToLongTimeString))
    Debug.WriteLine(sb.ToString())

End Sub

Private Sub Wrapper_Exited(ByVal sender As Object, ByVal e As SetAclExitedEventArgs) _
Handles Wrapper.Exited

    Dim sb As New Global.System.Text.StringBuilder
    With sb
        ' .AppendLine(String.Format("Arguments: ""{0}""", e.Arguments))
        .AppendLine(String.Format("Exit Code: ""{0}""", e.ExitCode))
    End With

    If Not String.IsNullOrEmpty(e.ErrorMessage) Then
        sb.AppendLine(String.Format("Error Information: {0}", e.ErrorMessage))
        Process.Start(Wrapper.LogFilePath)
    End If

    Debug.WriteLine(sb.ToString())
    Debug.WriteLine(String.Format("End Time: {0}", Date.Now.ToLongTimeString))

End Sub

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.