K

- Base de connaissances

Accueil > API WINDOWS > GetComputerName

GetComputerName

mercredi 5 décembre 2012, par webmestre

Fichier DLL : kernel32.dll

Prototype VB6/VBA :

Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Prototype VB.NET :

Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Integer) As Integer

GetComputerName récupère uniquement le nom NetBIOS de l’ordinateur. Pour récupérer le nom d’hôte DNS (hostname), le nom de domaine DNS ou le nom DNS pleinement qualifié, appelez la fonction GetComputerNameEx. Des informations complémentaires sont fournies par l’interface IADsADSystemInfo.

Référence : MSDN

Exemple VB :
Dans l’exemple suivant, la fonction mise en place permet de récupérer le nom NETBIOS de l’ordinateur :

Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function sGetComputerName() As String
    '---Déclaration des variables---
    Dim nSize As Long
    Dim lpBuffer As String
    Dim ret As Long
   
    '---Remplissage du buffer---
    nSize = MAX_COMPUTERNAME_LENGTH + 1
    lpBuffer = String(nSize, Chr$(0))
   
    '---Récupère le nom de l'ordinateur---
    ret = GetComputerName(lpBuffer, nSize)
    lpBuffer = Left(lpBuffer, nSize)
   
    '---Retourne le nome de l'ordinateur---
    sGetComputerName = lpBuffer
End Function

Répondre à cet article

Plan du site | Suivre la vie du site RSS 2.0 | powered by NYSTEK-EDITIONS and NYSTEK-CONSULTING