Recherche
Recherche
Les mémos
Je débute...
Visites

 996459 visiteurs

 2 visiteurs en ligne

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 6151 fois