no es tardado en cuanto lo haga se dara cuenta que sera solo con doble click... recuerde que lo mas dicil siempre es el principio... pero despues sera cuestion de darle doble click * RECUERDEN * que las direccions ip deberan cambiarlas por las de ustdes...

Abrir un Notepad copia y pega lo siguiente strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")...