Recuperation du nom de l'utilisateurRésolu

Question

Bonjour je cherche &#224; r&#233;cuperer le nom de l'utilisateur de la machine sur un prog en VB.Net

j'utilise

Declare 
Function GetUserName 
Lib "advapi32.dll" 
Alias "GetUserNameA" (
ByVal lpBuffer 
As 
String, 
ByVal nSize 
As 
Long) 
As 
Long
Que je place dans un module 

Dans mon code je mets une fonction


Public 
Function RecupNomUser() 
As 
String



Dim sBuff 
As 
String



Dim lRet 
As 
Long



Dim UserName 
As 
String


RecupNomUser = ""
sBuff = Space$(250)


lRet = 251



Call GetUserName(sBuff, lRet)


UserName = Trim$(Microsoft.VisualBasic.Left(sBuff, InStr(sBuff, Chr(0)) - 1)) 
'- enl&#232;ve les espaces -'





RecupNomUser = UserName



End 
Function



Il me plante sur la ligne du Call 
le message est :

Une exception non g&#233;r&#233;e du type 'System.NullReferenceException' s'est produite dans BDM.exe


Informations suppl&#233;mentaires : La r&#233;f&#233;rence d'objet n'est pas d&#233;finie &#224; une instance d'un objet.

Apr&#232;s diff&#233;rentes recherche tous les codes que je trouve sont identique &#224; celui ci donc je ne comprends pas tout. 
D'avance merci pour votre aide !

cs_lucio57 · Accepted Answer

J'ai trouv&#233; une autre solution 
je mets simplement une ligne

maVariable = Environ("UserName")

crenaud76 · Answer

Pourquoi sBuff = Space$(250) et lRet = 251 !!!!!!

Christophe R

cs_lucio57 · Answer

En fait mon code marchait comme &#231;a en VB6. 
Sauf que sBuff &#233;tait d&#233;clar&#233; en dim sBuff as string * 250 ce que je ne peux pas faire sous VB.net donc j'ai adapt&#233; pour que sBuff soit compos&#233; d'espace. lRet a 251 j'ai &#233;galement essay&#233; 250 voire 249 mais rien n'y fait en tout cas la m&#233;rhode environ marche parfaitement et est beaucoup plus simple