天一教纲碑:用代码实现对文件夹权限的控制
来源:百度文库 编辑:偶看新闻 时间:2024/05/03 08:58:30
调用CACLS.EXE程序 Public Function DelFolderUser(ByVal path As String, ByVal UserName As String)
If path.EndsWith("\") Then path = path.Substring(0, path.Length - 1)
Dim CmdTxt As String
CmdTxt = syspath & "Cacls.exe " & path & " /c /e /t /r " & UserName
Shell(CmdTxt, vbHide)
Return True
End Function
Public Function SetFolderUser(ByVal PathName As String, ByVal UserFlag As String, ByVal replace As Boolean) As Boolean
‘Set Change Permissions for the developer using CACLS.exe
If PathName.EndsWith("\") And PathName.Length > 3 Then PathName = PathName.Substring(0, PathName.Length - 1).Trim
‘ PathName = PathName & "\"
Dim strACLCommand As String, objRTC
strACLCommand = " /c echo y|" & syspath & "Cacls.exe "
strACLCommand = strACLCommand & PathName
If replace Then
strACLCommand = strACLCommand & " /c /t /g " & UserFlag
Else
strACLCommand = strACLCommand & " /c /e /t /g " & UserFlag
End If
Dim objWSH
‘Set objWSH = Server.CreateObject("WScript.Shell")
‘objRTC = objWSH.Run(strACLCommand, 0, True)
‘MsgBox(strACLCommand)
Dim INF As ProcessStartInfo = New ProcessStartInfo
INF.FileName = syspath & "cmd.exe "
INF.Arguments = strACLCommand
INF.WindowStyle = ProcessWindowStyle.Hidden
Dim bb As System.Diagnostics.Process = System.Diagnostics.Process.Start(INF)
bb.WaitForExit()
bb.Close()
‘ Shell(strACLCommand, vbHide)
‘Set objWSH = Nothing
Return True
End Function
If path.EndsWith("\") Then path = path.Substring(0, path.Length - 1)
Dim CmdTxt As String
CmdTxt = syspath & "Cacls.exe " & path & " /c /e /t /r " & UserName
Shell(CmdTxt, vbHide)
Return True
End Function
Public Function SetFolderUser(ByVal PathName As String, ByVal UserFlag As String, ByVal replace As Boolean) As Boolean
‘Set Change Permissions for the developer using CACLS.exe
If PathName.EndsWith("\") And PathName.Length > 3 Then PathName = PathName.Substring(0, PathName.Length - 1).Trim
‘ PathName = PathName & "\"
Dim strACLCommand As String, objRTC
strACLCommand = " /c echo y|" & syspath & "Cacls.exe "
strACLCommand = strACLCommand & PathName
If replace Then
strACLCommand = strACLCommand & " /c /t /g " & UserFlag
Else
strACLCommand = strACLCommand & " /c /e /t /g " & UserFlag
End If
Dim objWSH
‘Set objWSH = Server.CreateObject("WScript.Shell")
‘objRTC = objWSH.Run(strACLCommand, 0, True)
‘MsgBox(strACLCommand)
Dim INF As ProcessStartInfo = New ProcessStartInfo
INF.FileName = syspath & "cmd.exe "
INF.Arguments = strACLCommand
INF.WindowStyle = ProcessWindowStyle.Hidden
Dim bb As System.Diagnostics.Process = System.Diagnostics.Process.Start(INF)
bb.WaitForExit()
bb.Close()
‘ Shell(strACLCommand, vbHide)
‘Set objWSH = Nothing
Return True
End Function
XP中对文件夹权限控制
在XP中,怎么实现文件或文件夹的权限?
实现文件夹共享和权限设置
我想用一个函数实现对电磁阀的控制,函数已经确定请问可以用什么方法实现控制呢?
(向高手提了三次的问题)怎么用代码实现远程控制弹出网页?
(提了三次的问题)怎么用代码实现远程控制弹出网页?
在对局域网中某台计算机的共享文件夹有完全访问权限时,如何控制这台计算机并通过它连接互联网?
win2000中,怎么样设置对文件夹操作的权限?
怎么用代码实现远程控制弹出网页
在ASP网页设计中添加什么代码实现几个管理员不同的权限
急求解:asp.net界面运行语言是VB,超链接的权限代码怎么实现?
如何在同一个文件夹目录里面设置不同用户的对次文件夹的所有权,让他们对各自的文件夹拥有更改权限的权限
"实现用户对家庭花卉进行灌溉的控制功能",用英文怎么说
实现用户对家庭花卉进行灌溉的控制功能",用英文怎么说
isapi怎么样实现对输出的html进行控制
怎么实现电脑对电视或者其他家用电器的控制?
如何实现变频器对异步电机的调速控制!~~
文件夹的权限怎么设置?
文件夹权限分配的使用
如何用ASP代码实现新建文件夹
如何用C#代码实现对图片的放大
如何用C#代码实现对图片的放大
如何控制任何程序对文件夹的操作
有没有方法实现在网页中实现对远程引用网页的的CSS控制?