Script para alterar permissões de registro

Fala ai pessoal, Tudo certo?

Esta semana, precisei criar um script que dava permissão de Full Control em uma chave do registro dentro do HKLM para todos os usuários.

Segue abaixo o script utilizado.

No exemplo abaixo, irei dar permissão de Full control para os usuários abaixo nas chaves:

- HKEY_CLASSES_ROOT\ManualdaInformatica
- HKEY_LOCAL_MACHINE\Software\Rafael

Para os seguintes usuários:

- Creator Owner Full Control
- Users Full Control
- Power Users Full Control
- Administrators Full Control
- System Full Control

Segue o script abaixo, o mesmo precisa ser salvo como vbs e no meu caso, configurei em uma GPO de inicialização do computador:

' Create 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_CLASSES_ROOT\ManualdaInformatica [1 5 7 11 17]"
oFile.WriteLine "HKEY_LOCAL_MACHINE\Software\Rafael [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!"

Para mais informações adicionais e outros tipos de configuração, você pode acessar os seguintes links:

http://support2.microsoft.com/?kbid=237607
http://support2.microsoft.com/Default.aspx?kbid=245031

Abraço pessoal e Boa semana