?
Solved

Create Shortcut Using Command Line

Posted on 2008-10-07
5
Medium Priority
?
236 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
3 Comments
 
LVL 31

Accepted Solution

by:
Paranormastic earned 1000 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 1000 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

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

AutoHotkey is an excellent, free, open source programming/scripting language for Windows. It started out as a keyboard/mouse macros product, but has expanded into a robust language. This article provides an introduction to it, with links to addition…
How to remove superseded packages in windows w60 or w61 installation media (.wim) or online system to prevent unnecessary space. w60 means Windows Vista or Windows Server 2008. w61 means Windows 7 or Windows Server 2008 R2. There are various …
Free Data Recovery software is an advanced solution from Kernel Tools to recover data and files such as documents, emails, database, media and pictures, etc. It supports recovery from physical & logical drive after a hard disk crash, accidental/inte…
Watch the video of Kernel Migrator for SharePoint, which demonstrate the process easily of migration from SharePoint to SharePoint, OneDrive for Business & Google Drive servers, Public Folder to SharePoint, File Server to SharePoint. The tool has va…

589 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