Internetzugang für Clients im Netzwerk steuern

[mkinzler]

Zitat von beanbear6:

Hi,
die witzige Möglichkeit find ich gleich
mal coool
*grins*
Gruß beanbear

Mir schwant böses...

[himitsu]

Wieso?

Bei meinem neuen Rechner daheim könnte ich das problemlos machen,
denn der hat 2 LAN-Karten und 2x WLAN, wovon man dann z.B. jeweils Eines für den Internetzugang und das Andere für die Steuerung verwenden könnte.


Bzw. alle anderen Rechner gehen in den einen LAN rein, werden via Brige zum anderen LAN durchgeschleift, welcher dann am Router hängt.
Gleiches geht via LAN und WLAN ... an einer Seite hängt das Internet und an die andere Seite kommen die zu kontrollierenden PCs.
Dann muß an den anderen PCs nichts gemacht werden, da alles nur über die Bridge auf dem einem PC geregelt wird.
Man könnte auch z.B. IP-abhängig die Verbindung zu dem PC regeln.

[mkinzler]

Es ging mir ja nicht um die Lösung sondern die Absicht, die dahintersteckt

[beanbear6]

Hi an alle,
also die Idee stammt aus einem Programm das
heißt irgendwie so: desktop manager. Ich bin
dozent in einer edv-schule und da hatten wir
sowas mal, wo man z.B. aus allen 20 PCs einfach
einen oder mehrere davon nen Internetzugang
ein/ausschalten konnte.
Nun war einfach die Idee, ob das irgendwie
auch über Delphi zu lösen wäre.
Ich vermute, dass da übers LAN einfach irgendwas
an den entsprechenden PCs eingestellt wird...
Gruß beanbear

[hathor]

Mit dem windowseigenen Programm NETSH kann man das machen:

Zitat:
Das Befehlszeilenprogramm "Netsh"

Bei Netsh handelt es sich um ein Befehlszeilen- und Skriptprogramm für Netzwerkkomponenten, die auf lokalen oder Remotecomputern eingesetzt werden. Mit dem Dienstprogramm Netsh kann darüber hinaus ein Konfigurationsskript in einer Textdatei gespeichert werden, um die Konfiguration zu archivieren und für weitere Server zu verwenden.

http://msdn.microsoft.com/de-de/libr...=ws.10%29.aspx

Beispiele:

Delphi-Quellcode:

procedure RunAsAdmin(hWnd: HWND; aFile: string; aParameters: string);
var sei: TShellExecuteInfo;
begin
     FillChar(sei, SizeOf(sei), 0);
     sei.cbSize := sizeof(sei);
     sei.Wnd := hWnd;
     sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
     sei.lpVerb := 'runas';
     sei.lpFile := PChar(aFile);
     sei.lpParameters := PChar(aParameters);
     sei.nShow := SW_HIDE;  // SW_SHOWNORMAL); SW_HIDE;
     if not ShellExecuteEx(@sei) then RaiseLastOSError;
end;
....
BEGIN //wlan on
strParams:= 'wlan delete filter permission=denyall networktype=infrastructure';
RunAsAdmin(Application.Handle,'netsh', strParams);
strParams:= 'wlan delete filter permission=denyall networktype=adhoc';
RunAsAdmin(Application.Handle,'netsh', strParams);
END
...
BEGIN //wlan off
strParams:= 'wlan add filter permission=denyall networktype=infrastructure';
RunAsAdmin(Application.Handle,'netsh', strParams);
strParams:= 'wlan add filter permission=denyall networktype=adhoc';
RunAsAdmin(Application.Handle,'netsh', strParams);
END
...
BEGIN //wwan on
strParams:= 'mbn connect interface="Mobile Broadband Connection"';
RunAsAdmin(Application.Handle,'netsh', strParams);
END
...
BEGIN //wwan off
strParams:= 'mbn disconnect interface="Mobile Broadband Connection"';
RunAsAdmin(Application.Handle,'netsh', strParams);
END;

[Sir Rufo]

Zitat von beanbear6:

Hi an alle,
also die Idee stammt aus einem Programm das
heißt irgendwie so: desktop manager. Ich bin
dozent in einer edv-schule und da hatten wir
sowas mal, wo man z.B. aus allen 20 PCs einfach
einen oder mehrere davon nen Internetzugang
ein/ausschalten konnte.
Nun war einfach die Idee, ob das irgendwie
auch über Delphi zu lösen wäre.
Ich vermute, dass da übers LAN einfach irgendwas
an den entsprechenden PCs eingestellt wird...
Gruß beanbear

Wäre es vermessen zu fragen, ob du diese zwanghaften Zeilenumbrüche weglassen könntest? Wenn ein Satz zu lang wird, dann schafft mein Browser und dieses Forum es auch ohne deine "Hilfe", die sich eher kontraproduktiv auswirkt. Ein RETURN wird am Ende eines Absatzes gesetzt und nicht mitten im Satz.

klein und doof.png

So würde das dann aussehen und es würde auf jedem Endgerät gut aussehen

Zitat von beanbear6:

Hi an alle,

also die Idee stammt aus einem Programm das heißt irgendwie so: desktop manager. Ich bin dozent in einer edv-schule und da hatten wir sowas mal, wo man z.B. aus allen 20 PCs einfach einen oder mehrere davon nen Internetzugang ein/ausschalten konnte.

Nun war einfach die Idee, ob das irgendwie auch über Delphi zu lösen wäre.

Ich vermute, dass da übers LAN einfach irgendwas an den entsprechenden PCs eingestellt wird...

Gruß beanbear

klein und schick.png

Jetzt zum Thema:

Um die Internetverbindung zu entfernen, kann man Einfluss auf die Route nehmen indem man eine Fake-Route einträgt und sagt, das ist jetzt die richtige Route zum Internet.

[Dalai]

Warum setzt keiner an der einen zentralen Stelle an, die den Internetzugang zur Verfügung stellt: dem Router? Dazu wäre es natürlich wichtig zu wissen, was für ein Router zum Einsatz kommt, und was der so alles (nicht) kann. Auf den Client anzusetzen, ist IMO der falsche Weg und daher halte ich eine Lösung in Delphi für unnötigen Aufwand. Squid selbst ist übrigens auch nicht zwingend eine Lösung, weil der sich nur um HTTP und FTP kümmert, alle anderen Protokolle (IIRC auch verschlüsselte Sachen wie FTPS und HTTPS) fallen unter den Tisch - und davon gibt es ja einige.

MfG Dalai

[hathor]

1. Muss es nicht immer einen Router geben
2. Hat man nicht immer Zugriff auf den Router (Locked)