************************************************************************ PROCEDURE GetUserName ********************** *** Modified: 08/17/95 *** Function: Returns the name of the user logged into the *** network *** Pass: pcServer - Name of server or network resource *** must include "\\" for servers... *** *** Return: User Name used to connect to resource ************************************************************************ DECLARE Integer GetUserName ; IN WIN32API AS GUserName ; STRING @nBuffer, ; INTEGER @nBufferSize lcUserName=space(255) lnLength=len(lcUserName) lnError=GUserName(@lcUserName,@lnLength) RETURN TRIM(CHRTRAN(lcUserName,CHR(0),"")) *EOP GetUserName