Function NetUserName()  As String

    Local UserName As Asciiz * 256

    WNetGetUser ByVal %Null, UserName, SizeOf(UserName)

    Function = UserName

End Function