[Iska]

Забыл сказать то, ярлыки для десктопа другие, а не те что для QuickLaunch прописаны!!!! »

Продублируйте весь кусок кода:

Код:

With objDictionary
…
End With

Замените во втором:

Код:

	.Add "RSWP\REGEDIT\RegWorkshop\RegWorkshop.exe", "RegWorkshop.lnk"
	.Add "RSWP\REGEDIT\Regshot\_Regshot.exe",        "Regshot.lnk"

на потребное. Там же замените:

Код:

With .CreateShortcut(WScript.CreateObject("Shell.Application").NameSpace("shell:AppData").Self.Path & _
	"\Microsoft\Internet Explorer\Quick Launch\" & objDictionary.Item(elem))

на:

Код:

With .CreateShortcut(WScript.CreateObject("Shell.Application").NameSpace("shell:Desktop").Self.Path & "\" & objDictionary.Item(elem))