我想用VB编程来修改注册表某指定主键的权限（在WINXP/WIN2000/WIN2003）下。
比如说让
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services
相对 EVERYONE 只有读取权

我在网上搜了好久，都没有找到相应的VB程序
只找到了一个C源码，但我对C不熟。不知道哪位高人能帮帮俺。。。
C源码见：
http://www.eviloctal.com/forum/htm_data/26/0502/8156.html
如果搜索“API实现了regedt32修改注册表权限”，可以搜出上文


另外，还有一个命令行下运行的工具setacl.exe，可以修改注册表的权限，
但我不想用它，我想用API来实现。

[ 本帖最后由 areyong 于 2006-4-1 18:42 编辑 ]

#include <Windows.h>
#include <Aclapi.h>
#pragma comment (lib,"Advapi32.lib")

void main()
{
  DWORD dwRet;
  LPSTR SamName = "MACHINE\\SAM\\SAM";
  PSECURITY_DESCRIPTOR pSD = NULL;
  PACL pOldDacl = NULL;
  PACL pNewDacl = NULL;
  EXPLICIT_ACCESS ea;
  HKEY hKey = NULL;

  // 获取SAM主键的DACL
  dwRet = GetNamedSecurityInfo(SamName, SE_REGISTRY_KEY, DACL_SECURITY_INFORMATION,
          NULL, NULL, &pOldDacl, NULL, &pSD);
  if (dwRet != ERROR_SUCCESS)
  {
    printf("GetNamedSecurityInfo Error: %d\n", dwRet);
    goto FreeAndExit;
  }

  // 创建一个ACE，允许Everyone完全控制对象，并允许子对象继承此权限
  ZeroMemory(&ea, sizeof(EXPLICIT_ACCESS));
  BuildExplicitAccessWithName(&ea, "Everyone", KEY_ALL_ACCESS, SET_ACCESS,
    SUB_CONTAINERS_AND_OBJECTS_INHERIT);

  // 将新的ACE加入DACL
  dwRet = SetEntriesInAcl(1, &ea, pOldDacl, &pNewDacl);
  if (dwRet != ERROR_SUCCESS)
  {
    printf("SetEntriesInAcl Error: %d\n", dwRet);
    goto FreeAndExit;
  }

  // 更新SAM主键的DACL
  dwRet = SetNamedSecurityInfo(SamName, SE_REGISTRY_KEY, DACL_SECURITY_INFORMATION,
          NULL, NULL, pNewDacl, NULL);
  if (dwRet != ERROR_SUCCESS)
  {
    printf("SetNamedSecurityInfo Error: %d\n", dwRet);
    goto FreeAndExit;
  }

  // 打开SAM的子键
  dwRet = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SAM\\SAM\\Domains\\Account\\Users\\000001F4",
          0, KEY_ALL_ACCESS, &hKey);
  if (dwRet != ERROR_SUCCESS)
  {
    printf("RegOpenKeyEx Error: %d\n", dwRet);
    goto FreeAndExit;
  }

  printf("Open SAM Subkey Successfully.\n");

FreeAndExit:
  if (hKey) RegCloseKey(hKey);
  if (pNewDacl) LocalFree(pNewDacl);
  // 还原SAM主键的DACL
  if (pOldDacl) SetNamedSecurityInfo(SamName, SE_REGISTRY_KEY, DACL_SECURITY_INFORMATION,
                NULL, NULL, pOldDacl, NULL);
  if (pSD) LocalFree(pSD);
  return;
}

  
先把代码贴过来，研究一下