[VBS] Supprimer une clé de registre

Résolu
Strom26 Messages postés 3 Statut Membre -  
Strom26 Messages postés 3 Statut Membre -
Bonjour a tous,

Etant novice en programmation, j'aurais besion de votre aide.
Mon probleme est le suivant :

je dois trouver une ligne de code en VBS pour supprimer une clé dans le registre

exemple :

le nom de la clé que je voudrais effacer : HKEY_USERS\S-1-5-18\Control Panel\Colors ( c'est juste pour exemple )

je voudrais donc pouvoir effacer la clé/dossier Colors ainsi que ceux qu'il contient.

ps : j'ai absolument besoin d'une ligne de code en VBS pas de soft ou autre langage

Merci !
Configuration: Windows XP
Firefox 2.0.0.3

4 réponses

  1. Strom26 Messages postés 3 Statut Membre 12
     
    Merci pour ton aide, j'ai résolus mon problème :)

    -----------------------------------------------------------

    Dim WshShell,pKey

    Set WshShell = WScript.CreateObject("WScript.Shell")

    pKey = "HKEY_LOCAL_MACHINE\SOFTWARE\test\"

    WshShell.RegDelete pKey

    -----------------------------------------------------------

    Voila les lignes de commande pour supprimer une clé dans la base de registre.
    10
  2. dubcek Messages postés 18627 Date d'inscription   Statut Contributeur Dernière intervention   5 659
     
    Là http://www.laboratoire-microsoft.org/scripts/7681/

    Supprimer une clé de registre
    Par Joachim GOMARD, LABORATOIRE SUPINFO DES TECHNOLOGIES MICROSOFT
    Publiée le 27/10/2004 vers 13h.
    Description :
    Ce script VBS permet de supprimer une clé de registre.

    Script :

    Const HKEY_LOCAL_MACHINE = &H80000002

    strComputer = "."

    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

    strKeyPath = "SOFTWARE\Test"

    oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath
    0
  3. Strom26 Messages postés 3 Statut Membre 12
     
    merci pour ton aide mais, chez moi le script ne marche pas pourtant je suis bien en admin sur ma machine.

    Voici mon script :

    Const HKEY_LOCAL_MACHINE = &H80000002

    strComputer = "."

    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

    strKeyPath = "SOFTWARE\Microsoft\test"

    oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath

    -------------------------------------------------------------------------------

    je n'ai editer que cette ligne : strKeyPath = "SOFTWARE\Microsoft\test"
    la seul ligne a editer ? ou ai-je fait une autre erreur ?

    Merci !
    0