如何使用vbscript添加或更改注册表项的权限？

Question

我想使用vbscript（或者我可以在Windows 7计算机上本地运行的某种脚本语言）并更改注册表项的权限。

我看到了regini，但它已经过时了，我没有看到如何根据我的需要使用它。具体来说，作为一个例子，我需要添加：

nt service\BFE到HKLM\currentcontrolset\services\bfe\parameters\policy。然后我必须使用高级，添加bfe，然后使用特定权限，如设置，读取，查询值，删除，但不能完全控制。

如何使用脚本语言以编程方式执行此操作？

感谢。

Answer 1

使用regini.exe。

所以我无法设置用户完全控制权，但是每个人都可以完全控制。

有关regini脚本中使用的值的详细信息，请参阅以下文章：

• How to Use Regini.exe to Set Permissions on Registry Keys

• How to: Use a Script to Change Registry Permissions from the Command Line

这里有VBScript，它将使用regini.exe及其脚本：

' Create a temp file with the script that regini.exe will use
'
set oFSO = CreateObject("Scripting.FileSystemObject")
strFileName = oFSO.GetTempName
set oFile = oFSO.CreateTextFile(strFileName)
oFile.WriteLine "HKEY_LOCAL_MACHINE\Software\Classes\AlejaCMaTypelib [1 5 7 11 17]"
oFile.WriteLine "HKEY_LOCAL_MACHINE\Software\AlejaCMaCo\AlejaCMaApp [1 5 7 11 17]"
oFile.Close

' Change registry permissions with regini.exe
'
set oShell = CreateObject("WScript.Shell")
oShell.Run "regini " & strFileName, 8, true

' Delete temp file
'
oFSO.DeleteFile strFileName

WScript.Echo "Done!"