ClubEnsayos.com - Ensayos de Calidad, Tareas y Monografias
Buscar

Compartir HDD Externo


Enviado por   •  5 de Febrero de 2013  •  441 Palabras (2 Páginas)  •  316 Visitas

Página 1 de 2

Compartir autmomaticamente disco duro externo al conectar en Windows

Se me hace molesto, que al conectar un disco duro se pierda la configuración que uso para compartirlo en mi red local. El volver a compartirlo después de un par de veces se vuelve un proceso molesto y poco práctico, por lo que me propuse averiguar qué podía hacer al respecto.

La solución es bastante simple, lo que hice (es probable que exista otro método más práctico) fue cambiar la letra de la unidad, crear un archivo“autorun.inf” dentro del disco con un icono de famfamfam, escribir un script en VBScript y Voilá! Con esto cuando insertes el disco duro, te dará la opción de ejecutar una tarea que dice “Compartir”.

A continuación el procedimiento paso a paso:

Lo primero, es dar botón derecho a Mi PC desde el menú de inicio y seleccionar la opción de “Administrar”.

Después sobre el árbol de opciones de la izquierda, seleccionamos“Administración de Discos” y damos click sobre el panel de la derecha en el nombre del disco duro al que queremos cambiar la letra de acceso a la unidad. En mi caso elegí M:\ ya que en mi opinión, es difícil que algún otro dispositivo ó drive llegara a ocupar la misma letra.

Lo que sigue, es ir a la unidad en cuestión, desde Mi PC o el explorador de Windows y crearemos un archivo llamado autorun.inf en el que pondremos lo que siguiente:

[autorun]

icon=hd.ico

label=Mi HD

open=wscript.exe share.vbs

action=Compartir Disco

A continuación, descargamos el icono que aquí les dejo, que conseguí en famfamfam o el que ustedes elijan, solo recuerden que deberá ser en formato .ico y lo pondremos en la raíz del disco duro.

Icono de HD

Por utlimo, crearemos un archivo llamado “share.vbs” en donde escribiremos algo como esto:

Const FILE_SHARE = 0

Const MAXIMUM_CONNECTIONS = 25

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set objNewShare = objWMIService.Get("Win32_Share")

errReturn = objNewShare.Create _

("M:\", "Compartido", FILE_SHARE, _

MAXIMUM_CONNECTIONS,

...

Descargar como (para miembros actualizados)  txt (2.9 Kb)  
Leer 1 página más »
Disponible sólo en Clubensayos.com