comment couper le net à distance à 1 ordi du workgroup ? - Réseaux - Réseaux grand public / SoHo
Marsh Posté le 25-10-2008 à 13:58:28
bon en cherchant sur le net j'ai trouvé ceci :
--------------
On Error Resume Next
arrComputers = Array("192.168.2.104" )
arrGateway = Array("192.168.2.200" )
arrGatewayMetric = Array(1)
For Each strComputer in arrComputers
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True" )
For Each objNetCard in colNetCards
objNetCard.SetGateways arrGateway, arrGatewayMetric
Next
Next
------------
un script en vbs avec en bleu l'ip de la bécane visée et en rouge l'ip que le script donne en passerelle sur cet ordi.
Probleme : si ça marche en local (lancement du vbs sur la machine dont l'ip est en bleu) ça n'a aucun effet par le reseau. :-(
Qui peut m'aider ?
Marsh Posté le 24-10-2008 à 16:36:54
voilà, j'ai 7 ordis (6 sous xp et 1 sous 2000) en workgroup qui pour internet sortent par la meme passerelle.
j'aimerai à partir d'un de ces ordi, (ça peut et doit etre n'importe lequel et ça change suivant le moment) pouvoir couper l'acces d'un autre à internet, mais garder le lan actif. (because par exemple : "mes documents" deporté sur 1 machine unique et partagé entre tous)
il faut que je puisse le faire à distance, par exemple depuis la machine 3 couper l'acces de la n°2 au net, ou depuis la 4 couper l'acces de la 1, ......
quelle solution facile voyez vous pour faire ça ? un firewall ? - lequel et quelle configuration ?
merci.