Помгите с автоподключением инета

[Lexp1]

подключаю через rasdial.exe, инет подключается, постоит так секунды 3 и отключается. Стоит касперский может он его отрубает, ничего не пойму

procedure TForm1.Button2Click(Sender: TObject);

var

cmd, par, fil, dir: PChar;

begin

cmd := 'open';

fil := 'rasdial.exe';

par := PChar(edit1.Text + ' ' + edit2.Text + ' ' + edit3.Text);

dir := 'C:\WINDOWS\system32';

ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);

end;

[Intel_agent]

Lexp1, необходимо запускать с параметрами, имя подключения, имя пользователя и пароль (может еще что-то, сейчас точно не помню, раньше простой батник делал, все работало на ура)

[D_Master]

Подключить:

rasdial ИМЯ_ПОДКЛЮЧЕНИЯ ЛОГИН ПАРОЛЬ

Отключить:

rasdial ИМЯ_ПОДКЛЮЧЕНИЯ /disconnect

[Lexp1]

я говорю он потом отключается через пару секунд также как у автодозвона в юзергаде..., вот в чём загвоздка, как сделать чтоб не отключался?

[Vlad]

а собственно зачем? ты можешь описать что ты хочешь сделать?

[Lexp1]

Что зачем? Автодозвон зачем? Я просто не пойму почему он не работает... т.е. почему инет сразу после включения через rasdial он через пару секунд отключается, если подключаю вручную, т.е. сет.подключения>подключить то нормально...

[The_Ice]

Что значит "вручную": из-под консоли цеплялся rasdial'ом? Отрубал антивирус?

[Lexp1]

В общем через выполнить- rasdial name login pass всё ок и через сет.подключения>подключить, а вот через процедуру на делфи нет.

Через inet.bat в нём rasdial name login pass вообще не подключается, может там ещё надо параметры какие прописать?

процедура на делфи

procedure TForm1.Button2Click(Sender: TObject);

var

cmd, par, fil, dir: PChar;

begin

cmd := 'open';

fil := 'rasdial.exe';

par := PChar(edit1.Text + ' ' + edit2.Text + ' ' + edit3.Text);

dir := 'C:\WINDOWS\system32';

ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);

end;

антивирус отрубал, не помогло.

[kosv]

Мониторинг сети в касперском отключить попробуй