[Iska]

а вместо него копировал бы другой с определенным стандартизированным именем. »

Копировать — не стоит. Категорически. Либо создавать заново, либо менять назначение у существующего. Например (не проверялось):

читать дальше »

Код:

Option Explicit

Dim objDictionary

Dim objFSO
Dim objFile
Dim objWshShell

Dim elem


Set objDictionary = WScript.CreateObject("Scripting.Dictionary")

objDictionary.Add "\\SRV1\Folder",  "\\SRV2\Folder"
objDictionary.Add "\\SRV1\Folder2", "\\SRV3\Folder3"

Set objWshShell   = WScript.CreateObject("WScript.Shell")
Set objFSO        = WScript.CreateObject("Scripting.FileSystemObject")

For Each objFile In objFSO.GetFolder(objWshShell.SpecialFolders("Desktop")).Files
	If LCase(objFSO.GetExtensionName(objFile.Name)) = "lnk" Then
		With objWshShell.CreateShortcut(objFile.Path)
			For Each elem In objDictionary.Keys
				If LCase(elem) = LCase(.TargetPath) Then
					.TargetPath = objDictionary.Item(elem)
					
					.Save
				End If
			Next
		End With
	End If
Next

objDictionary.RemoveAll

Set objDictionary = Nothing
Set objFSO        = Nothing
Set objWshShell   = Nothing

WScript.Quit 0