Worklet: Place Shortcut on Current User's Desktop

There’s some code in this worklet that creates a shortcut:

This worklet has code that will grab the current user:

Between the two you could make a worklet that grabs the current user, then puts a shortcut in their desktop folder. You’d want all of the code in the remediation section. For the evaluation you could use exit 1 to make it run every time, or you could check for the presence of the shortcut first.

Let me know if you have any issues getting that to work and I’m happy to help out.

wootwoot! i have addressing this on my todo list, as well…while domain joined, many of my systems are beyond the consistent reach of GPO policies. 🤬🤮🤬

i would legit be interested to see how you wrote this script block out!?

how i attacked this: i broke this down into three unique blocks ([a] add a shortcut to a website for current user, [b] add a shortcut to an application for the current user, and [c] add a shortcut to a website for all users).

to place a shortcut to a website on the current user desktop:

# System variable

$CurrentUser = (Get-WmiObject -class win32_process | Where-Object name -Match explorer).getowner().user



# Variables :: define target, name, & location of your shortcut

$Target = "https://google.com"

$ShortcutName = "Google.url"

$Location = "c:\Users\${CurrentUser}\Desktop\"



# Work zone :: No variables/edits below



# if Windows 10 (due to user folder locations):

if ([Environment]::OSVersion.Version.Major -ge 10) {



	# create a variable referencing a Wscript.Shell COM Object

	$new_Shortcut = New-Object -ComObject WScript.Shell

		

	# build target path for method and save the shortcut

	$source_path = Join-Path -Path $Location -ChildPath $ShortcutName 

	$source  = $new_Shortcut.CreateShortcut($source_path)

	$source.TargetPath = $Target

	$source.Save()

}

to place a shortcut to an application on the current user desktop:

# System variable

$CurrentUser = (Get-WmiObject -class win32_process | Where-Object name -Match explorer).getowner().user



# Variables :: define target, name, & location of your shortcut

$Target = "$env:SystemRoot\System32\notepad.exe"

$ShortcutName = "Notepad.lnk"

$Location = "c:\Users\${CurrentUser}\Desktop\"



# Work zone :: No variables/edits below



# if Windows 10 (due to user folder locations):

if ([Environment]::OSVersion.Version.Major -ge 10) {



	# create a variable referencing a Wscript.Shell COM Object

	$new_Shortcut = New-Object -ComObject WScript.Shell

		

	# build target path to the method and save the shortcut

	$source_path = Join-Path -Path $Location -ChildPath $ShortcutName 

	$source  = $new_Shortcut.CreateShortcut($source_path)

	$source.TargetPath = $Target

	$source.Save()

}

to place a shortcut to a website on all user desktops:

# Variables :: define target & name of your shortcut

$Target = "$env:SystemRoot\System32\notepad.exe"

$ShortcutName = "Notepad.lnk"



# Work zone :: No variables/edits below



# if Windows 10 (due to user folder locations):

if ([Environment]::OSVersion.Version.Major -ge 10) {



	# create a variable referencing a Wscript.Shell COM Object

	$new_Shortcut = New-Object -ComObject WScript.Shell



	# define the location and name of your shortcut

	$Location = $new_Shortcut.SpecialFolders.Item("AllUsersDesktop")

	

	# build target path to the method and save the shortcut

	$source_path = Join-Path -Path $Location -ChildPath $ShortcutName 

	$source  = $new_Shortcut.CreateShortcut($source_path)

	$source.TargetPath = $Target

	$source.Save()

}

Glad that I was able to point you in the right direction @jesumyip!