Discussion :

[ced600]

Bonjour à tous,

J'aimerais acceder à une base de registre se trouvant sur un ordinateur distant dans le but de récupérer la valeur d'une clé. J'ai entendu parler de WSH, mais apparament il ne permet que de gérer la base de registre local.
J'ai essayé ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

GetObject("winmgmts:\\" & AdresseIpDeLaMachineDistante & "\root\default:StdRegProv")

Mais cela ne fonctionne pas.
Si connaissez un autre moyen pour acceder à une base de registre distante, je serais ravie que vous m'en fassiez part.

Par avance je vous remercie de votre aide.

[badack]

En fait, pour accéder à un PC Distant, tu dois compléter ton vbscript avec du WMI (qui est prévu pour ca).

strComputer = "machinename" => Corespond à la machine que tu veux joindre
UserName = "username" => Correspond au user qui a les droits d'accès sur la machine distante
Password = ""

Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
strComputer = "."
UserName = ""
Password = ""
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(strComputer,"\root\CIMV2",UserName,Password)
Set colItems = objWMIService.ExecQuery("Select * from Win32_Registry",,48)

[ced600]

Merci pour ton aide, mais malheuresement cela ne fonctionne toujours pas.
Lorsque j'exécute le code que tu as mis dans le message, et que STRCOMPUTER est égal à l'adresse IP du PC distant, j'obtiens l'erreur suivante :

Une exception non gérée du type 'System.Runtime.InteropServices.COMException' s'est produite dans microsoft.visualbasic.dll

Informations supplémentaires: Le serveur RPC n'est pas disponible.

Par contre losrque STRCOMPUTER est égal à l'adresse IP du PC local, cela fonctionne correctement.
Aurais tu une idée de la signification de cette erreur ?

[ced600]

Je viens de résoudre mon probème.
Un truc tout con le firewall.
En fait sous Windows XP SP2 le serveur RPC peut être desactivé par le firewall, pour plus d'information :

http://www.microforge.net/kb/39