|
 |
 |
 |
| |
Nom d'ordinateur 
A copier dans un module :
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Const MAX_COMPUTERNAME_LENGTH As Long = 15&
Function NomOrdinateur() As String
Dim lSize As Long
Dim sBuffer As String
sBuffer = Space$(MAX_COMPUTERNAME_LENGTH + 1)
lSize = Len(sBuffer)
If GetComputerName(sBuffer, lSize) Then
NomOrdinateur = Left$(sBuffer, lSize)
End If
End Function
Le code pour recevoir le Nom de l'ordinateur :
MsgBox NomOrdinateur()
|
|
 |
|
 |
|
IDDN Certification
