Baixe o arquivo pronto: AQUI
Caso não queira baixar o arquivo pronto é só seguir os passos:
Salve este texto em um bloco de notas com extensão: vbs
'Habilitar Edição do Registro
'este código pode ser distribuído/modificado livremente
On Error Resume Next
'Previne contra erros que possam aparecer se as chaves não existirem
Set WshShell = WScript.CreateObject("WScript.Shell")
'Apaga os valores DisableRegistryTools do registro
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
'e mostra a mensagem
Message = "Você tem acesso ao seu registro novamente"
X = MsgBox(Message, vbOKOnly, "Pronto")
Set WshShell = Nothing
Set fso = Nothing
Nenhum comentário:
Postar um comentário