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

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.