Récup info dans base de registre

Question

Bonjour,  
 
Voilà mon problème, je souhaite récupérer le nom de l'ordinateur dans la base de registre et le faire apparaitre dans un textbox. Je suis sous vb6. 
 
J'ai essayé ceci mais ne marche pas : 
 
Set WshShell = CreateObject("Wscript.Shell") 
valeur = WshShell.RegRead("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName") 
 
J'espere que quelqu'un aura la solution. 
 
En vous remerciant. 
 
Bastien.

TheEwook · Answer

On peut aussi passer par les API

essai ca : 


' Déclaration de la fonction
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" ( ByVal lpBuffer As String, nSize As Long) As Long

Public Function ComputerName() As String
' Retourne le nom de l'ordinateur
Dim stTmp As String, lgTmp As Long
stTmp = Space$(250)
lgTmp = 251
Call GetComputerName(stTmp, lgTmp)
ComputerName = Split(stTmp, Chr$(0))(0)
End Function 


Dispo ici : http://www.vbfrance.com/code.aspx?ID=528

TheEwook

Récup info dans base de registre

1 réponse

Discussions similaires