obtener nombre usuarios conectados al sistema
Publicado por alejandro (1 intervención) el 19/08/2009 17:50:04
Hola a todos,
Quiero saber como obtener el nombre de los usuarios que se encuentran conectados
en mi sistema.
Tengo el siguiente codigo:
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
'Obtener nombre de usuario
Dim sBuffer As String
Dim nSize As Long
Dim Ret As Long
sBuffer = Space(255)
nSize = Len(sBuffer)
Ret = GetUserName(sBuffer, nSize)
MsgBox("Nombre de usuario: " & Left$(sBuffer, Len(sBuffer)))
End Sub
pero me sale el siguiente error:
Intento de leer o escribir en la memoria protegida. A menudo, esto indica que hay otra memoria dañada.
El sistema se cae en :
Ret = GetUserName(sBuffer, nSize)
Alguien puede ayudarme?
De ante manos gracias.
Quiero saber como obtener el nombre de los usuarios que se encuentran conectados
en mi sistema.
Tengo el siguiente codigo:
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
'Obtener nombre de usuario
Dim sBuffer As String
Dim nSize As Long
Dim Ret As Long
sBuffer = Space(255)
nSize = Len(sBuffer)
Ret = GetUserName(sBuffer, nSize)
MsgBox("Nombre de usuario: " & Left$(sBuffer, Len(sBuffer)))
End Sub
pero me sale el siguiente error:
Intento de leer o escribir en la memoria protegida. A menudo, esto indica que hay otra memoria dañada.
El sistema se cae en :
Ret = GetUserName(sBuffer, nSize)
Alguien puede ayudarme?
De ante manos gracias.
Valora esta pregunta


0