批处理转换字符为ASC，计算平方根等

要被标题吓住了，目的是介绍这种bat嵌vbs且不生成临时文件的好方法。
该文件可以被cmd和wscript解析，bat和vbs之间的通信通过参数进行：

' 2>nul 3>nul&title P函数&@echo off&cls
'from bbs.verybat.cn by WANK-OILZ 2008-4

'&if not "%1"=="" goto :on
'&echo 1---------计算平方根
'&echo 2---------转换十六进制(数字太大可能溢出)
'&echo 3---------将字符转换成ASC码
'&set/p choose=输入你的选择:
'&if %choose%==1 set/p arg=请输入要计算平方根的数:
'&if %choose%==2 set/p arg=请输入要转换成16进制的数:
'&if %choose%==3 set/p arg=请输入一个你要转换的字符:
'&start wscript.exe /nologo /e:vbs %0 %choose% %arg%
'&exit

select case wscript.arguments(0)
case 1 jieguo=sqr(wscript.arguments(1))
case 2 jieguo=hex(wscript.arguments(1))
case 3 jieguo=asc(wscript.arguments(1))
end select
s=wscript.scriptfullname
set oshell=createobject("wscript.shell")
oshell.run "cmd /c"&""""&s&""""&" "&jieguo,1,false
:on error resume next

'&title P函数&echo 结果是:%1&echo.&pause&%0