comment couper le net à distance à 1 ordi du workgroup ?

comment couper le net à distance à 1 ordi du workgroup ? - Réseaux - Réseaux grand public / SoHo

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.

Reply

Marsh Posté le 24-10-2008 à 16:36:54   

Reply

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 ?


Message édité par kaiser47 le 25-10-2008 à 13:58:54
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed