Lire une sous clé d'une clé de la base de registre

Lire une sous clé d'une clé de la base de registre - VB/VBA/VBS - Programmation

Marsh Posté le 10-03-2011 à 14:18:04    

Bonjour,
 
Je souhaiterai forcer tous mes postes à être en auto au niveau de la vitesse "carte réseau"  
Pour cela je souhaiterai éplucher une clé spécifique dans la base de registre HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}
le soucis c'est que selon le constructeur la chaine speedduplex peut se trouver dans différentes sous clé de celle ci {4D36E972-E325-11CE-BFC1-08002BE10318}
comment puis-je lire toutes les sous clé de HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}
chercher la chaine speedduplex et la fixer en auto
 
Merci de votre aide
 

Reply

Marsh Posté le 10-03-2011 à 14:18:04   

Reply

Marsh Posté le 10-03-2011 à 15:50:29    

Hello
 
Jette un oeil la dessus :

Code :
  1. Sub kroum2()
  3. 'POUR INFO :
  4. 'HKEY_CLASSES_ROOT     = &H80000000
  5. 'HKEY_CURRENT_USER = &H80000001
  6. 'HKEY_LOCAL_MACHINE = &H80000002
  7. 'HKEY_USERS = &H80000003
  8. 'HKEY_CURRENT_CONFIG = &H80000005
  10. 'on créé un objet pointant la bdr par un moniker
  11. 'je te laisse jeter un oeil ici :
  12. ' http://www.secretswindows.com/inde [...] ingapi.htm
  13. Set BDR = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv" )
  15. 'on défini notre clé de dépar
  16. CheminCle = "SYSTEM\CurrentControlSet\Control\Class"
  18. 'on enumère nos sous clé, et on affecte à une variable SousCles
  19. BDR.EnumKey &H80000002, CheminCle, SousCles
  20.  
  21. 'on recupere la chaine de chaque sous clé.
  22. For Each SousCle In SousCles
  23.     MsgBox SousCle
  24. Next
  26. End Sub

:jap:


Message édité par SuppotDeSaTante le 10-03-2011 à 15:51:24

---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 10-03-2011 à 17:14:25    

Merci je vais regarder

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed