为文件夹VBA分配权限

我使用下面的代码为文件夹分配权限。当我在say“C:/Test”上创建一个文件夹并运行代码时，这种方法可以很好地工作。它可以正常工作，没有任何问题，但一旦我对文件夹“C:/Documents and Settings”尝试了相同的操作，就会出现错误

这是代码；它是在Word文档中完成的VBA代码

Dim intRunError, objShell, objFSO,strHomeFolder         
strHomeFolder = "C:/Documents and Settings"

Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(strHomeFolder) Then
    intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " _
        & strHomeFolder & " /e /c /g everyone:F ", 2, True)
End If
MsgBox intRunError

也许：

"%COMSPEC% /c Echo Y| cacls """ & strHomeFolder & """ /e /c /g everyone:F "

---

您好，我如何创建用户帐户？我的意思是我想以编程方式创建一个ASPNET用户帐户？谢谢如果这回答了你的问题，你应该接受这一点，然后问一个新问题