Bonjour a tous,
 
J'ai ce script:
 
dim strComputer
 strComputer = InputBox ("Entrer l'IP ou le nom du pc.", "Boite de saisie", "Votre IP ici." )
Set objWMIService = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
 
 
Set WshShell = WScript.CreateObject("WScript.Shell" )
 
 
Function RunExe(StrPathKey)
WshShell.Run(StrPathKey)  
End Function
 
Function ReadKey(StrPathKey)
ReadKey = WshShell.RegRead(StrPathKey)
End Function
 
 
ReadKey ("HKEY_LOCAL_MACHINE\SOFTWARE\blabla" )
 
et lors de son execution un erreur survient:
 
Impossible de lire dans le registe la valeur HKEY_LOCAL_MACHINE\SOFTWARE\blabla
 
Je ne suis pas un pro de scripts donc un peu d'aide serai la bienvenue.
Merci!

essaye de remplacer  
 
Set WshShell = WScript.CreateObject("WScript.Shell" )  
 
par
 
Set WshShell = CreateObject("WScript.Shell" )
 
sinon :  
- essaye un test direct (sans passer par la variable StrPathKey)
- est-ce que tu es sûr que ta clé registre existe ?

Merci de ton aide.
 
En remplacant le Set... l'erreur est le même.
L'erreur est:
Unable to oprn redistry key HLM\... for reading
source: WshShell.RegRead

Je viens de tester ça chez moi et ça marche parfaitement !!
 

 
ça veut donc dire que c'est ta clé registre qui n'existe pas !
 

Bé si elle existe...