> 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: "+localhostname >>