set objShell = WScript.CreateObject ("WScript.Shell")
strAppPath = objShell.CurrentDirectory & "\DragonSoulsRPG.exe"

Set objShell = CreateObject("WScript.Shell")
objDesktop = objShell.SpecialFolders("Desktop")
Set objLink = objShell.CreateShortcut(objDesktop & "\Dragon Souls BETA.lnk")

objLink.TargetPath = strAppPath
objLink.WindowStyle = 3
objLink.Save

WScript.Quit