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.

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;