Récupérer le nom de l'ordinateur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 18 756 fois - Téléchargée 75 fois

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
TABEKOGilles Messages postés 2 Date d'inscription vendredi 8 avril 2005 Statut Membre Dernière intervention 30 septembre 2008
30 sept. 2008 à 13:32
Trop fort le truc en deux lignes.
Merci Alain_Guerin.

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

Dim sComputername as string

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

bien vu

:-)
CaptainZorg Messages postés 3 Date d'inscription mardi 14 janvier 2003 Statut Membre Dernière intervention 17 janvier 2003
5 mars 2003 à 14:15
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

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.