Я в своё время писал нечто подобное:
oTargetOld = "\\Server01\TechExpert\texpert.exe"
oTargetNew = "\\Server02\Kodeks\kodeks.exe"
oWorkingDirectory = ""
oProductDesc = "ИС Кодекс: Связь"
If oTargetOld = "" Then WScript.Quit 0
If oTargetNew = "" Then WScript.Quit 0
Set oShell = WScript.CreateObject ("WScript.Shell")
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
sDesktopPath = oShell.SpecialFolders("Desktop")
SearchShortcut sDesktopPath
SearchSubFolders oFSO.GetFolder(sDesktopPath)
sProgramsPath = oShell.SpecialFolders("Programs")
SearchShortcut sProgramsPath
SearchSubFolders oFSO.GetFolder(sProgramsPath)
Sub SearchSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
SearchShortcut Subfolder.Path
SearchSubFolders Subfolder
Next
End Sub
Sub SearchShortcut(Folder)
Set objDIR = oFSO.GetFolder(Folder)
For Each oFile in objDIR.Files
fEXT = oFSO.GetExtensionName(oFile.Path)
If LCase(fEXT) = LCase("lnk") Then
Set oShortcut = oShell.CreateShortcut(oFile)
If LCase(oShortcut.TargetPath) = LCase(oTargetOld) Then
oShortcut.TargetPath = oTargetNew
oShortcut.Description = oProductDesc
oShortcut.IconLocation=oTargetNew & ",0"
' If Not oWorkingDirectory = "" Then oShortcut.WorkingDirectory = oWorkingDirectory
oShortcut.WorkingDirectory = oWorkingDirectory
oShortcut.Save
End If
End If
Next
End Sub
