local lcMachineName,lnLen,llRetVal declare GetComputerName in WIN32API string @,long @ lcMachineName=space(200) lnLen=200 llRetVal=GetComputerName(@lcMachineName,@lnLen) && Local computer name from registry * public IPSocket * IPSocket = CreateObject("MSWinsock.Winsock") * if type('IPSocket')='O' * IPAddress = IPSocket.LocalIP * localhostname=IPSocket.localhostname * endif * Email MIS * cemailline1="Error in TT3 Active Program "+mprog+ " err "+ cmerror+ CHR(10)+CHR(13) cemailline12="Network Information "+iif(llRetval,left(alltr(lcMachineName),len(alltr(lcMachineName))-1),.Null.) * cemailline13="Local IP: " + IPAddress * cemailline14="Local host: "+localhostnameEd B