AutoLogon

'Dichiarazioni API/Global

Declare Function Wnetgetuser Lib "mpr" Alias "WNetGetUserA" (ByVal lpName
As String, ByVal lpUserName As String, lpnLength As Long) As Long
Public Function NetWorkUser() As String
Static strUser As String
If Len(strUser) Then
NetWorkUser = strUser
Exit Function
End If
Dim lpUserName As String * 64
If Wnetgetuser("", lpUserName, Len(lpUserName)) Then
strUser = CurrentUser()
Else
strUser = Left(lpUserName, InStr(lpUserName, Chr(0)) - 1)
End If
NetWorkUser = strUser

End Function