Discussion :

[mithrendil]

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 :

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

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.

[ced600]

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.