Action 1 (default)

action parameter query "TargetURL" with description "Enter the URL or the ApplicationFullPath pointed by the Shortcut (for example: C:\Program Files\Notepad++\notepad++.exe )" and with default value "http://bigfix.me"
action parameter query "ShortcutName" with description "Enter the Name of the Desktop Shortcut" and with default value "Bigfix_Me"

// Retrieve Public Desktop location
parameter "DesktopPath"="{value "Common Desktop" of key "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" of native registry}"

// locate PowerShell .exe file
parameter "PowerShellexe"="{value "Path" of key "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PowerShell\1\ShellIds\Microsoft.PowerShell" of native registry}"

if {(parameter "TargetURL") as lowercase starts with "http"}
    parameter "Shortcut_ext"=".url"
elseif {(parameter "TargetURL") as lowercase ends with ".exe"}
    parameter "Shortcut_ext"=".lnk"
else
 continue if {false}
endif
// build full path of Shortcut
parameter "ShortcutFile" = "{(parameter "DesktopPath") & "\" & (parameter "ShortcutName") & (parameter "Shortcut_ext")}"
// create PowerShell script
delete __createfile
createfile until __EOF__
$Target = "{parameter "TargetURL"}"
# $ShortcutFile = (Get-ItemProperty -Path 'HKLM:\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders').'Common Desktop'
# $ShortcutFile = $ShortcutFile + "{"\" & (parameter "ShortcutName") & ".url" }"
$ShortcutFile = "{parameter "ShortcutFile"}"
$WScriptShell = New-Object -ComObject WScript.Shell
$Shortcut = $WScriptShell.CreateShortcut($ShortcutFile)
$Shortcut.TargetPath = $Target
$Shortcut.Save()
__EOF__

delete "shortcut.ps1"
copy __createfile "shortcut.ps1"

// just in case, remove the old shortcut should it exists
delete "{parameter "ShortcutFile"}"
// execute PS script and check we did it or fail
waithidden "{parameter "PowerShellexe"}" -ExecutionPolicy Bypass ".\shortcut.ps1" 
continue if {exit code of action = 0 } 
continue if {exists file (parameter "ShortcutFile")}