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

0 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


0 comentarios:

Publicar un comentario

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