On Error Resume Next
Dim Fso, Shell, PP, DP, AP

Set Fso = CreateObject("Scripting.FileSystemObject")
Set Shell = CreateObject("WScript.Shell")
PP = Shell.SpecialFolders("Programs")
DP = Shell.SpecialFolders("Desktop")
AP = Fso.GetParentFolderName(Wscript.ScriptFullName)
  
Shell.Run AP & "\AlonePlayer.exe --uninstall" , 1, true   
Fso.DeleteFile( DP & "\CMS.lnk")
Fso.DeleteFolder(PP & "\CMS")
Fso.DeleteFolder(AP)  

Shell.RegDelete("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\SmartMC")

s = MsgBox("Uninstall success!", vbOKOnly)