Crear un acceso directo a una carpeta en red a traves VBS

2 comentarios

Por ejemplo  si queremos crear una GPO para añadir de forma automatica accesos directos a carpetas compartidas en red en el escritorio de varios equipo podemos utilizar un script para llevarlo a cabo. Aqui os dejo el código utilizado:

set WshShell = WScript.CreateObject("WScript.Shell")
set objShell = CreateObject("Shell.Application")

'Nos ubicamos en el Escritorio
strDesktop = WshShell.SpecialFolders("Desktop")
set objFolder = objShell.NameSpace(strDesktop) 

'Creamos el Folder 
'objFolder.NewFolder "Mis Aplicaciones"

'Creamos el acceso directo
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Nombre carpeta compartida en red.lnk")
oShellLink.TargetPath = "\\192.168.1.38\Nombre carpeta compartida en red\"
oShellLink.WindowStyle = 1
oShellLink.Description = "Acceso Directo a Nombre carpeta compartida en red"
oShellLink.WorkingDirectory = "\\192.168.1.38\Nombre carpeta compartida en red\"
oShellLink.Save


'se supone que la dirección 192.168.1.34 es el equipo que contiene la carpeta compartida.

Espero que haber podido ayudar a alguien.

Saludos.



¿Quieres ganar dinero sin hacer nada?

Registrate y podras conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI


2 comentarios:

Estimado, ya que nadie le ha dado las gracias, se las doy yo, muy buen articulo, ahora estoy buscando para que quede creada como unidad de red.

31 de enero de 2018, 11:40 comment-delete

Muchas gracias

31 de enero de 2018, 12:09 comment-delete
Publicar un comentario

Related Posts Plugin for WordPress, Blogger...
Copyright 2011 INFORMATICUCHO.
Blogger Template by Noct.