RadSetAttributeString Function

Action

Sets a string attribute in the list of attributes that is sent to the RADIUS server during authentication.

Include file

radius.bdh

Syntax

RadSetAttributeString( in nAttributeId    : number,
                       in sAttributeValue : string );
Parameter Description
nAttributeId

Attribute identification. Valid values are:

  • RAD_UserName

  • RAD_UserPassword

  • RAD_ChapPassword

  • RAD_CallbackNumber

  • RAD_State

  • RAD_Class

  • RAD_CalledStationId

  • RAD_CallingStationId

  • RAD_NasIdentifier

  • RAD_ProxyState

  • RAD_LoginLatService

  • RAD_LoginLatNode

  • RAD_LoginLatGroup

  • RAD_ChapChallenge

  • RAD_LoginLatPort

  • RAD_AcctSessionId

  • RAD_AcctMultiSessionId

  • RAD_NasIPAddress

  • RAD_FramedIpAddress

  • RAD_FramedIpNetmask

  • RAD_LoginIpHost

sAttributeValue String value of the attribute to be set.

Example

dcltrans
  transaction TRun
  var
    nCode : number;
  begin
    RadSetAttributeNumber(RAD_NasPort, 1234);
    RadSetAttributeString(RAD_CallingStationId, "+1 1234 123 1234");
    nCode := RadAuthenticate(RAD_AUTH_MSCHAP2, "user", "pass");
    if nCode = RAD_AccessAccept then
      Print("Authentication successful");
      Print("Service Type = " + string(RadGetAttributeNumber(RAD_ServiceType)));
      Print("Framed_Protocol = " + string(RadGetAttributeNumber(RAD_FramedProtocol)));
      Print("Login_IP_Host = " + RadGetAttributeString(RAD_LoginIpHost));
      Print("Login_TCP_Port = " + string(RadGetAttributeNumber(RAD_LoginTcpPort)));
      Print("Reply_Message = " + RadGetAttributeString(RAD_ReplyMessage));
    else
      Print("Authentication failed");
    end;
  end TRun;