Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Returning user name from operating system
Message
De
29/05/1999 14:57:40
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Problèmes
Titre:
Returning user name from operating system
Divers
Thread ID:
00224380
Message ID:
00224380
Vues:
48
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?

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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform