Dave Crabbe

+----------------------------
Dave Crabbe
NSCC Burridge Campus
Yarmouth, Nova Scotia, Canada

The VB Environ/Environ$ function will return a DOS environmental
variable- you cannot assume that the Novell Administrator set up a
variable called NOVELL_USER_NAME. Even if the administrator had set up
such a variable, nothing keeps the user from then changing it from
DOS.

There's an API call I do not remember -- In (???) NWCALLS.DLL (???)
that will return the Novell User ID. From what I recall, *that* call
works for Netware 3.x, not 4.x.

Dave

+----------------------------
Dave Crabbe
NSCC Burridge Campus
Yarmouth, Nova Scotia, Canada

'put this in youre module section on one (1) line
Declare Function wu_WNetGetUser% Lib "USER.EXE" Alias "WNetGetUser" (ByVal
szUser$, lpnBufferSize%)

'put this on the StartForm
Sub check_user ()
    Dim loginname

On Error GoTo fout_user

    'username opvragen
    loginname = NetworkUserID()

    If loginname = "" Then
        MsgBox "You must logon to a Novell network..."
        Unload StartForm
    End If

    'programma starten
    Exit Sub

fout_user:
        msgbox cstr(err)
        Unload StartForm
End Sub

'same for this function
Function NetworkUserID () As String
    Dim szUser As String * 255
    Dim lpnBufferSize%
    Dim status%

    lpnBufferSize = 255
    status = wu_WNetGetUser(szUser, lpnBufferSize)
    If status = 3 Then
        NetworkUserID = "Error"
        Unload StartForm
    Else
        NetworkUserID = Left$(szUser, InStr(szUser, Chr(0)) - 1)
    End If
End Function

So when you want to know the username you use the command 'check_user'. If you
make the variable LoginName (in the proc check_user) global you can use the
variable in all the other procedures.

good luck
gr. walther

n.b. it works with w3.x but also with w95.