Récupérer le nom de l'ordinateur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 748 fois - Téléchargée 73 fois

Commenter

Contenu du snippet

Pour récupérer le nom de l'ordinateur courant, on peut utiliser la fonction API "GetComputerName". Elle est très simple à manipuler.

Source / Exemple : 


' 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

Conclusion :


Il ne faut pas oublier d'initialiser le buffer d'appel (stTmp) avec suffisament d'espace.

A voir également

Ajouter un commentaire

Commentaires

Signaler
TABEKOGilles
Messages postés
2
Date d'inscription
vendredi 8 avril 2005
Statut
Membre
Dernière intervention
30 septembre 2008
 -
Trop fort le truc en deux lignes.
Merci Alain_Guerin.

The Unyk Sniper
Signaler
theophile83
Messages postés
3
Date d'inscription
dimanche 10 décembre 2000
Statut
Membre
Dernière intervention
24 juin 2008
 -
Merci pour cette source qui marche dés le 1er essai
Signaler
Alain_Guerin
Messages postés
5
Date d'inscription
mardi 13 septembre 2005
Statut
Membre
Dernière intervention
17 février 2006
 -
Plus simple en 2 lignes de code:

Dim sComputername as string

sComputername = Environ("COMPUTERNAME")
Signaler
cs_jenial
Messages postés
10
Date d'inscription
mercredi 5 juin 2002
Statut
Membre
Dernière intervention
23 juillet 2004
 -
de même ce truc marche du premier coup,

bien vu

:-)
Signaler
CaptainZorg
Messages postés
3
Date d'inscription
mardi 14 janvier 2003
Statut
Membre
Dernière intervention
17 janvier 2003
 -
ouais merci, c sympa, j'avais deja fais un truc comme ca y a longtemps mais la tu m'aides beaucoup tu m'as fais gagné une heure dans ma journée
Afficher les 6 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Doc VB)