Regedit a distance

Télécharger le projet
Commenter

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!
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (draluorg)