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();