Windows 10: VBScript: Unable to save shortcut "C:\ProgramData\Microsoft\Windows\Start...

Hello,

I've been working on a "Operating System Simulator" named RimontOS, and I wanted it to be searchable in the search menu.
So I tried using a VBS script to create a shortcut in the "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\RimontOS" directory. The problem is that it shows this error:

Unable to save shortcut "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\RimontOS\RimontOS.lnk"
Code: 80070005


I don't know how to fix it.

The code looks like this:


[COLOR=rgba212, 212, 212, 1]
[COLOR=rgba86, 156, 214, 1]Dim[/COLOR] [COLOR=rgba156, 220, 254, 1]WshShell, strCurDir[/COLOR]

[COLOR=rgba197, 134, 192, 1]Set[/COLOR] WshShell = [COLOR=rgba220, 220, 170, 1]CreateObject[/COLOR][COLOR=rgba206, 145, 120, 1]"WScript.Shell"[/COLOR]

strCurDir = [COLOR=rgba156, 220, 254, 1]WshShell[/COLOR].[COLOR=rgba156, 220, 254, 1]CurrentDirectory[/COLOR]

[COLOR=rgba197, 134, 192, 1]Set[/COLOR] WshShell =[COLOR=rgba86, 156, 214, 1] Nothing[/COLOR]



[COLOR=rgba197, 134, 192, 1]Set[/COLOR] objFSO = [COLOR=rgba220, 220, 170, 1]CreateObject[/COLOR][COLOR=rgba206, 145, 120, 1]"Scripting.FileSystemObject"[/COLOR]

[COLOR=rgba197, 134, 192, 1]Set[/COLOR] f = [COLOR=rgba156, 220, 254, 1]objFSO[/COLOR].[COLOR=rgba220, 220, 170, 1]OpenTextFile[/COLOR]strCurDir + [COLOR=rgba206, 145, 120, 1]"\apppath.txt"[/COLOR]


apppath = [COLOR=rgba156, 220, 254, 1]f[/COLOR].[COLOR=rgba156, 220, 254, 1]ReadLine[/COLOR]


[COLOR=rgba156, 220, 254, 1]f[/COLOR].[COLOR=rgba156, 220, 254, 1]Close[/COLOR]


[COLOR=rgba197, 134, 192, 1]Set[/COLOR] fb = [COLOR=rgba156, 220, 254, 1]objFSO[/COLOR].[COLOR=rgba220, 220, 170, 1]OpenTextFile[/COLOR]strCurDir + [COLOR=rgba206, 145, 120, 1]"\dir.txt"[/COLOR]


dir = [COLOR=rgba156, 220, 254, 1]fb[/COLOR].[COLOR=rgba156, 220, 254, 1]ReadLine[/COLOR]


[COLOR=rgba156, 220, 254, 1]fb[/COLOR].[COLOR=rgba156, 220, 254, 1]Close[/COLOR]


[COLOR=rgba197, 134, 192, 1]Set[/COLOR] oShell = [COLOR=rgba220, 220, 170, 1]CreateObject[/COLOR] [COLOR=rgba206, 145, 120, 1]"WScript.Shell"[/COLOR]

programdata=[COLOR=rgba156, 220, 254, 1]oShell[/COLOR].[COLOR=rgba220, 220, 170, 1]ExpandEnvironmentStrings[/COLOR][COLOR=rgba206, 145, 120, 1]"%programdata%"[/COLOR]




[COLOR=rgba86, 156, 214, 1]dim[/COLOR] [COLOR=rgba156, 220, 254, 1]filesys, newfolder, newfolderpath[/COLOR]

newfolderpath = programdata + [COLOR=rgba206, 145, 120, 1]"\Microsoft\Windows\Start Menu\Programs"[/COLOR]

[COLOR=rgba197, 134, 192, 1]set[/COLOR] filesys=[COLOR=rgba220, 220, 170, 1]CreateObject[/COLOR][COLOR=rgba206, 145, 120, 1]"Scripting.FileSystemObject"[/COLOR]

[COLOR=rgba197, 134, 192, 1]If[/COLOR] [COLOR=rgba86, 156, 214, 1]Not[/COLOR] [COLOR=rgba156, 220, 254, 1]filesys[/COLOR].[COLOR=rgba220, 220, 170, 1]FolderExists[/COLOR]newfolderpath [COLOR=rgba197, 134, 192, 1]Then[/COLOR]

[COLOR=rgba197, 134, 192, 1]Set[/COLOR] newfolder = [COLOR=rgba156, 220, 254, 1]filesys[/COLOR].[COLOR=rgba220, 220, 170, 1]CreateFolder[/COLOR]newfolderpath

[COLOR=rgba197, 134, 192, 1]End If[/COLOR]




[COLOR=rgba197, 134, 192, 1]Set[/COLOR] Shell = [COLOR=rgba220, 220, 170, 1]CreateObject[/COLOR][COLOR=rgba206, 145, 120, 1]"WScript.Shell"[/COLOR]

DesktopPath = [COLOR=rgba156, 220, 254, 1]Shell[/COLOR].[COLOR=rgba220, 220, 170, 1]SpecialFolders[/COLOR][COLOR=rgba206, 145, 120, 1]"Desktop"[/COLOR]

[COLOR=rgba197, 134, 192, 1]Set[/COLOR] link = [COLOR=rgba156, 220, 254, 1]Shell[/COLOR].[COLOR=rgba220, 220, 170, 1]CreateShortcut[/COLOR]DesktopPath & [COLOR=rgba206, 145, 120, 1]"\RimontOS.lnk"[/COLOR]

[COLOR=rgba156, 220, 254, 1]link[/COLOR].[COLOR=rgba156, 220, 254, 1]Description[/COLOR] = [COLOR=rgba206, 145, 120, 1]"RimontOS"[/COLOR]

[COLOR=rgba156, 220, 254, 1]link[/COLOR].[COLOR=rgba156, 220, 254, 1]TargetPath[/COLOR] = apppath

[COLOR=rgba156, 220, 254, 1]link[/COLOR].[COLOR=rgba156, 220, 254, 1]WorkingDirectory[/COLOR] = dir

[COLOR=rgba156, 220, 254, 1]link[/COLOR].[COLOR=rgba156, 220, 254, 1]Save[/COLOR]



[COLOR=rgba197, 134, 192, 1]Set[/COLOR] Shell2 = [COLOR=rgba220, 220, 170, 1]CreateObject[/COLOR][COLOR=rgba206, 145, 120, 1]"WScript.Shell"[/COLOR]

[COLOR=rgba197, 134, 192, 1]Set[/COLOR] link2 = [COLOR=rgba156, 220, 254, 1]Shell2[/COLOR].[COLOR=rgba220, 220, 170, 1]CreateShortcut[/COLOR]programdata + [COLOR=rgba206, 145, 120, 1]"\Microsoft\Windows\Start Menu\Programs\RimontOS"[/COLOR] & [COLOR=rgba206, 145, 120, 1]"\RimontOS.lnk"[/COLOR]

[COLOR=rgba156, 220, 254, 1]link2[/COLOR].[COLOR=rgba156, 220, 254, 1]Description[/COLOR] = [COLOR=rgba206, 145, 120, 1]"RimontOS"[/COLOR]

[COLOR=rgba156, 220, 254, 1]link2[/COLOR].[COLOR=rgba156, 220, 254, 1]TargetPath[/COLOR] = apppath

[COLOR=rgba156, 220, 254, 1]link2[/COLOR].[COLOR=rgba156, 220, 254, 1]WorkingDirectory[/COLOR] = dir

[COLOR=rgba156, 220, 254, 1]link2[/COLOR].[COLOR=rgba156, 220, 254, 1]Save[/COLOR]
[/COLOR]


The dir.txt file has the working directory of the file I want to create a shortcut to and the apppath.txt file has the path to the file.


I searched it up and it's a permission issue Access denied, so I also accept code to run the file as administrator with the prompt

:)

 

Can't create a shortcut in C:\ProgramData\Microsoft\Windows\Startup

I'm trying to create a shortcut of Setpoint.exe to "C:\ProgramData\Microsoft\Windows\Startup" but Windows won't let me.

It's showing "Windows can't create a shortcut here. Create a shortcut to the desktop instead" error popup.

Need some workarounds guys.

 

Unable to add to All apps list in Start Menu

K, create shortcuts to the actual folders then.

 

Can't create a shortcut in C:\ProgramData\Microsoft\Windows\Startup

Create it on the desktop then cut and paste it in the Startup folder; you'll need to be signed on as Admin.