Imports System.IO
 
Dim Dir As DirectorySecurity
Dim Rule As FileSystemAccessRule
Dim Account As System.Security.Principal.NTAccount
Dim Path$,User$
 
Path$ = "\\RechnerB\TESTORDNER"
User$ = "RechnerB\TESTBENUTZER"
 
Dir = Directory.GetAccessControl(Path$, AccessControlSections.Access)
Account = New System.Security.Principal.NTAccount(Path$)
Rule = New FileSystemAccessRule(Account , _
FileSystemRights.ReadAndExecute, AccessControlType.Allow)
 
Dir.AddAccessRule(Rule)
Directory.SetAccessControl(Path$, Dir)