Lecture d'une clé de registre à distance

Bonjour,
je voudrai mettre en place un script devant aller vérifier la valeur d'une clé du registre d'un serveur 2003 depuis un autre serveur. J'ai conçu ce code:

Code:

---

1 2 3 4 5 6

Dim WshShell, value, objSWbemLocator, objSWbemServices Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") Set objSWbemServices = objSWbemLocator.ConnectServer("server", "root\cimv2", "login", "pass") 'objWMIServices.Security_.ImpersonationLevel = 3 Set WshShell = GetObject( "winmgmts:{impersonationLevel=impersonate}!\\REIMSMONPRO1\root\default:StdRegProv" ) value = WshShell.RegRead ("clé" & opt)

---

Lors de l'exécution du script, l'accès m'est systématiquement refusé. Je me suis renseigné à propos des modes d'authentification, mais tous mes essais se sont soldés par des échecs. Pouvez vous m'aider? Merci.

Le code me semble bon, je dirais plus un problème de droit d'accés.

Au passage, si je ne me trompe pas, la méthode SWbemLocator envois en clair sur le réseau ton login et ton pass.