Discussion :

[pititepoulette75]

bonsoir a tous,
je galere grave en VBS pour supprimer des sous clés jusqu'a atteindre la clé et enfin pouvoir la supprimer
ex pour la sous clé :HKEY_CURRENT_USER\Software\Microsoft\hyju\uuki\tht

apres avoir cherché et n'étant pas une lumiere en prog, j'implore votre aide a tous

mmmerrkkkiiiii

[ced600]

et donc ?
Quel est le problème ?
Ou est ton code, ton algo ?
En quoi on peut t'aider ?

[pititepoulette75]

merci ced d'avoir lu ma demande.
apres recherches sur le net et site microsoft, j'ai pris un exemple et l'adapter par rapport a l'utilisation que je dois en faire :

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
27
28
Const HKEY_CURRENT_USER = &H80000001
 
Dim RegHive
 
'Sélection du registre.
RegHive = HKEY_CURRENT_USER
 
'Appel de la sous clé à supprimer
DelKey RegHive, "Software\Classes\CLSID\{750A6F62-F297-151C-8D61-040224007802}"
 
 
Dim strComputer, oReg, strKeyPath, arrSubKeys, subKey
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
 
strKeyPath = "Software\Classes\CLSID\{750A6F62-F297-151C-8D61-040224007802}"
oReg.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubKeys
 
If IsArray(arrSubKeys) Then
  'Vérification si clé  en debut de clé
   For Each subKey In arrSubKeys
       If InStr(subKey,"{750A6F62-F297-151C-8D61-040224007802}") = 1 Then
               'Appel de procédure DelKey
          DelKey HKEY_CURRENT_USER, strKeyPath + "\" + subKey
       End if
   Next
End If

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
Sub DelKey(RegRoot, sPath)
   Dim sKeys
   Dim SubKeyCount
   Dim objRegistry
   Dim lRC
   Dim lRC2
   Dim Key
 
   Set objRegistry = GetObject("winmgmts:root\default:StdRegProv")
   lRC = objRegistry.EnumKey(RegRoot, sPath, sKeys)
 
   If IsArray(sKeys) Then
      for each Key in sKeys
         DelKey RegRoot, sPath & "\" & Key
      next
   End If
 
   lRC2 = objRegistry.DeleteKey(RegRoot, sPath)
 
End Sub

---
bon ya peut etre des trcus qui servent pas parceque je comprends pas tout mais ça marche :-)