Declare GetComputerName in WIN32API string @,long @ >lcMachineName=space(200) >lnLen=200 >llRetVal=GetComputerName(@lcMachineName,@lnLen) >... >IPSocket = CreateObject("MSWinsock.Winsock") >... >? " This information is about your PC!" FONT "Courier",8 >?" Date and Time: "+ TtoC(DateTime()) FONT "Courier",8 >If Type('IPSocket')='O' > IPAddress = IPSocket.LocalIP > localhostname=IPSocket.localhostname > If llRetval > ?" Machine Name: "+ SubStr(lcMachineName,1,lnLen) FONT "Courier",8 > Else > ?" Machine Name: Undetermined!" FONT "Courier",8 > EndIf > ?" Local Host Name: "+localhostname FONT "Courier",8 > ?" Local IP: " + IPAddress FONT "Courier",8 >EndIf >