Windows Logon Script: Crear acceso directo si el programa existe

Esto se me ocurre que es útil para aplicaciones comunes a todos. Puede ser el acceso a una carpeta compartida o un el acceso a un software que use la mayoría... como un ERP.

El script es simple. En este ejemplo se hace un link al Putty. Lo cual es bastante inútil para un usuario normal. La variable objLink.Arguments no tiene ningún valor, a pesar de ser muy importante para el caso en que se quiera enviar una configuración específica al programa que intenta ejecutarse.

Por último, hay que agregarlo a un GPO. Eso está explicado muy bien en Petri.

Set oShell = CreateObject( "WScript.Shell" )
programFiles=oShell.ExpandEnvironmentStrings("%programFiles%")

Set oFS = CreateObject("Scripting.FileSystemObject")



if oFS.FileExists(programFiles & "\putty.exe") Then

	strAppPath = programFiles & "\putty.exe"
	strAppPath = ""

	objDesktop = oShell.SpecialFolders("Desktop")
	Set objLink = oShell.CreateShortcut(objDesktop & "\PREPROD.lnk")

	' ---------------------------------------------------
	' Section which adds the shortcut's key properties

	objLink.TargetPath = strAppPath
	objLink.Arguments = strAppPath
	objLink.Description = "WordProcess"
	objLink.HotKey = "CTRL+ALT+X"
	objLink.Save

End If

WScript.Quit