morganch
3819Messages postés
1 novembre 2009Date d'inscription
28 mai 2012Dernière intervention
10 févr. 2011 à 15:01
Décidément , le ciel vous tombe sur la tête .
Pour déverrouiller l'accès au registre , faire ceci :
Copier le texte ci-dessous juste entre les pointillés dans Bloc-Notes (ou autre éditeur de texte).
Enregistrer le directement dans C:\ sous le nom de fix_registre.vbs
Ensuite dans l'invite de commandes , saisir ceci :
cd c:\windows\system32
wscript.exe c:\fix_registre.vbs
......................................................................
Option Explicit
Dim WshShell, strUserName, strDomain, strSID
Dim objWMIService, colItems, objItem, arrName, objAccount
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")
For Each objItem in colItems
arrName = Split(objItem.UserName, "\")
strDomain = arrName(0)
strUserName = arrName(1)
Next
Set objAccount = objWMIService.Get _
("Win32_UserAccount.Name='" & strUserName & "',Domain='" & strDomain & "'")
strSID=objAccount.SID
If trim(strSID) <> "" then
WshShell.RegDelete ("HKEY_USERS\" & strSID & "\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools")
Msgbox "Completed!"
End if
................................................................
Redémarrer .
