Fritz.Box Gastzugang aktivieren

[Natcree]

Hallo

Ich will über mein Programm mich in meine Fritzbox einloggen. Und anschließend den Gast Zugang aktivieren.

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  webbrowser1.Navigate('http://fritz.box/home/home.lua?sid=673058b530b4f2dc&login:command/password=molfr102');
  webbrowser1.Navigate('http://fritz.box/wlan/guest_access.lua?sid=8eada0064f00bcff&login:command/password=molfr102');
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  Webbrowser1.OleObject.document.forms.item(0).elements.item('uiviewactivateguestaccess').click;
  Webbrowser1.OleObject.document.forms.item(0).elements.item('apply').click;
end;

procedure TForm1.LMDDockSpeedButton1Click(Sender: TObject);
begin
  close;
end;

auf meinem Progrechner läuft es aber auf anderen nicht er zeigt mir invalid variant operation an. bzw er logt sich nicht ein.

Hat jemand ne Lösung parat ????