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

 1223923 visiteurs

 13 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 : - Administration
Page lue 7454 fois
Vous êtes ici :   Accueil » Nom de l'ordinateur