put this in your procedure lib

PROCEDURE NetworkID
LOCAL LocalName, UserName, BufferSize
m.LocalName = CHR(0)
m.UserName = SPACE(40)
m.BufferSize = LEN(UserName)

DECLARE INTEGER WNetGetUser ;
IN WIN32API ;
AS GetUserID ;
STRING LocalName, ;
STRING @UserName, ;
INTEGER @BufferSize

cErrorCode = GetUserID(LocalName, @UserName, @BufferSize)

RETURN TRANSFORM(STRTRAN(m.UserName,CHR(0)))