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

 1238072 visiteurs

 14 visiteurs en ligne

Nous contacter

Contact

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 7510 fois
Vous êtes ici :   Accueil » Nom de l'ordinateur