Récupérer le nom de l'ordinateur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 869 fois - Téléchargée 73 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
-
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
-
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
-
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
-
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
-
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

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.