Os mostramos cómo crear una unidad de red a partir de un equipo de red y recurso compartido, utilizando VBS (Visual Basic Script. Para ejecutar este código es suficiente con copiarlo a un fichero de texto plano (sin formato) y ponerle como extensión "vbs". Haciendo doble clic sobre el fichero se compilará automáticamente.

Esto es válido para sistemas operativos Windows XP, Windows Vista, Windows 2000 Server, Windows Server 2003, Windows Server 2008.

Set objDisco = CreateObject("Scripting.FileSystemObject")
Set objRed = WScript.CreateObject("WScript.Network")

letraUnidad = InputBox ("Introduzca la letra de unidad (con los dos puntos al final):")
rutaBNC = InputBox ("Introduzca la ruta BNC del tipo \\equipo\recurso:")

usuario = InputBox ("Nombre de usuario:")
contrasena = InputBox ("Contraseña:")

on error resume next
objRed.MapNetworkDrive letraUnidad, rutaBNC, true, usuario, contrasena

If objDisco.FolderExists(letraUnidad) Then 
   wscript.echo "Unidad de red creada correctamente."
Else
   Wscript.Echo "Error al crear unidad de red."
End If

Publicado el: 2008-10-29