Renaming Desktop Shortcut Using VB Scripts

On Error Resume Next  
Dim FSO
Dim FSOFol
  Set FSO = CreateObject("Scripting.FileSystemObject")
  strFile = "C:\Users\Public\Desktop\Skype.lnk"
  strRename = "C:\Users\public\Desktop\Skypetest.lnk"
   If FSO.FileExists(strFile) Then
        FSO.MoveFile strFile, strRename
   End If