'# Déclaration des API (en en-tête de module)
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBudffer As String, nSize As Long) As Long
'==============================================
'= API de récupération du nom de l'ordinateur =
'==============================================
Function ActiveComputerName() As String
Dim cn As String
Dim ls As Long
Dim res As Long
cn = String(1024, 0)
ls = 1024
res = GetComputerName(cn, ls)
If res <> 0 Then
ActiveComputerName = Mid$(cn, 1, InStr(cn, Chr$(0)) - 1)
Else
ActiveComputerName = ""
End If
End Function
'===============================================
'= API de récupération du nom de l'utilisateur =
'===============================================
Function ActiveUserName() As String
Dim cn As String
Dim ls As Long
Dim res As Long
cn = String(1024, 0)
ls = 1024
res = GetUserName(cn, ls)
If res <> 0 Then
ActiveUserName = Mid$(cn, 1, InStr(cn, Chr$(0)) - 1)
Else
ActiveUserName = ""
End If
End Function