Récupérer le nom de l'ordinateur
Soyez le premier à donner votre avis sur cette source.
Snippet vu 16 941 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.
Il ne faut pas oublier d'initialiser le buffer d'appel (stTmp) avec suffisament d'espace.
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
- Nom de l'ordinateur
- Récupérer le nom de l'ordinateur ✓ - Forum - PHP
- Visual Basic / VB.NET : Récupérer le nom du pc connecté à un serveur en - Guide
- C# / .NET : Récupérer le nom du pc connecté à un serveur en terminal se - Guide
- Pouvez-vous me dire comment récupérer les noms des utilisateur d'un PC et l'affi ✓ - Forum - VB.NET
- [VB.NET] Récupérer le nom du PC ✓ - Forum - Visual Basic
Commentaires
Merci Alain_Guerin.
The Unyk Sniper
Dim sComputername as string
sComputername = Environ("COMPUTERNAME")
bien vu
:-)
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.