VBSファイルをCMDファイルにする。

今までも、JSファイルをCMDファイルにすることは出来ましたが、VBSファイルをCMDファイルにするのは無理、と諦めていました。が、

@if(0)==(0) ECHO OFF
CScript.exe //E:JScript //NoLogo "%~f0" %*
GOTO :EOF
@end
var SC=new ActiveXObject('ScriptControl');SC.TimeOut=-1;
SC.Language='VBScript';SC.AddObject("WScript",WScript)
SC.AddCode(f.toString().split('\r\n').slice(1,-1).join('\r\n'));
function f(){/*
WScript.Echo WScript.ScriptFullName
WScript.Echo WScript.Arguments.Count()
For Each Arg In WScript.Arguments
  WScript.Echo Arg
Next
*/}