This example creates a shortcut to a local copy of Microsoft Word on the Quick Launch toolbar. It does not check or verify if the user is using the Quick Launch toolbar or not. It also does not check or verify that MS Word is installed.
This is simply an example of adding a shortcut to the Quick Launch toolbar. In a production script you should include code that would verify the existence of any application you're attempting to add and ensure the user has the Quick Launch visible.
This example uses the wshShortcut() - v1.2 UDF which is located here
http://www.kixtart.org/ubbthreads/showflat.php?Cat=&Number=83318
Code:
; Set our options
Break On
Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
; Declare our variables
Dim $QLFolder,$TargetPath,$TargetFilespec,$AddToQL,$word,$wordv
$QLFolder='%APPDATA%\Microsoft\Internet Explorer\Quick Launch\'
$word=GETFILEVERSION(READVALUE('HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\Winword.exe',''))
$wordv=SPLIT($word,'.')[0]
$TargetPath=ReadValue('HKLM\SOFTWARE\Microsoft\Office\'+$wordv+'.0\Word\InstallRoot','Path')
$TargetFilespec=$TargetPath+'winword.exe'
; Supply the parameters for the wshShortCut UDF
$AddToQL = wshShortCut($QLFolder+'MS Word',$TargetFilespec,,'%TEMP%', $TargetFilespec+',0', 1,'Microsoft Word from local drive')
function wshShortCut($shortcutname,$targetpath,optional $arguments, optional $startdir, optional $iconpath, optional $style,optional $description)
dim $shell, $desktop, $shortcut, $index, $iconinfo, $iconindex
$shell = createobject("wscript.shell")
if $shell
if ucase(right($shortcutname,4))=".URL" or ucase(right($shortcutname,4))=".LNK"
;do nothing
else
if ucase(left($targetpath,5))="HTTP:" or ucase(left($targetpath,6))="HTTPS:" or ucase(left($targetpath,4))="FTP:"
$shortcutname=$shortcutname + ".url"
else
$shortcutname=$shortcutname + ".lnk"
endif
endif
if instr($shortcutname,".lnk") and not exist($targetpath)
exit 2
endif
if instr($shortcutname,"\")=0
$Desktop = $shell.SpecialFolders("Desktop")
$shortcutname=$desktop + "\" + $shortcutname
endif
$shortcut = $shell.createshortcut($shortcutname)
if $shortcut
$shortcut.targetpath = $targetpath
if $iconpath
$shortcut.iconlocation = $iconpath
endif
if $arguments
$shortcut.arguments = $arguments
endif
if $startdir
$shortcut.workingdirectory = $startdir
endif
if $style
$shortcut.windowstyle = $style
endif
If $description
$shortcut.description = $description
EndIf
$shortcut.save
if instrrev($shortcutname,".url") and $iconpath
$index=instrrev($iconpath,",")
if $index=0
$iconindex=0
else
$iconindex=split($iconpath,",")[1]
$iconpath=split($iconpath,",")[0]
endif
$=writeprofilestring($shortcutname,"InternetShortcut","IconFile",$iconpath)
$=writeprofilestring($shortcutname,"InternetShortcut","IconIndex",$iconindex)
endif
$shortcut = 0
$wshshortcut=0
else
exit @error
endif
else
exit @error
endif
endfunction
Code updated per request by Kent Dyer to get any version of Word
