中国DOS联盟

@echo off
:: 检测 BeTwin 的版本号
for /f "tokens=1-3 delims=." %%a in ('REG QUERY "HKLM\SOFTWARE\BeTwin" /v ProductVersion ^|findstr "ProductVersion"') do set PV=%%c
if "%PV%"=="" exit else goto %%PV%%

:309
:: 309 版本的输出文件
for /f "tokens=2*" %%a in ('REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CurrentVersion ^|findstr "CurrentVersion"') do set CV=%%b
if %CV%*==5.00* set win2000=174235
if %CV%*==5.1* set winxp=193915
if %CV%*==5.2* set win2003=192659
call :cs&call :%%CV%%&call :ce&exit

:348
:: 348 版本的输出文件
for /f "tokens=2*" %%a in ('REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CurrentVersion ^|findstr "CurrentVersion"') do set CV=%%b
if %CV%*==5.00* set win2000=171916
if %CV%*==5.1* set winxp=191196
if %CV%*==5.2* set win2003=190020
call :cs&call :%%CV%%&call :ce&exit

:362
:: 362 版本的输出文件
for /f "tokens=2*" %%a in ('REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CurrentVersion ^|findstr "CurrentVersion"') do set CV=%%b
if %CV%*==5.00* set win2000=175435
if %CV%*==5.1* set winxp=194555
if %CV%*==5.2* set win2003=193539
call :cs&call :%%CV%%&call :ce&exit

:cs
:: 公用开头程序行
>%PV%.vbs echo Set fso = CreateObject("Scripting.FileSystemObject")
>>%PV%.vbs echo set ado_stream = CreateObject("ADODB.Stream")
>>%PV%.vbs echo ado_stream.Type = 1

:5.00
>>%PV%.vbs echo iFile = fso.GetSpecialFolder(1) ^& "\BeTwinService2K.exe"
>>%PV%.vbs echo if fso.FileExists(iFile) Then
>>%PV%.vbs echo ado_stream.open
>>%PV%.vbs echo ado_stream.LoadFromFile iFile
>>%PV%.vbs echo ado_stream.position = %win2000%
>>%PV%.vbs echo ado_stream.Write HexToByte("EB")
>>%PV%.vbs echo ado_stream.SaveToFile iFile,2
>>%PV%.vbs echo ado_stream.Close
>>%PV%.vbs echo End if

:5.2
>>%PV%.vbs echo iFile = fso.GetSpecialFolder(1) ^& "\BeTwinService2003.exe"
>>%PV%.vbs echo if fso.FileExists(iFile) Then
>>%PV%.vbs echo ado_stream.open
>>%PV%.vbs echo ado_stream.LoadFromFile iFile
>>%PV%.vbs echo ado_stream.position = %win2003%
>>%PV%.vbs echo ado_stream.Write HexToByte("EB")
>>%PV%.vbs echo ado_stream.SaveToFile iFile,2
>>%PV%.vbs echo ado_stream.Close
>>%PV%.vbs echo End if

:5.1
>>%PV%.vbs echo iFile = fso.GetSpecialFolder(1) ^& "\BeTwinServiceXP.exe"
>>%PV%.vbs echo if fso.FileExists(iFile) Then
>>%PV%.vbs echo ado_stream.open
>>%PV%.vbs echo ado_stream.LoadFromFile iFile
>>%PV%.vbs echo ado_stream.position = %winxp%
>>%PV%.vbs echo ado_stream.Write HexToByte("EB")
>>%PV%.vbs echo ado_stream.SaveToFile iFile,2
>>%PV%.vbs echo ado_stream.Close
>>%PV%.vbs echo End if

:ce
:: 公用结尾程序行
>>%PV%.vbs echo set ado_stream = Nothing
>>%PV%.vbs echo Function HexToByte(hexStr)
>>%PV%.vbs echo set xmldom = Wscript.CreateObject("Microsoft.XMLDOM")
>>%PV%.vbs echo set byteObj= xmldom.createElement("byteObj")
>>%PV%.vbs echo byteObj.dataType = "bin.hex"
>>%PV%.vbs echo byteObj.nodeTypedValue = hexStr
>>%PV%.vbs echo HexToByte=byteObj.nodeTypedValue
>>%PV%.vbs echo End Function