Option Explicit
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, _
ByVal lpUserName As String, lpnLength As Long) As Long
Public Const NoError = 0
Public Function GetNom()
Const lpnLength As Integer = 255
Dim status As Integer
Dim lpName, lpUserName As String, UName As String, VNom As String
lpUserName = Space$(lpnLength + 1)
status = WNetGetUser(lpName, lpUserName, lpnLength)
If status = NoError Then
UName = Left$(lpUserName, InStr(lpUserName, Chr(0)) - 1)
Else
UName = "#INCONNU!"
Exit Function
End If
GetNom = UName
End Function