Solved

Create Shortcut Using Command Line

Posted on 2008-10-07
5
187 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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

Major Incident Management Communications

Major incidents and IT service outages cost companies millions. Often the solution to minimizing damage is automated communication. Find out more in our Major Incident Management Communications infographic.

Question has a verified solution.

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

The following is a collection of cases for strange behaviour when using advanced techniques in DOS batch files. You should have some basic experience in batch "programming", as I'm assuming some knowledge and not further explain the basics. For some…
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…
Exchange organizations may use the Journaling Agent of the Transport Service to archive messages going through Exchange. However, if the Transport Service is integrated with some email content management application (such as an antispam), the admini…
Are you ready to implement Active Directory best practices without reading 300+ pages? You're in luck. In this webinar hosted by Skyport Systems, you gain insight into Microsoft's latest comprehensive guide, with tips on the best and easiest way…

710 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