Командная строка, батники, сценарии (bat, cmd) - [4773] :: Программы

Код:

@set @script=0 /*
set @script=
cscript //nologo //e:jscript "%~f0"
exit /b
*/

Shell = new ActiveXObject("WScript.Shell");
DesktopPath = Shell.SpecialFolders("Desktop");
link = Shell.CreateShortcut(DesktopPath + "\\test.lnk");
link.Arguments = "1 2 3";
link.Description = "test shortcut";
link.HotKey = "CTRL+ALT+SHIFT+X";
link.IconLocation = "app.exe,1";
link.TargetPath = "c:\\blah\\app.exe";
link.WindowStyle = 3;
link.WorkingDirectory = "c:\\blah";
link.Save();

Вариант - если выносить пути и т.д. переменными

Код:

set "progpath=c:\1.exe"
set "shrtpath=d:\test.lnk"

set "progpath=%progpath:\=\\%"
set "shrtpath=%shrtpath:\=\\%"

1>>temp.scr echo.Shell = new ActiveXObject("WScript.Shell");
1>>temp.scr echo.link = Shell.CreateShortcut("%shrtpath%");
1>>temp.scr echo.link.Arguments = "1 2 3";
1>>temp.scr echo.link.Description = "test shortcut";
1>>temp.scr echo.link.IconLocation = "app.exe,1";
1>>temp.scr echo.link.TargetPath = "%progpath%";
1>>temp.scr echo.link.WindowStyle = 3;
1>>temp.scr echo.link.WorkingDirectory = "c:\\blah";
1>>temp.scr echo.link.Save();

cscript //nologo //e:jscript "%~dp0temp.scr"
del /q temp.scr

Модерирует : gyra, Maz
articlebot (21-06-2016 11:40): Следующая часть - Командная строка, батники, сценарии (bat, cmd)	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению