Discussion :

[johnny2004]

bonjour
J’ai voulu faire exécuter après regist sa ma répondu : la modification du registre a été désactivée par votre administrateur
L’administrateur c'est moi et je n'ai jamais fait ceci pour plus d'information je viens de réinstallé XP
Merci

[Guardian]

C'est soit un virus, qui peut parfaitement avoir été conservé malgré la réinstallation d'XP, soit une clef altérée.

Donc, d'abord éliminer la possibilité que ce soit, comme c'est le plus souvent le cas, un virus.

Si ce n'est pas un virus, tu peux utiliser le code ci-dessous qui va corriger les clefs altérées :
C'est du VBS donc tu doit :

1. Ouvrir le bloc-note
2. copier le code dans le bloc-note
3. sauvegarder le bloc-note dans un fichier repareg.vbs

Tu peux sauvegarder le fichier sur ton bureau pour plus de facilité ou ailleurs pour autant que tu puisses le retrouver et l'exécuter. (Le nom n'a pas d'importance, mais l'extension doit être .vbs)

Code VBS :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Set WshShell = WScript.CreateObject("WScript.Shell")
With WScript.CreateObject("WScript.Shell")

On Error Resume Next

.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
.RegDelete "HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD"
.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableTaskMgr"

End With

Mybox = MsgBox(jobfunc & enab & vbCR & "Finished!", 4096, t)

[johnny2004]

bonsoir
merci pour la reponse apres l'avoir enregistre en vbs j'en fais quoi
merci

[DOLPat®]

Bonsoir

Tu lances l'exécution du script en double-cliquant sur le nom du fichier.

[johnny2004]

bonsoir
je l'ai enregistrer mes j'ai cliquer 2 fois sa n'a rien fais je l'ai juste renomer en vbs
merci

[Guardian]

Tu as renommé quoi en vbs ?

Si le script a été correctement copié, sauvegardé et exécuté, tu dois avoir une fenêtre qui t'affiche le message "Finished!"

[johnny2004]

se que ma donné ArielD je l'ai mis dans le bloc note aprés je 'lai enregistré et ensuite je l'ai renommé voila
merci

[DOLPat®]

Apparemment tu n'as pas correctement suivi les instructions...
Télécharge directement le fichier en pièce jointe, décompresse l'archive et exécutes le script.

[johnny2004]

bonsoir
merci a vous tous je vous tien au courant

[johnny2004]

Bonjour
Ça c'est bien installé mais ça n'a rien fait. Si vous avez une autre solution je suis preneur
Merci à vous

en plus j'ai voulu faire une restauration systeme impossible de la faire

[l_autodidacte]

Salut;

Dans le code précité, je ne vois pas ce que représentent les termes "jobfunc" et "enab" et quelle en est l'utilité !

Un moyen pour savoir si le registre est accessible ou non est d'exécuter le code suivant et même s'il s'agit d'un virus(me semble-t-il), on aura droit à accéder au registre puisqu'il sera automatiquement ouvert à partit de ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
Const Key = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
Const sValue = "DisableRegistryTools"
Dim Obj, sData,WS

       sData = InputBox("Choisir une valeur :" & vbNewLine _
       & "0  =  Activer le registre" & vbNewLine _
       & "1  =  Désactiver le registre" & vbNewLine _
       & "Quel est votre choix ?",, 0)
 
  If sData <> "" And (sData <= 1 and sData>=0) Then
   Set Obj = WScript.CreateObject("WScript.Shell")
    Obj.RegWrite Key & sValue, sData, "REG_DWORD"
  Else MsgBox "Une erreur s'est produite suite à une" _
              & VbNewLine & "valeur entrée non valide. Recommencer" _
              & VbNewLine & "en mettant soit 0 soit 1.",VbCritical,"Erreur..."
        Wscript.Quit 
  End if
    If Err Then
     MsgBox Err.Description, vbOKOnly + vbCritical, "Erreur d'enregistrement","Reg Error"
    Else: MsgBox "Inscription dans le registre réussie", vbInformation,"RegWrite"
    End If
    Set Obj = Nothing
  Set WS=CreateObject("WScript.Shell")
  WS.Run "RegEdit.exe",1,True
  Set WS = Nothing

Si ce n'est pas le cas, on peut peut-être y accéder de la façon suivante:
1 - Menu Démarrer => Exécuter et tape gpedit.msc puis OK
2 - Développe l'arborescence : Stratégie Ordinateur Local\Configuration utilisateur\Modèles d'administration\Système
3 - Une fois arrivé sur Système, recherche dans le volet droit l'entrée Empêcher l'accès aux outils de modifications du registre et double-clique dessus.
4 - Dans la fenêtre qui s'affiche, choisis l'option Désactivé puis le bouton Appliquer.
5 - Ferme ensuite l'utilitaire. Un redémarrage peut s'avérer nécessaire dans ce cas.

[johnny2004]

bonjour
ceci ne marche pas
Menu Démarrer => Exécuter et tape gpedit.msc puis OK

le code que tu ma donné je le place ou
merci de votre aide
je n'ai pas de virus et le disque dur et nouveau

[ABDNED]

Décompresse ce fichier, exécute le et redémarre to pc, ça devrais marcher

[l_autodidacte]

le code que tu m'a donné je le place où

Copie-le dans un éditeur de textes(Notepad ou Wordpad) puis enregistre-le sous Reg.vbs par exemple puis double-clique sur le fichier que tu viens de créer.

[Guardian]

je n'ai pas de virus

Tu ne trouves pas de virus me semble plus correct.
Sans cela tes symptômes n'ont aucune raison d'être.

Quelle version XP as-tu installée ?
(merci d'être très précis, c'est important)

[johnny2004]

bonjour
Me revoilà je ne suis pas partit coupure de internet de deux jours
Exacte pour la réponse je n’ai pas de virus il faut surtout que je dise je n’en n’ai pas trouvé