谁给我写个史上最完整的电脑优化BAT！

@ ECHO.
@ ECHO.
@ ECHO. 说 明
@ ECHO --------------------------------------------------------------------------
@ ECHO IDE通道在这里看：设备管理器---IDE ATA/ATAPI控制器。一般可看到两个或多个。
@ ECHO 其属性内的“设备类型”，系统默认是“自动检测”，把它设为“无”可以提高
@ ECHO 开机速度。但如果以后要接硬盘或光驱，请记得把相应的通道改为“自动检测”，
@ ECHO 否则进系统后看不到它们。
@ ECHO --------------------------------------------------------------------------
@ ECHO.

::::::::::::::::::::::::::::::::::::常用环境变量:::::::::::::::::::::::::::::::::::::::::::
:: ALLUSERSPROFILE=C:\Documents and Settings\All Users
:: APPDATA=C:\Documents and Settings\Administrator\Application Data

::::::::::::::::::::::::::::::批处理提示完成等信息的方法:::::::::::::::::::::::::::::::::::
:: echo intAnswer=Msgbox("1.***" ^& vbNewLine ^& "" ^& vbNewLine ^& "2.***", ok, "提示:")>"%TEMP%\inform.vbs"
:: attrib +H "%TEMP%\inform.vbs"
:: "%TEMP%\inform.vbs"
:: del /a /f "%TEMP%\inform.vbs"
::::::::::::::::::::::::::::::::::创建快捷方式的方法:::::::::::::::::::::::::::::::::::::::
:: sPath代表批处理所运行的位置，待创快捷方式程序与批处理在同目录，否则要修改sPath后的路径::
:: 如用%sPath%文件夹名称\，若用Programs替换Desktop ，则在“开始--所有程序”中创建快捷方式::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: set sPath=%~dp0
:: echo On Error Resume Next>"%TEMP%\createcs.vbs"
:: echo attrib +H "%TEMP%\createcs.vbs"
:: echo Set Shell=CreateObject("WScript.Shell")>>"%TEMP%\createcs.vbs"
:: echo CsPath=Shell.SpecialFolders("Desktop")>>"%TEMP%\createcs.vbs"
:: echo Set link=Shell.CreateShortcut(CsPath ^& "\\程序名称.lnk")>>"%TEMP%\createcs.vbs"
:: echo link.description="位置:"^& "%sPath%">>"%TEMP%\createcs.vbs"
:: echo link.TargetPath="%sPath%程序名称.exe">>"%TEMP%\createcs.vbs"
:: echo link.WindowStyle=1 >>"%TEMP%\createcs.vbs"
:: echo link.WorkingDirectory=CsPath>>"%TEMP%\createcs.vbs"
:: echo link.Save>>"%TEMP%\createcs.vbs"
:: echo Set link2=Shell.CreateShortcut(CsPath ^& "\\程序名称2.lnk")>>"%TEMP%\createcs.vbs"
:: echo link2.description="位置:"^& "%sPath%">>"%TEMP%\createcs.vbs"
:: echo link2.TargetPath="%sPath%程序名称2.exe">>"%TEMP%\createcs.vbs"
:: echo link2.WindowStyle=1 >>"%TEMP%\createcs.vbs"
:: echo link2.WorkingDirectory=CsPath>>"%TEMP%\createcs.vbs"
:: echo link2.Save>>"%TEMP%\createcs.vbs"
:: "%TEMP%\createcs.vbs"
:: del /a /f "%TEMP%\createcs.vbs"
:::::::::::::::::::::::::注册批处理所在目录及其所有子目录下DLL的方法::::::::::::::::::::::
:: if exist "%SystemDrive%\RegKJ.tmp" del /q "%SystemDrive%\RegKJ.tmp"
:: dir /s /b "*.dll">>"%SystemDrive%\RegKJ.tmp"
:: dir /s /b "*.ocx">>"%SystemDrive%\RegKJ.tmp"
:: for /f "delims=*" %%i in (%SystemDrive%\RegKJ.tmp) do Regsvr32 /s "%%i"
:: del /q "%SystemDrive%\RegKJ.tmp"
::::::::::::::::::::::::::用批处理安装字体的方法－.\指批处理所在目录:::::::::::::::::::::::
:: REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL" /V "CheckedValue" /T "REG_DWORD" /D "1" /F>NUL
:: IF NOT EXIST "%SystemRoot%\FONTS\DESKTOP.INI" ECHO [.ShellClassInfo]>"%SystemRoot%\FONTS\DESKTOP.INI" && ECHO UICLSID={BD84B380-8CA2-1069-AB1D-08000948F534}>>"%SystemRoot%\FONTS\DESKTOP.INI"
:: ATTRIB +H +R "%SystemRoot%\FONTS\DESKTOP.INI"
:: ATTRIB +H +R "%SystemRoot%\FONTS"
:: copy /Y .\字体所在目录名称\*.ttf "%SystemRoot%\fonts\"
:: start explorer "%SystemRoot%\fonts\"
:: echo set WshShell=createobject("wscript.shell")>"%temp%\$tep$.vbs"
:: attrib +H "%temp%\$tep$.vbs"
:: echo WshShell.AppActivate "FONTS">>"%temp%\$tep$.vbs"
:: echo WshShell.sendkeys "%%{f4}">>"%temp%\$tep$.vbs"
:: "%temp%\$tep$.vbs"
:: del /a /f "%temp%\$tep$.vbs"
:::::::::::::::::::::::::::::::::::开始执行代码::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::路径解析::::::::::::::::::::::::::::::::::::::
set CurPath=%~dp0
set CurPath=%CurPath:~0,-1%
set CurPath=%CurPath:\=\\%
set ALLUSERSPROFILE=%ALLUSERSPROFILE:\=\\%
set APPDATA=%APPDATA:\=\\%
set CommonProgramFiles=%CommonProgramFiles:\=\\%
set ProgramFiles=%ProgramFiles:\=\\%
set SystemRoot=%SystemRoot:\=\\%
set windir=%windir:\=\\%
set ComSpec=%ComSpec:\=\\%
set Path=%Path:\=\\%
set HOMEPATH=%HOMEPATH:\=\\%
set USERPROFILE=%USERPROFILE:\=\\%
::::::::::::::::::::::::在以下部分中需用%CurPath%替换批处理运行的路径::::::::::::::
::::::::::::::::::::::::::::::::::在以下部分中需用%%1替换%1::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::导入注册表::::::::::::::::::::::::::::::::::
if exist "%TEMP%\加速_安装.reg" del /q "%TEMP%\加速_安装.reg"
echo Windows Registry Editor Version 5.00>>"%TEMP%\加速_安装.reg"
echo [HKEY_USERS\.DEFAULT\Control Panel\Desktop]>>"%TEMP%\加速_安装.reg"
echo "AutoEndTasks"="1">>"%TEMP%\加速_安装.reg"
echo [HKEY_USERS\.DEFAULT\Control Panel\Desktop]>>"%TEMP%\加速_安装.reg"
echo "HungAppTimeout"="0">>"%TEMP%\加速_安装.reg"
echo [HKEY_USERS\.DEFAULT\Control Panel\Desktop]>>"%TEMP%\加速_安装.reg"
echo "WaitToKillAppTimeout"="0">>"%TEMP%\加速_安装.reg"
echo [HKEY_USERS\.DEFAULT\Control Panel\Desktop]>>"%TEMP%\加速_安装.reg"
echo "MenuShowDelay"="0">>"%TEMP%\加速_安装.reg"
regedit /s "%TEMP%\加速_安装.reg"
del /q "%TEMP%\加速_安装.reg"
:: 修改IDE通道检测设备模式，不接设备的设置为无，提高XP启动速度
:: 建议在系统第二次重新启动检测到所有已经安装的IDE设备后运行
::
:: Date: 2006.10.28
::
:: Date:2008.04.02
@echo off 改变bootini值
bootcfg /timeout 0
rem 恢复boot.ini的各种属性
@echo off 清理垃圾
echo 正在清除系统垃圾文件，请稍等......
del /f /s /q %systemdrive%\*.tmp
del /f /s /q %systemdrive%\*._mp
del /f /s /q %systemdrive%\*.log
del /f /s /q %systemdrive%\*.gid
del /f /s /q %systemdrive%\*.chk
del /f /s /q %systemdrive%\*.old
del /f /s /q %systemdrive%\recycled\*.*
del /f /s /q %windir%\*.bak
del /f /s /q %windir%\prefetch\*.*
rd /s /q %windir%\temp & md %windir%\temp
del /f /q %userprofile%\cookies\*.*
del /f /q %userprofile%\recent\*.*
del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"
del /f /s /q "%userprofile%\Local Settings\Temp\*.*"
del /f /s /q "%userprofile%\recent\*.*"
del /f /s /q "D:\My Documents\Cookies\*.txt"
echo 系统垃圾清理完成!!!!!!!!! OK
echo 清除我的文档记录！
REG ADD "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /V NORECENTDOCSHISTORY /T REG_DWORD /D 1 /F
@set _debug=
@echo %_debug% off & setlocal ENABLEDELAYEDEXPANSION
set hkey1=HKLM\SYSTEM\CurrentControlSet\Enum\PCIIDE\IDEChannel
set hkey2=HKLM\SYSTEM\CurrentControlSet\Control\Class
echo 检测开始.........
for /f "usebackq tokens=*" %%I in (`reg query %hkey1% ^| find /i "IDEChannel\"`) do call :_check "%%I"
@ ECHO.
@ ECHO.
@ ECHO.
echo IED通道检测设备模式设置完成。

goto :eof

:_check
::echo %1
set subkey=
for /f "usebackq tokens=3*" %%J in (`reg query %1 ^| find /i "driver"`) do set subkey=%%J
set DriverDesc=
for /f "usebackq tokens=3,4*" %%K in (`reg query "%hkey2%\%subkey%" /v DriverDesc ^| find /i "driverdesc"`) do set DriverDesc=%%K %%L 通道
reg query "%hkey2%\%subkey%" /v MasterDeviceType | find /i "0x0" > nul
if not %errorlevel%==1 goto _ChgMaster
echo “%DriverDesc%”的设备0上有设备存在。
goto _CheckSlave

:_ChgMaster
reg add "%hkey2%\%subkey%" /v UserMasterDeviceType /t REG_DWORD /d 3 /f >nul
echo “%DriverDesc%”的设备0上无设备，系统“检测方式”设置为无。

:_CheckSlave
reg query "%hkey2%\%subkey%" /v SlaveDeviceType | find /i "0x0" > nul
if not %errorlevel%==1 goto _ChgSlave
echo “%DriverDesc%”的设备1上有设备存在。
goto :eof

:_ChgSlave
reg add "%hkey2%\%subkey%" /v UserSlaveDeviceType /t REG_DWORD /d 3 /f >nul
echo “%DriverDesc%”的设备1上无设备，系统“检测方式”设置为无。
goto :eof

@ ECHO. 摘抄著名：束继涛 32240972

写成bat格式保证好用

请求助高手吧。。。。