Récupérer le nom de l'ordinateur
Soyez le premier à donner votre avis sur cette source.
Snippet vu 17 850 fois - Téléchargée 74 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
- Récupérer le nom de l'ordinateur
- 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
- [VB.NET] Récupérer le nom du PC ✓ - Forum - Visual Basic
- Récupérer nom colonne table sql ✓ - Forum - SQL
- Vba récupérer nom fichier sans extension ✓ - Forum - VBA Office (Excel, Word ...)
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.