+ Responder ao Tópico



  1. Olá tenho estas funcoes que Inserem, Alteram, Excluem um cliente via dephi com telnet no mikrotik

    function Routerboard_InserirMac(sMac, sPassword_key, sPassword_pre_shared, sInterface, sComment: String; bAuthentication, bFowarding: boolean): string;
    begin
    if (sMac = '') or (sPassword_pre_shared = '') or (sComment = '') then
    Result := ''
    else
    Result := '/ interface wireless access-list add' +
    ' mac-address=' + sMac +
    ' interface="' + sInterface+ '"' +
    ' authentication=' + IIF(bAuthentication, 'yes', 'no') +
    ' forwarding=' + IIF(bFowarding, 'yes', 'no') +
    ' private-key="' + sPassword_key + '"' +
    ' private-pre-shared-key="' + sPassword_pre_shared + '"' +
    ' comment="' + sComment + '"';
    end;

    function Routerboard_HabilitarDesabilitarMac(sMac: string; bHabilitar: boolean): string;
    begin
    if bHabilitar then
    Result := '/ interface wireless access-list set [ find' +
    ' mac-address="' + sMac + '" ] ' + ' disabled=no'
    else
    Result := '/ interface wireless access-list set [ find ' +
    ' mac-address="' + sMac + '" ] ' + ' disabled=yes';
    end;

    function Routerboard_AlterarMac(sMac_Antigo, sMac_Novo, sPassword_pre_shared, sComment, sInterface: string; Habilitado: Boolean): string;
    begin
    if (sMac_Antigo = '') then
    Result := ''
    else
    Result := '/ interface wireless access-list set [ find' +
    ' mac-address="' + sMac_Antigo + '" ]' +
    ' mac-address="' + sMac_Novo + '"' +
    ' interface="' + sInterface+ '"' +
    ' private-pre-shared-key="' + sPassword_pre_shared + '"' +
    ' comment="' + sComment + '"' +
    ' disabled=' + IIF(Habilitado, 'no', 'yes');
    end;

    function Routerboard_RemoverPeloMac(sMac: string): string;
    begin
    if (sMac = '') then
    Result := ''
    else
    Result := '/ interface wireless access-list rem [ find ' +
    ' mac-address="' + sMac + '" ] ';
    end;


    As funcoes acima são apenas para compartilhar com alguem que precise, pois funcionaram beleza no meu sistema.

    Eu gostaria de pegar os clientes logado e jogar em um grid, em um memo...
    Se alguem puder me ajudar
    Eu o componente da IndTelNet

    Desde já agradeço.

  2. parabéns pelo trabalho e pela iniciativa,
    sucesso.






Tópicos Similares

  1. Quem Ja Fez Wds Com Duas Interfaces Wireless???
    Por socrates10 no fórum Redes
    Respostas: 3
    Último Post: 09-04-2008, 10:52
  2. Somente liberar alguns clientes na interface wireless
    Por laerciok no fórum Servidores de Rede
    Respostas: 2
    Último Post: 18-12-2006, 01:34
  3. Micro AP Problemas Interface WIRELESS
    Por fabianojean no fórum Redes
    Respostas: 1
    Último Post: 21-08-2006, 20:05
  4. Configuração de Interface Wireless
    Por pro2 no fórum Redes
    Respostas: 13
    Último Post: 27-06-2006, 16:29
  5. ips verdadeiros em interface wireless
    Por no fórum Servidores de Rede
    Respostas: 1
    Último Post: 15-07-2003, 20:02

Visite: BR-Linux ·  VivaOLinux ·  Dicas-L