Solved

Create Shortcut Using Command Line

Posted on 2008-10-07
5
182 Views
Last Modified: 2014-11-20
I am trying to create a shortcut in the start menu using command line scripting so i can add it to group policy to be added to several machines.
0
Comment
Question by:CCD-DSS
  • 2
5 Comments
 
LVL 31

Accepted Solution

by:
Paranormastic earned 250 total points
ID: 22662192
You could also just create the shortcut once, put it onto a shared folder, and have GPO or a logon script copy it over.  Personally I think it is just easiest to just right-click - create shortcut and move it, but if you need to do it programmatically:
http://www.thescarms.com/vbasic/wshom.aspx
http://www.ss64.com/nt/shortcut.html
0
 
LVL 5

Expert Comment

by:si_shamil
ID: 22665340
Here is a simple shortcut creation function in VBScript

'==================================================================================
 
' Function Name : CreateShortcut(pShortcutPath, pTargetPath)
 
' Return value  : True if shortcut created successfuly, False if not
 
' Author        : Alex Simenduev, www.planetit.ws
 
' Date          : 21/04/2008
 
' Description   : Very basic creation of Shortcut, without extra stuff like
 
'                 Icon, Working directory, Hotkeys, Arguments...
 
'==================================================================================
 
Function CreateShortcut(pShortcutPath, pTargetPath) : CreateShortcut = False : On Error Resume Next
 
	Dim objShell	: Set objShell = WScript.CreateObject("WScript.Shell")
 
	Dim objShortcut	: Set objShortcut = objShell.CreateShortcut(pShortcutPath)
 
	
 
	If Err.Number <> 0 Then
 
		Wscript.Echo "Error " & Err.Number & ": " & Err.Description
 
		Err.Clear
 
	Else
 
		objShortcut.Description = "Shortcut to " & pTargetPath
 
		objShortcut.TargetPath = pTargetPath
 
		objShortcut.Save
 
		
 
		If Err.Number = 0 Then CreateShortcut = True		
 
	End If
 
 
 
	Set objShortcut = Nothing
 
	Set objShell = Nothing
 
End Function

Open in new window

0
 
LVL 5

Assisted Solution

by:si_shamil
si_shamil earned 250 total points
ID: 22665352
Sorry, snippet pasted wrong

use this:
'==================================================================================
' Function Name : CreateShortcut(pShortcutPath, pTargetPath)
' Return value  : True if shortcut created successfuly, False if not
' Author        : Alex Simenduev, www.planetit.ws
' Date          : 21/04/2008
' Description   : Very basic creation of Shortcut, without extra stuff like
'                 Icon, Working directory, Hotkeys, Arguments...
'==================================================================================
 
Function CreateShortcut(pShortcutPath, pTargetPath) : CreateShortcut = False : On Error Resume Next
	Dim objShell	: Set objShell = WScript.CreateObject("WScript.Shell")
	Dim objShortcut	: Set objShortcut = objShell.CreateShortcut(pShortcutPath)
 
	If Err.Number <> 0 Then
		LogEchoLine "Error " & Err.Number & ": " & Err.Description
		Err.Clear
	Else
		objShortcut.Description = "Shortcut to " & pTargetPath
		objShortcut.TargetPath = pTargetPath
		objShortcut.Save
 
		If Err.Number = 0 Then CreateShortcut = True		
 
	End If
 
	Set objShortcut = Nothing
	Set objShell = Nothing
End Function

Open in new window

0

Featured Post

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When you receive another warning that your shared drive is almost full and you have asked your users to clean out old files again and again, here is a single command that may help. This command will place all the files that have not been used rec…
Use this article to create a batch file to backup a Microsoft SQL Server database to a Windows folder.  The folder can be on the local hard drive or on a network share.  This batch file will query the SQL server to get the current date & time and wi…
This video shows how to use Hyena, from SystemTools Software, to bulk import 100 user accounts from an external text file. View in 1080p for best video quality.
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

685 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question