扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:builder.com.cn 2007年5月10日
关键字:
Imports System.IO
Imports System.Security.AccessControl
Module Module1
Sub Main()
Dim i As Integer
Dim subDirs() As String
Dim ds As DirectorySecurity
Try
subDirs = Directory.GetDirectories("c:\")
For i = 0 To subDirs.GetUpperBound(0)
ds = Directory.GetAccessControl(subDirs(i))
If Not (ds Is Nothing) Then
ds.AddAccessRule(New FileSystemAccessRule("Domain\\TechRepublicUser", FileSystemRights.FullControl, AccessControlType.Allow))
ds.RemoveAccessRule(New FileSystemAccessRule("Domain\\Tester", FileSystemRights.FullControl, AccessControlType.Deny))
End If
Directory.SetAccessControl(subDirs(i), ds)
Next i
Catch e As IOException
Console.WriteLine("Exception {0}", e.Message.ToString())
End Try
End Sub
End Module
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。