Como Capturar a Matrícula de um Usuário

Trabalho aqui na CSN e usamos a Rede Novell, tive que fazer um programa que capturasse a matricula do usuário que estava logado na Rede, antes para fazer isso eu tinha que criar um form com a entrada da matricula do usuário e a senha, veja bem , essa matricula seria digitada pelo usuário.
com a Rotina abaixo, será possivel captura a Matricula.
*********************************

Crie um Módulo e coloque este código:

Option Compare Database   'Usar ordem do banco de dados para comparações
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long

Function NetworkUserID() As String
    'Essa Function captura o login da rede.
    Dim szUser As String * 255
    Dim lpUserName As String * 255
    Dim lpnBufferSize
    Dim status%
    lpnBufferSize = 255
    status% = WNetGetUser(szUser, lpUserName, lpnBufferSize)
    If status% = 3 Then
        NetworkUserID = "Error"
        Unload Form1
    Else
        NetworkUserID = Left$(lpUserName, InStr(lpUserName, Chr(0)) - 1)
    End If

End Function

A váriavel NetworkUserID  irá armazenar a Matrícula.

Sames Davis (lista access-br)