>Hello:
>
>I'm using the following code in a method to return the user name from an o/s.
>The users full streettalk addresses are in the users file and when
>I test on my hard drive code works fine but when I put executable up on the network (Bayon) ,it works sporadically. Sometimes it works,
>other times it picks up the last user that logged in. Could it be
>that it's not closing the fhandle? Anybody have a similar problem
>that could offer some input?
>
Why not use an API call to get it - it's much easier:
DECLARE INTEGER GetUserName IN WIN32API ;
STRING @ lpBuffer, ;
INTEGER @ nSize
nBufLen = 261
cBuffer = SPACE(nBufLen)
IF GetUserName(@cBuffer, @nBufLen) # 0
? LEFT(cBuffer, nBufLen-1) && User name of current thread
ELSE
* something got squirelly
ENDIF
which gets you the Windows user name; if you have the Windows scripting host, available, so does:
oWSHNet = CREATEOBJ('Wscript.Network')
? WSHNet.UserName
>Any help would be appreciated.
>
>THanks.
>
>hld = ""
>hld1 = ""
>If file("Z:\WHOAMI.EXE")
> cmd_str = "Z:\WHOAMI > "+CTEMPPATH+"WHOAMI.TXT"
> Do DosRun with cmd_str
> fhandle = fopen(CTEMPPATH+"WHOAMI.TXT",0)
> tmp = fread(fhandle,60)
> tmp = substr(tmp,5,len(tmp))
> =fclose(fhandle)
>
> If not empty(tmp)
> hld1 = ATC("@", tmp)
> If hld1 = 0
> street_talk = ""
> Else
> nPos = hld1-1
> street_talk = Left(tmp,nPos)
> return street_talk
> Endif
> Endif
>
>
>Else
> hld = ""
> street_talk = ""
> return hld
>Endif
