[zion87]

вот скрипт меняющий иконку на рабочем столе - не перемещая...

Код:

var vbOKCancel = 1;
var vbInformation = 64;
var vbCancel = 2;
var WSHShell = WScript.CreateObject("WScript.Shell");
Welcome();
var DesktopPath = WSHShell.SpecialFolders("Desktop");
var MyShortcut = WSHShell.CreateShortcut(DesktopPath + "\\Блокнот.lnk");
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("%windir%\\notepad.exe");
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%");
MyShortcut.WindowStyle = 4;
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("c:\\icq.ico");
MyShortcut.Save();
function Welcome() {
    var intDoIt;
}

создаешь два файла ico1.js и ico2.js
и

Код:

IF exist log.txt goto loop1
echo 0>log.txt
DefSound-x32.exe 0
ico1.js
goto exit
:loop1
del log.txt
DefSound-x32.exe 1
ico2.js
:exit
taskkill /im DefSound-x32.exe

пример скрипта для ярлыка notepad.exe меняем на свою программу и все работает ... )))

если не понятно
var MyShortcut = Название ярлыка .lnk
MyShortcut.TargetPath = Расположение .exe
MyShortcut.WorkingDirectory = Рабочая директория .exe
MyShortcut.IconLocation = Расположение файла .ico

ОБЯЗАТЕЛЬНОЕ ИСПОЛЬЗОВАНИЕ ДВОЙНОГО СЛЕША \\ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!