Aller au contenu
  • Pas encore inscrit ?

    Pourquoi ne pas vous inscrire ? C'est simple, rapide et gratuit.
    Pour en savoir plus, lisez Les avantages de l'inscription... et la Charte de Zébulon.
    De plus, les messages que vous postez en tant qu'invité restent invisibles tant qu'un modérateur ne les a pas validés. Inscrivez-vous, ce sera un gain de temps pour tout le monde, vous, les helpeurs et les modérateurs ! :wink:

blue wave

nom de l'ordinateur dans la base de registre en VB6?

Messages recommandés

salut,

 

je suis confronté à un petit problème..

j'aimerais retourner le nom de l'ordinateur sur lequel je me trouve, en utilisant la base de registre. Je code en VB6

L'information se trouve là :

 

Hkey_local_machineSystemControlSet001ControlComputerNameComputerNameComputerName

 

J'aimerais éviter d'utiliser un contrôle de transfert Internet.

 

J'ai essayé les regEnumValue (visionneuse API)... mais rien n'y fait, je ne capte pas le truc.

 

Est-ce que quelqu'un pourrait me donner un coup de pouce ?

Merci !!

bonne journée ! :P

Partager ce message


Lien à poster
Partager sur d’autres sites

Au fait, la visionneuse d'API date un peu et elle n'est pas du tout documentée.

 

Tu devrais télécharger l'API Guide 3.6. (il y a toutes les API et il y a des exemples pour chaque)

 

Sinon tu as l'API Viewer 2001, c'est comme la visionneuse, mais avec beaucoup plus d'API (mais pas d'exemples)

Partager ce message


Lien à poster
Partager sur d’autres sites

Je me disais bien qu'il devait y avoir un truc pour récupérer le nom du poste sans avoir à coder 50 lignes....

 

en tout cas, j'aurai appris plein de trucs sur la Registry....

 

en fait, il faut utiliser le

GetComputerName

 

et voici un code démo qui vient de l'api guide 3.7 :

aplus et bon week-end

blue wave

:P

 

Option Explicit

 

Private Const MAX_COMPUTERNAME_LENGTH As Long = 31

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()

Dim dwLen As Long

Dim strString As String

'Create a buffer

dwLen = MAX_COMPUTERNAME_LENGTH + 1

strString = String(dwLen, "X")

'Get the computer name

GetComputerName strString, dwLen

'get only the actual data

strString = Left(strString, dwLen)

'Show the computer name

MsgBox strString

End Sub

Partager ce message


Lien à poster
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant

  • En ligne récemment   0 membre est en ligne

    Aucun utilisateur enregistré regarde cette page.

×