En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1015175 visiteurs

 1 visiteur en ligne

Nom de l'ordinateur

Obtenir le nom de l'ordinateur en cours

Utilisez une fonction qui renvoie le "ComputerName"

'/
'/ A placer dans la partie déclarative
'/
Private Declare Function api_GetComputerName _
           Lib "kernel32" Alias "GetComputerNameA" _
           (ByVal lpBuffer As String, nSize As Long) As Long

La fonction :  

Public Function fComputerName() As String
    If Len(Environ$("ComputerName")) = 0 Then
        Dim NBuffer As String
        Dim Buffsize As Long
        
        Buffsize = 16
        NBuffer = Space$(Buffsize)
        Call api_GetComputerName(NBuffer, Buffsize)
        fComputerName = Trim$(NBuffer)

        If Right(fComputerName, 1) = Chr(0) Then
            fComputerName = Left(fComputerName, Len(fComputerName) - 1)
        End If
    Else
        fComputerName = Environ$("Computername")
    End If

End Function


Catégorie : Les mémos - Administration
Page lue 6240 fois

Vous êtes ici :   Accueil » Nom de l'ordinateur