tester une clef de registre + vb6Résolu

Question

Bonjour,

j'essayes de faire une fonction qui me retourne true ou false si une clef de registre existe ou pas !

Public Function CleRegistreExiste() As Boolean
Dim existe As Boolean


Dim val As String
val = ""


Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
val = WshShell.RegRead("HKLM\Software\Microsoft\Microsoft SQL Server\FRAMEWORK\MSSQLServer\CurrentVersion\CSDVersion")
Set WshShell = Nothing


If (val <> "") Then
    existe = True
Else
    existe = False    
End If
End Function

J'ai place un bouton sur ma form et j'appele ma function comme ceci :

Dim bo As Boolean


bo = CleRegistreExiste()
MsgBox bo

Le souci c'est qu'il me retourne toujours false alors que la clef a une valeur 
8...pour sql server 2000
9... pour sql server 2005

Avez vous une idée je debute sous vb6

Merci

cs_Chatbour · Accepted Answer

Salut à tous 

http://www.vbfrance.com/codes/ACCES-BASE-REGISTRE_3709.aspx

cs_JMO · Answer

Bonjour à tous,

Exemple à adapter pour vb6.

   Dim sKey, sPath
   Set WshShell = CreateObject("WScript.Shell")
   Set objFso = Createobject("Scripting.FileSystemObject")   
   sKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Outlook.EXE"
   sPath = Wshshell.regread(sKey)
   MsgBox objFso.getfileversion(sPath),,"vérif sKey"

jean-marc

PCPT · Answer

salut,

on utilise Set WshShell =   CreateObject("WScript.Shell") uniquement dans 2 cas :

* (pour   JMO  ) pour du code VBScript
* en VB6 pour être presque certain que son appli soit détectée comme un virus.... 

il faut passer par les API comme l'indique Chatbour

++
<hr size  ="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_jimmy69 · Answer

Salut salut,

je vous remercie pour vos idees et vos liens qui m'ont ete d'une grande utilite !

ca fonctionne ahhh le dev sous vb6 quand on ne connait pas c'est la galere moi je vous le dit !

Bonne semaine
Christophe

Tester une clef de registre + vb6

4 réponses

Votre réponse

Discussions similaires