probleme base de registre

probleme base de registre - VB/VBA/VBS - Programmation

Marsh Posté le 08-11-2013 à 10:19:51    

Bonjour,  
 
Je dois faire un script(vbs) qui va faire une verification d'un fichier pour ensuite verifier la presence d'un KB dans la base de registre mais quand  
je lance le script tout ce passe bien jusqu'a la lecture de la base ou il me dit que l'objet Registre est requis  
 
'verification de la presence de mscomlocx
  Dim oFSO 'verification de la presence de mscom
  Set oFSO = CreateObject("Scripting.FileSystemObject" )
  MsgBox oFSO.FileExists("c:/Windows/system32/mscomctl.ocx " )
 
'si mscom present verification de la presence de KB2687441
  If oFSO.FileExists ("c:/Windows/system32/mscomctl.ocx " )Then  
  Registre.KeyExists ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{90120000-0012-0000-0000-0000000FF1CE}_STANDARD_{EF5B5C7F-20CB-4A3A-AC3D-F5DE2C2BFDC7}" )
  End If
 
pourquoi me fait t-il sa ?

Reply

Marsh Posté le 08-11-2013 à 10:19:51   

Reply

Marsh Posté le 08-11-2013 à 11:45:50    

Bonjour,
 
Je procède un peu différemment pour lire le registre.
Voici un exemple qui marche chez moi :

Set objShell = WScript.CreateObject("WScript.Shell" )
reg_val = objShell.RegRead _
    ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProgramFilesDir" )
Wscript.Echo reg_val

Reply

Sujets relatifs:

Leave a Replay

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