>CLEAR all >clear >#DEFINE NO_ERROR 0 > >DECLARE INTEGER WNetGetUser IN mpr; > INTEGER lpName, STRING @lpUserName, INTEGER @lpnLength > >LOCAL lcUser, lnBufsize >lnBufsize = 250 >lcUser = Repli(Chr(0), lnBufsize) > >IF WNetGetUser(0, @lcUser, @lnBufsize) = NO_ERROR > ? "Default user name:", SUBSTR(lcUser, 1, AT(Chr(0),lcUser)-1) >ENDIF >RELEASE DLL "WNetGetUser" > >*OR > > >DECLARE INTEGER WNetGetUser ; >IN Win32API ; >AS GetLoginName ; > STRING, STRING @, INTEGER @ >LOCAL lcUserName, lnNameLength, lnResult >lnNameLength = 256 >lcUserName = SPACE( m.lnNameLength ) >lnResult = GetLoginName( 0, @lcUsername, @lnNameLength ) >lcUserName = LEFT( m.lcUserName, AT( chr(0), m.lcUserName)-1 ) > >? lcUserName >RELEASE DLL "WNetGetUser" >>
>>>? GETENV('USERNAME') >>>>>