SET PROCEDURE TO VFPwinsock
loRadius_Access_Request = CREATEOBJECT("Radius_Access_Request")
WITH loRadius_Access_Request
  .RemoteHost = "192.168.6.70"
  .SharedSecret = "default"
  .Username = "test"
  .Password = "test"
   ? "Access_Request=", .Access_Request() && 2 = Acces-Accept
ENDWITH
loRadius_Access_Request=null