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

РабочийСтол =  Shell.SpecialFolders("Desktop");

Ярлык = Shell.CreateShortcut(РабочийСтол + "\\Regedit.lnk");

Ярлык.TargetPath = Shell.ExpandEnvironmentStrings("%windir%\\regedit.exe");

Ярлык.WorkingDirectory = Shell.ExpandEnvironmentStrings("%windir%");

Ярлык.WindowStyle = 1;

Ярлык.IconLocation = Shell.ExpandEnvironmentStrings("%windir%\\regedit.exe, 0");

Ярлык.Save();   

  Shell = СоздатьОбъект("WScript.Shell");

РабочийСтол = Shell.SpecialFolders("Desktop");

Ярлык = Shell.CreateShortcut(РабочийСтол + "\\Regedit.lnk");

Ярлык.TargetPath = Shell.ExpandEnvironmentStrings("%windir%\\regedit.exe");

Ярлык.WorkingDirectory = Shell.ExpandEnvironmentStrings("%windir%");

Ярлык.WindowStyle = 1;

Ярлык.IconLocation = Shell.ExpandEnvironmentStrings("%windir%\\regedit.exe, 0");

Ярлык.Save();