Lecture base de registre distante

Bonjour,
J'ai réellement cherché, mais je ne trouve que de vieux posts de 2006.
Et rien n'est jamais complet si on doit ajouter une référence ou non.

J'ai besoin de lire plusieurs clefs de la base de registre de plusieurs serveurs.

Je suis désolé, je ne parviens pas à trouver une réponse complète.
Merci pour votre aide.

Hello,
essai ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Const HKEY_CURRENT_USER = &H80000001 Sub TestME() Dim temp As Object Dim strComputer As String Dim rPath As String Dim arrSubKeys() Dim strAsk strComputer = "localhost" Set temp = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") rPath = "Software\Microsoft\" temp.EnumKey HKEY_CURRENT_USER, rPath, arrSubKeys For Each strAsk In arrSubKeys Debug.Print strAsk Next End Sub

---

Cela vient lire la clé de registre Software\Microsoft\ sur l'ordinateur local (localhost)
Remplace le strComputer par le nom du serveur ( genre \\MonServeur ou par son adresse I.P ex :\\192.161.0.23) . Si cela ne fonctionne pas, il peut y avoir, un problème de communication, de droits, etc...

Ami calmant, J.P

Bonjour,
Le départ de ma recherche de valeur de clefs est : "HKEY_USERS \ .Default"
J'ai essayé d'adapter le code mais cela ne fonctionne pas. A savoir, le serveur distant sur lequel je veux lire la base des registres, nécessite un login et mot de passe pour ouvrir une session dessus.
Mon code ne doit-il pas inclure ces éléments?

Merci d'avance si vous pouvez m'aider.

Le code adapté (Retour de l'exécution : "Le serveur distant n'existe pas ou n'est pas disponible") :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub TestME() Dim temp As Object Dim strComputer As String Dim rPath As String Dim arrSubKeys() Dim strAsk ' strComputer = "localhost"   strComputer = "XX.XX.XXX.XXX"   Set temp = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") rPath = "Software\<Nom de mon dossier>\<Nom de ma Clef>\"   temp.EnumKey "HKEY_USERS \ .Default", rPath, arrSubKeys For Each strAsk In arrSubKeys Debug.Print strAsk Next   End Sub

---

Hello,

Citation:

---

Envoyé par StefLedoc

J'ai essayé d'adapter le code mais cela ne fonctionne pas. A savoir, le serveur distant sur lequel je veux lire la base des registres, nécessite un login et mot de passe pour ouvrir une session dessus.

---

Si le réseau est en domaine, il faut voir avec l'administrateur réseau si il y a moyen d'avoir un utilisateur commun à toutes les machines pour lire les clés de registres. En étant loggué sur une machine avec cet utilisateur, on pourra accéder aux autres machines sans demande de mot de passe. Mettre des comptes et des mots de passe en dur dans du code n'est pas du tout conseillé pour la sécurité ou alors il faut saisir le compte et le mot de passe pendant l'exécution du programme.
Ami calmant, J.P

Je vais en effet voir avec l'administrateur mais je ne pense pas que ce soit l'erreur de mon programme.
J'ai déjà effectué la fonction faisant presque pareil, se connecter, puis rapatrier des fichiers. Sur le même serveur.

Je vais faire vérifier surtout les valeurs d'adresse.

Pour ce qui est d'avoir des données en dur, oui je suis d'accord. Je n'ai mis en dur que sur l'exemple copié sur le forum. Trop long à adapter avec l'ensemble du process des variables de mon projet.

L'adresse URL était mauvaise.
Mon programme, modifié via une source précédente dans ce forum, pour intégrer le login/mot de passe se connecte.
J'ai une erreur du type

Citation:

---

Erreur automation

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Public Function GetRegKeyValue() As String   Dim sUserName As String, sPass As String, strkeypath As String, strValueName As String, sComputerIP As String Dim SWBemlocator As Object, objWMIService As Object, objRegistry As Object   Dim sNomClefTMP As String, sValeurClefTMP As String   sUserName = "<Domaine>\<Login>" sPass = "Pass" sComputerIP = "XX.XX.XXX.XXX"   strkeypath = "Software\XXX\YYY\ZZZ\Version" sNomClefTMP = "NomClef"   Set SWBemlocator = CreateObject("WbemScripting.SWBemlocator") Set objWMIService = SWBemlocator.ConnectServer(sComputerIP, "\root\default", sUserName, sPass) Set objRegistry = objWMIService.Get("StdRegProv") Debug.Print objRegistry.GetStringValue("HKEY_USERS\.DEFAULT\", strkeypath, sNomClefTMP, sValeurClefTMP) --> Erreur d'exécution : -2147217403 (80004 1005) / Erreur Automation Debug.Print sValeurClefTMP   End Function

---

--> Des idées s'il vous plait?

Bonjour à tous,

J'en appelle à votre gentillesse et votre générosité (en terme de temps passé sur mon sujet).
Je suis sur la fin d'un étape de mon projet, et la fonction de récupération de valeurs de différentes clefs de registre que je mettrai ensuite dans une boucle de répétition, est le dernier élément qui me manque.

Cela aurait été génial pour moi de finir cette fin de semaine ou à peine plus.

En MP ou autre, je vous remercie d'avance si l'un de vous a le temps de m'aider à terminer cette fonction.

Encore merci à tous pour votre aide précédente de toute façon.