写段vbs代码，破解winrar密码（单一字母密码）

Set fso = WScript.CreateObject("Scripting.Filesystemobject")rarpath=InputBox("请输入rar.exe的完整路径")If fso.FileExists(rarpath)=True Thenrarpath=""""&rarpath&""""Else MsgBox "找不到rar.exe！",48