[Iska]

рлыки добавляются на десктоп, но хотелось бы реализовать одном скрипте!!!! »

Продублируйте код:

Код:

                            With .CreateShortcut(WScript.CreateObject("Shell.Application").NameSpace("shell:AppData").Self.Path & _
                                "\Microsoft\Internet Explorer\Quick Launch\" & objDictionary.Item(elem))
                                
                                .TargetPath       = strPath
                                .IconLocation     = strPath & ", 0"
                                .WorkingDirectory = "%SystemRoot%\system32"
                                
                                .Save
                            End With

и сделайте замену строки во втором дубле.