批处理是乱码，怎么解决？

mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\wps文字.lnk""):b.TargetPath=""%~dp0office6\wps.exe"":b.WorkingDirectory=""%~dp0office6\"":b.Save:close")

将这条命令复制粘贴到记事本中，另存为ANSI编码的t.bat文件