Regedit a distance

Soyez le premier à donner votre avis sur cette source.

Vue 24 840 fois - Téléchargée 1 934 fois

Description

Salut,

J'ai depose recemment une source permettant de gerer la base de registre,
Apres plusieurs demande, je depose cette source qui est la meme,
mais pour gerer une base de registre sur un PC distant.

++

Source / Exemple :


Le Nom de l'ordinateur distant doit juste etre defini une fois en public
et puis vous avex acces a toutes ces fonctions:

' Ecriture de valeur 
ModReg.EcrireRegString 
ModReg.EcrireRegDword 
ModReg.EcrireRegBinaire 
ModReg.EcrireExpand 
ModReg.EcrireRegMultiSz 
ModReg.EcrireRegValeur 'ecrit la valeur avec un type specifie 
  
'toutes les donnees a ecrire doivent etre en string, 
'exemple pour une valeur binaire, 
  
Chemin = "HKEY_CURRENT_USER\Software\Ma cle" 
ModReg.EcrireRegBinaire Chemin,"Ma valeur", "01 FF 84 00" 
  
'exemple pour une valeur dword, 
ModReg.EcrireRegDword Chemin,"Ma valeur", "1" 
  
  
' Lecture de valeur 
  
ModReg.LireRegChaine 
ModReg.LireRegDword 
ModReg.LireRegBinaire 
ModReg.LireRegExpand 
ModReg.LireChaineMultiple 
ModReg.LireRegValeur lit la valeur et renvoi le type 
' toutes les donnees sont revoyees en string 
  
ModReg.CleExist 
ModReg.ValueExists 
ModReg.ContientSousCles 
ModReg.ImportRegFile 
ModReg.SaveRegTofile 
ModReg.RegCreerCle 
ModReg.RegSupprimerCle 
ModReg.KillValue 
  
' Oup's j'ai oublie l'enumeration.. 
  
'Enumeration de valeurs 
ModReg.EnumererValeur ' renvoi 3 tableaux + le nombre de valeurs et la date de derniere acces en ecriture sur la cle 
'tableau 1 le noms des valeurs 
'tableau 2 les donnee 
'tableau 3 le type de valeur 
  
Exemple: 
Dim chemin as string 
Dim Valeurs() as string 
Dim Donnees() as string 
Dim ValTypes() as string 
Dim LastAcces as string 
Dim Counts as long 
  
Counts = ModReg.EnumererValeur(Chemin, Valeurs(), Donnees(), ValTypes(), LastAccess) 
  
'Enumeration de cle 
ModReg.EnumererCle 'renvoi le nombre de sous-cle, + renvoi un tableau pour contenant les sous-cle, + un tableau indiquant pour chaque sous-cles, si elle contient aussi des sous cle 
Exemple 
  
Dim Chemin as string 
Dim SousCles() as String 
Dim CleContientSouscles() as Boolean 
Dim Counts a Long 
  
Counts = ModReg.EnumererCle(Chemin, SousCles(), CleContientSousCles()) 

Remarque, 

pour lire et ecrire des valeurs du type:
REG_NONE 
REG_RESOURCE_LIST
REG_FULL_RESOURCE_DESCRIPTOR
REG_RESOURCE_REQUIREMENTS_LIST
utilisez la fonction EcrireRegBinaire ou LireRegBinaire et mentione le type de cle

Exemple pour une valeur REG_RESOURCE_LIST:
ModReg.EcrireRegBinaire(Chemin,"Ma valeur", "01 FF 84 00 01 FF 84 00 01 FF 84 00", REG_BINARY_RESOURCE_LIST)

Conclusion :


Important:
Le service d'acces a distace au registre, doit etre active sur les 2 Posts!

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
5
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
14 juin 2007

Bonjour à tous..
Une année plus tard.. A quoi ça sert un regedit bis ? Dans la banque où je travaille, à cause des policies, je n'ai pas accès à regedit mais je dois pouvoir connaitre la valeur de certaines clés et pouvoir en créer certaines autres, dans la limite de mes droits d'accès.. Malheureusement.
Par contre, je me demandais si tu pouvais me mettre sur la piste suivante... Je voudrais pouvoir ajouter l'onglet "permission" que tu as justement aussi dans le regedit mais je ne vois pas du tout comment m'y prendre.
Encore félicitations pour ton travail, ça m'aide bcp.
à+

Raymon
Messages postés
17
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
4 avril 2007

Salut
moi non seulement j'ai parfaitement compris comment utiliser ta source, qui d'ailleur est géniale pour un admin, mais en plus je l'utilise. Par contre il n'y aucune fonction de modification de valeur. Est il possible que tu en ajoutes une??
Merci.
Messages postés
625
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
25 novembre 2010

A la tienne crenaud76 ;)

Ca fait plaisir de voir que certains on bien compris le but du code :)

@+
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
27
Grillé par l'auteur de la source, à 3 minutes près !!

Christophe

P.S. : Si on repproche cela à cette source, que dire de celle proposant une calculatrice ????
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
27
L'interet ??? L'interet c'est d'avoir la possibilite d'ajouter les fonctionnalité de Regedit à un programme perso !!
En lui-même, ce code n'est effectivement pas d'un interet majeur (Regedit est la pour faire le boulot !) mais si un tel trouve qu'il manque des fonctionnalités à Regedit ?? Et bien il recode un regedit de son cru !!
Comme je l'ai dis plus haut, j'ai aussi bossé sur ce sujet (avec moins de succès !!) car j'ai developpé un programme permettant l'administration des postes de mon boulot : Une sorte de super console d'admin du réseau qui tient compte des spécificités de notre architecture, etc ... ET pouvoir y intégré des fonctions d'accès au registre à distance sans avoir à simplement lancé une instance du regedit de Microsoft, moi, ca me plait bien !!!
Il ne faut donc pas voir dans ce code, a mon avis, un simple plagia de Regedit, mais plutot un code réutilisable a souhait !!

Christophe
Afficher les 14 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.