oShell = Новый ComObject ("WScript.Shell");
ПапкаМоиДокументы = oShell.RegRead("HKCU\software\microsoft\windows\currentversion\explorer\shell folders\personal");
Сообщить(ПапкаМоиДокументы);
ПапкаДесктоп = oShell.RegRead("HKCU\software\microsoft\windows\currentversion\explorer\shell folders\desktop");
Сообщить(ПапкаДесктоп);
Команда = """" + ПапкаМоиДокументы + "\Check1CD.exe"" 1 """ + СтрокаСоединения + """";
Команда = """" + ПапкаМоиДокументы + "\Check1CD.exe""" ;
//Команда = ПапкаМоиДокументы ;
 
Сообщить(Команда);
oShortCut = oShell.CreateShortcut(ПапкаДесктоп + "\Проверить базу данных 1С на ошибки.lnk");
oShortCut.TargetPath = Команда;
oShortCut.Save();