set args = WScript.Arguments
num = args.Count

if num = 0 then
    WScript.Echo "Usage: [CScript | WScript] invis.vbs oldDisplayName aScript.bat <some script arguments>"
    WScript.Quit 1
end if

sargs = ""
if num > 1 then
    sargs = " "
    for k = 1 to num - 1
        anArg = args.Item(k)
        sargs = sargs & """" & anArg & """" & " "
    next
end if

Set WshShell = WScript.CreateObject("WScript.Shell")
Function replaceLink(oldLink, newLink)
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	If objFSO.FileExists(oldLink) And Not objFSO.FileExists(newLink) Then
		objFSO.MoveFile oldLink, newLink
	End If
End Function

oldDisplayName = "Synology Note Station"
newDisplayName = "Synology Note Station Client"
menuFolder = WshShell.SpecialFolders("Programs") & "\Synology"
desktop = WshShell.SpecialFolders("Desktop")

replaceLink menuFolder & "\" & oldDisplayName & ".lnk", menuFolder & "\" & newDisplayName & ".lnk"
replaceLink menuFolder & "\Uninstall " & oldDisplayName & ".lnk", menuFolder & "\Uninstall " & newDisplayName & ".lnk"
replaceLink desktop & "\" & oldDisplayName & ".lnk", desktop & "\" & newDisplayName & ".lnk"

WshShell.Run """" & WScript.Arguments(0) & """" & sargs, 0, False