Modify the implementation code of directory name and shortcut name through VBS _vbs

Copy Code code as follows:

Set Fso=wscript.createobject ("Scripting.FileSystemObject")

oldfoldername1= "263 Enterprise Messenger"
newfoldername1= "Peacemap Messenger"
OldFileName1 = "263 Enterprise messenger.lnk"
newFileName1 = "Peacemap Messenger.lnk"
OldFileName2 = "Uninstall 263 Enterprise Messenger.lnk"
newFileName2 = "Uninstall Peacemap messenger.lnk"

Originalpath= "C:\Documents and Settings\All users\" Start menu \ Programs "
Newpath= "C:\Documents and Settings\All users\" Start menu \ program \peacemap Messenger "
Deskpath= "C:\Documents and Settings\All Users\ Desktop"

if (Fso.folderexists (Originalpath & "\" & OldFolderName1)) Then
Set Fsogetfolder = fso. GetFolder (Originalpath & "\" & OldFolderName1)
Fsogetfolder.name = newFolderName1
End If

If fso.fileexists (newpath& "\" &oldfilename1) Then
Set F=fso.getfile (newpath& "\" &oldfilename1)
F.name=newfilename1
End If

If fso.fileexists (newpath& "\" &oldfilename2) Then
Set F=fso.getfile (newpath& "\" &oldfilename2)
F.name=newfilename2
End If

If fso.fileexists (deskpath& "\" &oldfilename1) Then
Set F=fso.getfile (deskpath& "\" &oldfilename1)
F.name=newfilename1
End If

MsgBox "Finish!"