VBS - Lecture dans registre - ERREUR

VBS - Lecture dans registre - ERREUR - VB/VBA/VBS - Programmation

Marsh Posté le 15-06-2004 à 13:38:28    

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!

Reply

Marsh Posté le 15-06-2004 à 13:38:28   

Reply

Marsh Posté le 15-06-2004 à 21:43:12    

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 ?


Message édité par couitchy le 15-06-2004 à 21:44:35
Reply

Marsh Posté le 16-06-2004 à 09:34:25    

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

Reply

Marsh Posté le 16-06-2004 à 19:31:27    

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

Code :
  1. Set WshShell = CreateObject("WScript.Shell" )
  2. Function ReadKey(StrPathKey)
  3. ReadKey = WshShell.RegRead(StrPathKey)
  4. End Function
  5. Msgbox ReadKey ("HKEY_LOCAL_MACHINE\SOFTWARE\test\a" )


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


Message édité par couitchy le 16-06-2004 à 19:32:39
Reply

Marsh Posté le 02-07-2004 à 10:21:20    

Bé si elle existe...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed