|
Imports System.IO
Public Class SubInACL
Public Shared Sub GrantFullAccess(ByVal fullPath As String, ByVal domainUser As String)
domainUser = "BUILTIN\Administrators"
Dim p As New Process
p.StartInfo.FileName = Path.Combine(Environment.SystemDirectory, "Subinacl.exe")
p.StartInfo.UseShellExecute = False
p.StartInfo.CreateNoWindow = True
p.StartInfo.Arguments = _
"/subdirectories """ + fullPath + """ /grant=" + domainUser + "=F"
p.Start()
p.WaitForExit()
If p.ExitCode <> 0 Then
Throw New Exception("Subinacl error: " + CStr(p.ExitCode))
End If
End Sub
End Class
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.