recuperer le nom de l'ordinateur sur lequel l'application VB est installé

Question

Bonjour,

Je cherche le moyen d'extraire le nom de l'ordinateur sur lequel l'application  VB6 est installé 
exemple : 
RESEAU
Identification
Nom d'ordinateur --> "Moi"

crenaud76 · Answer

Utilise la variable d'environnement COMPUTERNAME, c'est le plus simple, sinon il y a une API : GetComputerName() dans la Kernel32

Christophe R.

Ickik · Answer

bonjour, 
voila un code repompe du site pour recuperer le nom du pc

Public Function Quel_Pc()
Dim strNomPc As String
Dim lngLongueur As Long
Dim result As Long
strNomPc = String(MAX_COMPUTERNAME_LENGTH + 1, 0)
lngLongueur = MAX_COMPUTERNAME_LENGTH + 1
result = GetComputerName(strNomPc, lngLongueur)
MsgBox strNomPc
End Function

tu peux le raccourcir, c'est tout a fait possible!

A+

crenaud76 · Answer

Il manque juste le Declare de l'API GetComputerName() mais je vous rappelle, au passage, qu'il ne faut pas abuser des API !!!! 
Dans le cas présent, l'usage de la var d'environnement est plus rapide que l'appel à l'API !!
De toute façon, les API sont généralement plus lente que quelques ligne de code VB pur ! 

Christophe R.

SIGVALENCE · Answer

Bonjour,

Merci d'avoir repondu si rapidement à mon message.

J'ai oublié de dire que j'étais sous NT4

Je suis aussi un autodidacte sur VB et je n'ai que la version de base. cela suffit il?

Roland E

crenaud76 · Answer

Pas de souci, tu fais : 

dim sComputer as String

  sComputer = Environ("ComputerName")

Et ca gaze ....
Pour ce qui est de version Pro ou non de Vb, la seule différence, c'est qu'en version Pro tu as plus d'outils autour de VB (notemment en terme de travail sur les BdD) mais tu peux coder les mêmes choses.

Christophe R.

SIGVALENCE · Answer

Merci, ça marche

RolandE

Recuperer le nom de l'ordinateur sur lequel l'application VB est installé

6 réponses

Discussions similaires