Internetzugang für Clients im Netzwerk steuern

[beanbear6]

Hallo zusammen,
ich möchte von einem PC aus den Internetzugang
anderer Clients steuern, so mit Mausklick PC2 ein oder aus.
Ich hab schon gegoogled aber nix gefunden.
Gibt es dazu irgend eine Möglichkeit dies zu realisieren?
(Arbeite leider immer noch mit D7)
Gruß beanbear

[RWarnecke]

Wie hast Du Dir das vorgestellt ? Die einzige Möglichkeit, die mir einfällt überhaupt den Internetzugang zu steuern, wäre über einen Proxy-Server, den Du unter Windows oder Linux installierst. Suche dazu mal nach Squid. Squid ist für Linux, weiß gerade nicht, ob es den auch für Windows gibt.

[himitsu]

Ich kenn eine witzige Möglichkeit.

Man kann ein Programm überall installieren, welche man von einem anderem Programm aus ansprechen kann.
Und damit schaltet man dann die Netzwerkkarte ab.

Problem: Man bekommt das nicht wieder an. :lol:




Proxy ist ein "Gerät, worüber der Internetverkehr der Rechner umgeleitet/durchgeleitet wird.

Das kann auch ein/der Router sein, in welchem man ganz oder nur für spezifische Ports die Weiterleitung deaktiviert, oder auf eine "blinde" Stelle umleitet.
Einige Router kann man auch fernsteuern.


Es geht auch hardwaremäßig, mit mehreren "Netzwerkkarten" (LAN/WLAN), wobei man da alle PCs auf/über den Steuer-PC leitet und dieser Bridges zwischen den Netzwerken (de)aktiviert.





Man beendet das Internet-Programm und verbietet es Dieses neu zu starten.
Sowas macht z.B. http://www.delphipraxis.net/152011-k...e-edition.html, wo man es sich "abgucken" kann,
bzw. einige Kinderschutztprogramme steuern was man sich für Webseiten angucken kann (so ähnlich wie eine Firewall), wobei man da auch zeitweise alles blocken könnte.






.....

[beanbear6]

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

[mkinzler]

Zitat:

Zitat von beanbear6 (Beitrag 1262140)

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:

Zitat von beanbear6 (Beitrag 1262330)

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.

Anhang 41345

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

Zitat:

Zitat von beanbear6 (Beitrag 1262330)

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 :-)

Anhang 41346

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.