'Inserire la seguente dichiarazione in un modulo Bas
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 |