KATHER Produkties

'on a Module

Declare Function wu_WNetGetUser% Lib "USER.EXE" alias "WNetGetUser" (ByVal szUser$, lpnBufferSize%)
Global NovellName$

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 form1
    Else
        NetworkUserID = Left$(szUser, InStr(szUser, Chr(0)) - 1)
    end If
End Function

'Use as:
NovellName = NetworkUserID()
Return