WScript = Новый COMОбъект("WScript.Shell");

SpecialFolders = WScript.SpecialFolders;

КаталогАвтозагрузки = SpecialFolders.item("AllUsersStartup");

ИмяФайлаСсылки = ПолучитьИмяФайла(КаталогАвтозагрузки, "1Cstart.lnk");

Shortcut = WScript.CreateShortcut(ИмяФайлаСсылки);

Shortcut.IconLocation = "C:\Program Files\1cv81\bin\1cv8.exe";

Shortcut.TargetPath = "1Cstart";

Shortcut.Save();