Войти

Показать полную графическую версию : батник для редактирования ярлыков


Tartas
16-12-2022, 10:53
Можно ли создать батник что бы он поменял путь и рабочую папку у всех ярлыков в папке? играю в л2 админ реализовал автологин по ярлыку, по объекту выглядит так "D:\Lineage II\system\l2.exe" account=account password= password рабочая папка "D:\Lineage II\system\" хочу перенести все ярлыки на нотубук, а там ссд диск С. Нужно поменять только букву диска D на C, в разделах объект и рабочая папка такое возможно? ярлыков много

Tartas
16-12-2022, 15:18
нашёл скрипт мне помог

@set @script=0 /*
set "From=C:\Program Files"
set "To=D:\Games"

call :choose_folder indir
pushd "%indir%"
for %%i in (*.lnk) do cscript /e:jscript "%~f0" "%%~fi" "%From%" "%To%"
exit
:choose_folder
for /f "usebackq delims=" %%a in (@"%systemroot%\system32\mshta.exe" "javascript:var objShellApp = new ActiveXObject('Shell.Application');var Folder = objShellApp.BrowseForFolder(0, 'SELECT FOLDER',1, '::{20D04FE0-3AEA-1069-A2D8-08002B30309D}');try {new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(Folder.Self.Path)};catch (e){};close();" 1^|more) do set "%1=%%a"
exit /b
*/
var LinkName=WScript.Arguments.Item(0);
var RplsFrom=WScript.Arguments.Item(1);
var RplaceTo=WScript.Arguments.Item(2);
var WshShell = WScript.CreateObject("WScript.Shell");
var oShellLink = WshShell.CreateShortcut(LinkName);
oShellLink.TargetPath=oShellLink.TargetPath.replace(RplsFrom,RplaceTo);

Tartas
18-12-2022, 13:17
поспешил, не работает(




© OSzone.net 2001-2012