Make your own free website on Tripod.com

Home
Home

--- Soumis par Dev Ashish---

Obtenir le nom du PC.

(Q) Comment retrouver le nom du PC ?

(A) Copier-coller le code dans un nouveau module, puis exécuter la fonction fOSMachineName.



'******************** Code Start **************************
Private Declare Function apiGetComputerName Lib "kernel32" Alias _
    "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function fOSMachineName() As String
'Retourne le nom du PC
Dim lngLen As Long, lngX As Long
Dim strCompName As String
    lngLen = 16
    strCompName = String$(lngLen, 0)
    lngX = apiGetComputerName(strCompName, lngLen)
    If lngX <> 0 Then
        fOSMachineName = Left$(strCompName, lngLen)
    Else
        fOSMachineName = ""
    End If
End Function

'******************** Code End **************************