Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Crear unidad de red mediante VBS - Visual Basic Script
Lenguaje de programación Visual Basic Script


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

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A