oShell = CreateObject("WScript.Shell") * Get desktop folder lcDesktop = oShell.SpecialFolders("Desktop") lcShortcutName = "whatever.lnk" * Create shortcut if it doesn't exists or open existing one oLink = oShell.CreateShortcut ( ADDBS(lcDesktop) + lcShortcutName ) * Set/Change properties here .... oLink.Save()