A voir également:
- Désactive par votre administrateur
- Pave tactile desactive - Guide
- Mot de passe administrateur - Guide
- Compte facebook désactivé - Guide
- Compte facebook piraté et désactivé - Guide
- Récupérer compte yahoo désactivé - Guide
1 réponse
Utilisateur anonyme
10 juin 2012 à 14:52
10 juin 2012 à 14:52
Copier le texte ci-dessous juste entre les pointillés dans Bloc-Notes.
L'enregistrer dans la racine C:\ sous le nom de fix_reg.vbs
Ensuite -> Démarrer\Exécuter
Taper cmd.exe
Dans la fenêtre d''invite de commandes, taper ceci :
cd\ ( Appuyer sur Entrée pour valider ) .
wscript fix_reg.vbs ( Appuyer sur Entrée pour valider).
Ensuite redémarrer .
............................................................................................
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
.................................................................................................
L'enregistrer dans la racine C:\ sous le nom de fix_reg.vbs
Ensuite -> Démarrer\Exécuter
Taper cmd.exe
Dans la fenêtre d''invite de commandes, taper ceci :
cd\ ( Appuyer sur Entrée pour valider ) .
wscript fix_reg.vbs ( Appuyer sur Entrée pour valider).
Ensuite redémarrer .
............................................................................................
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
.................................................................................................
