Create CreateShortcuts.vbs