Пакетное изменение ярлыков #378541

Есть куча ярлыков (ссылки на папки ExtForms кучи баз) которые ссылаются на сервер, сервер изменил IP -шник, как можно автоматически изменить в этих ярлыках IP или прописать имя сервера ?

блокнотом ярлыек открой

И как потом сохранить?

Мона через WSH открывать ярлыки и менять их свойства. Проще все ярлыки грохнуть и создать новые ...

открыть блокнотом тоже еще надо умудрится или ты хотел сказать что сначала к ярлыкам добавить .txt а потом только открывать ?

вместо "грохнуть" наверняка можно сделать (и даже кто-то уже давно сделал) более изящный способ

Чем грохнуть и создать новые скриптом и оптом не нравится?

более изящный - ярлыки по имени прописывать сразу, а не по ип...

похоже нашел

этот вывод, естественно, сделан

"создать новые скриптом и оптом"  - я пока так не умею

'Вот скрипт, который создает ярлык, правда один, но легко сделать массовость :-) 'Это vbs скрипт '--------------------------------------------------------------------------- 'Процедура создает ярлык Sub MakeLink    On Error Resume Next    Set WSHShell = CreateObject("WScript.Shell")    Set FSO = CreateObject("Scripting.FileSystemObject")    'Создадим ярлык    strPathWorkDir = "Рабочий каталог"    strPath = "Объект ярлык к которому создаем"    If FSO.FileExists(strPath) Then        strDTop_ = WshShell.SpecialFolders("Desktop")' "Путь к месту расположения ярлыка, в данном случае рабочий стол"        Set MyShortcut = WSHShell.CreateShortcut(strDTop_ & "Имя ярлыка.lnk")        ' Устанавливаем свойства для ярлыка        MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings(strPath)        MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings(strPathWorkDir)        MyShortcut.WindowStyle = 4        MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings(strPath)        MyShortcut.Save    End if'FSO.FileExists(strPath) End Sub'MakeLink MakeLink

спасибо

Про DNS слыхал?

???