UserIDWinXX

Public Declare Function WNetGetUserA Lib "mpr" (ByVal lpName As String _
ByVal lpUserName As String, lpnLenght As Long) As Long
'Creare una funzione pubblica da richiamare cosi': MiaStringa = NomeUtente

Function NomeUtente() As String
Dim sUserNameBuff as String * 255
sUserNameBuff = Space(255)
Call WNetGetUserA( vbNullString , sUserNameBuff , 255&)
NomeUtente = Left$( sUserNameBuff , InStr( sUserNameBuff , vbNullChar ) - 1)
End Function