crear icono para deshabilitar la conexión de redCerrado

Question

Hola, pregunto si es posible crear un icono en escritorio, a modo de acceso directo, para deshabilitar la conexión de red con un par de cliks y como se hace. Yo tengo windows xp, desde ya les agradesco

leonnyx · Answer

Ve a Control Panel / Network Connections y con el boton derecho del mouse dale un click a la red LAN...elije crear shortcut y listo

donpier · Answer

eso ya lo hice, puede que no me haya explicado bien pero lo que quiero es crear un icono en el escritorio, tal vez un ejecutable, que al darle doble clic deshabilite automaticamente la red, sin tener que entrar a las conexiones de red

leonnyx · Answer

No hay problema...para lo que quieres nesecitas un VB Script que con dos clicks lo habilite o lo deshabilite...copia y pega el siguiente codigo en el bloc de notas o notepad.
--------------------------------------------------------------------------------------------------

Nota: Esto funciona solo en Windows XP 

Importante:
ASEGURATE que tu red LAN se llame "Local Area Connection"
Si tu Windows esta en español,ve a conecciones de Red y renombra tu red LAN por "Local Area Connection"...si no lo haces asi no sirve.

------------------------------------------------------------------------------------------------

Ponle un nombre cuando grabes y al final le pones la extencion  .vbs

Ejemplo [Deshabilitar.vbs]


Codigo:

Const ssfCONTROLS = 3 

sConnectionName = "Local Area Connection" 

sEnableVerb = "En&able" 
sDisableVerb = "Disa&ble" 

set shellApp = createobject("shell.application") 
set oControlPanel = shellApp.Namespace(ssfCONTROLS) 

set oNetConnections = nothing 
for each folderitem in oControlPanel.items 
 if folderitem.name = "Network Connections" then 
  set oNetConnections = folderitem.getfolder: exit for 
 end if 
next 
if oNetConnections is nothing then 
 msgbox "Couldn't find 'Network Connections' folder" 
 wscript.quit 
end if 
set oLanConnection = nothing 
for each folderitem in oNetConnections.items 
 if lcase(folderitem.name) = lcase(sConnectionName) then 
  set oLanConnection = folderitem: exit for 
 end if 
next 
if oLanConnection is nothing then 
 msgbox "Couldn't find '" & sConnectionName & "' item" 
 wscript.quit 
end if 

bEnabled = true 
set oEnableVerb = nothing 
set oDisableVerb = nothing 
for each verb in oLanConnection.verbs 
 if verb.name = sEnableVerb then 
  set oEnableVerb = verb 
  bEnabled = false 
 end if 
 if verb.name = sDisableVerb then 
  set oDisableVerb = verb 
 end if 
next 
if bEnabled then 
 oDisableVerb.DoIt()
else 
 oEnableVerb.DoIt 
end if 

wscript.sleep 500

donpier · Answer

me sale una advertencia que dice couldn't find network conection folders
puede ser que haya hecho algo mal? tambien le cambié el nombre a la conección como decia al principio, el código lo copié tal cual y el nombre puse el que diste como ejemplo

leonnyx · Answer

Es que tu Windows esta en español ...no has hecho nada malo...ya arregle lo que habia que cambiar en el codigo ...copia y pega.

Codigo:



Const ssfCONTROLS = 3

sConnectionName = "Local Area Connection"

sEnableVerb = "En&able"
sDisableVerb = "Disa&ble"

set shellApp = createobject("shell.application")
set oControlPanel = shellApp.Namespace(ssfCONTROLS)

set oNetConnections = nothing
for each folderitem in oControlPanel.items
if folderitem.name = "Conexiones de red" then
set oNetConnections = folderitem.getfolder: exit for
end if
next
if oNetConnections is nothing then
msgbox "Couldn't find 'Network Connections' folder"
wscript.quit
end if
set oLanConnection = nothing
for each folderitem in oNetConnections.items
if lcase(folderitem.name) = lcase(sConnectionName) then
set oLanConnection = folderitem: exit for
end if
next
if oLanConnection is nothing then
msgbox "Couldn't find '" & sConnectionName & "' item"
wscript.quit
end if

bEnabled = true
set oEnableVerb = nothing
set oDisableVerb = nothing
for each verb in oLanConnection.verbs
if verb.name = sEnableVerb then
set oEnableVerb = verb
bEnabled = false
end if
if verb.name = sDisableVerb then
set oDisableVerb = verb
end if
next
if bEnabled then
oDisableVerb.DoIt()
else
oEnableVerb.DoIt
end if

wscript.sleep 500

donpier · Answer

me sale una ventana que dice
windows script host
secuencia de comando.. la ruta del archivo que lo tengo en el escritorio
linea 45
caracter 1
error se requiere un objeto oDisableVerb
codigo 800A01A8
Origen error de microsoft vbscript en tiempo de ejecucion

leonnyx · Answer

Intenta este ultimo...el codigo en ingles funciona 100%...prueba con este cambio...si no ...ya mi conocimiento llega hasta aqui.


Codigo:



Const ssfCONTROLS = 3

sConnectionName = "Local Area Connection"

sEnableVerb = "En&able"
sDisableVerb = "Disa&ble"

set shellApp = createobject("shell.application")
set oControlPanel = shellApp.Namespace(ssfCONTROLS)

set oNetConnections = nothing
for each folderitem in oControlPanel.items
if folderitem.name = "Conexión de red" then
set oNetConnections = folderitem.getfolder: exit for
end if
next
if oNetConnections is nothing then
msgbox "Couldn't find 'Conexión de red' folder"
wscript.quit
end if
set oLanConnection = nothing
for each folderitem in oNetConnections.items
if lcase(folderitem.name) = lcase(sConnectionName) then
set oLanConnection = folderitem: exit for
end if
next
if oLanConnection is nothing then
msgbox "Couldn't find '" & sConnectionName & "' item"
wscript.quit
end if

bEnabled = true
set oEnableVerb = nothing
set oDisableVerb = nothing
for each verb in oLanConnection.verbs
if verb.name = sEnableVerb then
set oEnableVerb = verb
bEnabled = false
end if
if verb.name = sDisableVerb then
set oDisableVerb = verb
end if
next
if bEnabled then
oDisableVerb.DoIt()
else
oEnableVerb.DoIt
end if

wscript.sleep 500

donpier · Answer

no me funcionó, pero te doy las gracias por preocuparte, de verdad gracias

Crear icono para deshabilitar la conexión de red

8 respuestas

Discusiones similares

¡Suscríbete a nuestra Newsletter!