Dear Experts

To create shortcut, on desktop, the following codes work fine but the problem

is the shortcut name appears as "TEST" as written in fourth line.

How to place the shortcut name from a variable

For example
variable1="system"
The shortcut name must be system

Please help

cfolder2=alltrim("d:\System\gin0405")
Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
link = Shell.CreateShortcut(DesktopPath+"\test.lnk")
*link.Description = str1
link.HotKey = "CTRL+ALT+SHIFT+X"
link.IconLocation = cfolder2+"\bitmaps\icon.ico"
link.TargetPath = cfolder2+"\accounts.exe"
link.WindowStyle = 1
link.WorkingDirectory = cfolder2
link.Save()