求大神将下面批处理文件转译成vbs文件，在线等！！！

On Error Resume NextDim WshShellDim fsoDim InstallDirDim OldYearSet WshShell = CreateObject("wscript.Shell")Set fso = CreateObject("scripting.filesystemobject")InstallDir = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\TAN