常用批处理

修改DNS批处理

代码如下：（数字部分为DNS）

@echo off
@netsh interface ip set dns name="本地连接" source=static addr=222.172.200.68
@netsh interface ip add dns name="本地连接" addr=61.166.150.123 index=2

 

 

开机自动登陆 宽带连接 批处理

把以下代码存为批处理文件即可(帐号 密码自行修改)

RasDial 宽带连接 帐号 密码

 

 

批处理运行屏保

代码如下：(C:/WINDOWS/心形七彩泡泡.scr 是屏保的位置)

start C:/WINDOWS/心形七彩泡泡.scr /s rundll32.exe user32.dll,LockWorkStation

 

 

批处理常用到的 等待几秒运行其他文件

假设需要Sleep 10秒，就可以这样写：

把下面代码存为批处理即可

SET SLEEP=ping 127.0.0.1 -n
%SLEEP% 11 > nul

 

倒数计时自动关机 批处理

开始－－运行－－输入－－shutdown /s /t 60
/s 意思是 关机
/r 意思是 重启
/t 意思是 时间（以秒计算）


或者下面的保存为
.bat格式
运行就可以了


@ECHO off
TITLE 自动关机程序
:start
CLS
COLOR 1f
rem 使用COLOR命令对控制台输出颜色进行更改
MODE con: COLS=41 LINES=18
rem MODE语句为设定窗体的宽和高
set tm1=%time:~0,2%
set tm2=%time:~3,2%
set tm3=%time:~6,2%
ECHO %date% %tm1%点%tm2%分%tm3%秒
ECHO =========================================
ECHO 请选择要进行的操作，然后按回车
ECHO ———————————————
ECHO.
ECHO 1. 定时关机
ECHO 2. 倒计时关机
ECHO 3. 删除定时关机任务
ECHO 4. 查看任务状态
ECHO 5. 刷新当前时间
ECHO 6. 重新启动
ECHO 7. 锁定计算机
ECHO 8. 注销
ECHO 9. 退出
ECHO.

:cho
SET Choice=
SET /P Choice=选择:
rem 设定变量"Choice"为用户输入的字符
IF NOT "%Choice%"=="" SET Choice=%Choice:~0,1%
rem 如果输入大于1位,取第1位,比如输入132,则返回值为1
ECHO.
IF /I "%Choice%"=="1" GOTO SetHour
IF /I "%Choice%"=="2" GOTO outtime
IF /I "%Choice%"=="3" GOTO delAt
IF /I "%Choice%"=="4" GOTO view
IF /I "%Choice%"=="5" GOTO start
IF /I "%Choice%"=="6" GOTO restart
IF /I "%Choice%"=="7" GOTO lock
IF /I "%Choice%"=="8" GOTO logoff
IF /I "%Choice%"=="9" GOTO end
rem 为避免出现返回值为空或含空格而导致程序异常,需在变量外另加双引号
rem 注意,IF语句需要双等于号
rem 如果输入的字符不是以上数字,将返回重新输入
ECHO 选择无效，请重新输入
ECHO.
GOTO cho

:SetHour
CLS
ECHO.
SET ask=
SET /p ask=是否设定为每天执行关机命令(y/n):
IF NOT "%ask%"=="" SET ask=%ask:~0,1%
IF /I "%ask%"=="y" GOTO yes
IF /I "%ask%"=="n" GOTO no
GOTO SetHour

:yes
ECHO 请指定24小时制式时间,格式为 小时:分钟
SET shutdowntime=
SET /p shutdowntime=输入:
at %shutdowntime% /every:M,T,W,Th,F,S,Su tsshutdn 0 /delay:0 /powerdown >nul
rem 设定为每周的星期一至星期日,即为每天
IF NOT errorlevel 1 GOTO ok
rem 如果输入正确,就执行ok段的语句
ECHO %shutdowntime% 不是标准的时间格式,请重新输入
ECHO.
GOTO yes

:no
ECHO 请指定24小时制式时间,格式为 小时:分钟
SET shutdowntime=
SET /p shutdowntime=输入:
at %shutdowntime% tsshutdn 0 /delay:0 /powerdown >nul
IF NOT errorlevel 1 GOTO ok
ECHO %shutdowntime% 不是标准的时间格式,请重新输入
ECHO.
GOTO no

:ok
ECHO.
SET h=%shutdowntime:~1,1%
SET ah=%shutdowntime:~0,1%
SET am=%shutdowntime:~2,2%
SET bh=%shutdowntime:~0,2%
SET bm=%shutdowntime:~3,2%
IF "%h%"==":" (
SET HM=%ah%时%am%分
) ELSE (
SET HM=%bh%时%bm%分)
rem 如果输入h:mm则HM=h时mm分,否则HM=hh时mm分
IF /I "%ask%"=="y" ECHO 系统将于每天的%HM%关闭
IF /I "%ask%"=="n" ECHO 系统将于%HM%关闭
ECHO 设定完毕! 按任意键继续...
PAUSE >nul
GOTO start

:outtime
CLS
ECHO.
ECHO 请输入倒计时秒数
ECHO ————————
ECHO (设定后要取消,单击"确定"后按Ctrl+C键两次)
SET timed=
SET /p timed=输入:
tsshutdn %timed% /delay:0 /powerdown >nul
IF not errorlevel 1 GOTO ok
ECHO %timed% 是无效的关机时间,请重新输入
ECHO.
GOTO outtime

:delAt
cls
echo.
at /del /y
echo 定时关机任务已取消,按任意键继续...
pause >nul
GOTO start

:view
MODE con: COLS=85 LINES=18
COLOR 70
ECHO.
at
ECHO 按任意键继续...
PAUSE >nul
GOTO start

:restart
shutdown -r -t 0

:lock
rundll32.exe user32.dll,LockWorkStation
goto start

:logoff
logoff

:end
exit

 

VBS启动BAT批处理隐藏对话框

自行修改批处理路径

Set ws = CreateObject("Wscript.Shell")  
ws.run "cmd /c C:/启动.BAT",vbhide

 

 

VBS禁止默认共享

Set WshShell=CreateObject("Wscript.Shell")

WshShell.RegWrite "HKLM/SYSTEM/CurrentControlSet/Services/lanmanserver/parameters/AutoShareServer","0","REG_DWORD"

wscript.echo "操作成功"
set WshShell=nothing

 

 

 

VBS创建对话框

MSGBox "欢迎光临本站 www.58god.cn",48,"温馨提示："  

 

 

VBS打开网页

Set objShell = CreateObject("Wscript.Shell")
objShell.Run("http://58god.cn")
Wscript.Quit

 

 

VBS修改3389终端的默认端口

Set WshShell=CreateObject("Wscript.Shell")
Function Imput()
imputport=InputBox("请输入一个端口号，注意：这个端口号目前不能被其它程序使用，否则会影响终端服务"," 更改终端端口号", "3389", 100, 100)
If imputport<>"" Then
If IsNumeric(imputport) Then

WshShell.RegWrite "HKLM/SYSTEM/CurrentControlSet/Control/Terminal Server/Wds/rdpwd/Tds/tcp/PortNumber",imputport,"REG_DWORD"
WshShell.RegWrite "HKLM/SYSTEM/CurrentControlSet/Control/Terminal Server/WinStations/RDP-Tcp/PortNumber",imputport,"REG_DWORD"
wscript.echo "操作成功"
Else wscript.echo "输入出错，请重新输入"
Imput()
End If
Else wscript.echo "操作已经取消"
End If
End Function
Imput()
set WshShell=nothing

 

 

一键清理系统垃圾文件

@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/*.*"
echo 清理系统垃圾完成！
echo. & pause

全盘删除所有文件夹下的_desktop.ini

@echo off
setlocal enabledelayedexpansion
for /f "delims=/" %%i in ('fsutil fsinfo drives^|find /v ""') do (
    set var=%%i
    set drive=!var:~-2!
    fsutil fsinfo drivetype !drive!|find "固定">nul && del /a /f /s !drive!/_desktop.ini
)
pause

 

清除所有多余的桌面右键菜单

@ ECHO OFF
@ ECHO.
@ ECHO.
@ ECHO.                              说  明
@ ECHO -----------------------------------------------------------------------
@ ECHO 很多显卡在装了驱动之后，桌面右键会多出一项或多项菜单，这些功能并不实用，
@ ECHO 还会拖慢右键的弹出速度，以Intel的集成显卡为甚。迟纯的反应速度严重地影响
@ ECHO 了使用者的心情。我们最好清除它。
@ ECHO -----------------------------------------------------------------------
PAUSE

regsvr32 /u /s igfxpph.dll
reg delete HKEY_CLASSES_ROOT/Directory/Background/shellex/ContextMenuHandlers /f
reg add HKEY_CLASSES_ROOT/Directory/Background/shellex/ContextMenuHandlers/new /ve /d {D969A300-E7FF-11d0-A93B-00A0C90F2719}
reg delete HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run /v HotKeysCmds /f
reg delete HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run /v IgfxTray /f

清除任何显卡生成的桌面右键多余菜单(推荐)

存为批处理即可

regsvr32 /u /s igfxpph.dll
reg delete HKEY_CLASSES_ROOT/Directory/Background/shellex/ContextMenuHandlers /f
reg add HKEY_CLASSES_ROOT/Directory/Background/shellex/ContextMenuHandlers/new /ve /d {D969A300-E7FF-11d0-A93B-00A0C90F2719}

 

 

批处理整人 狂弹DOS窗口

@ECHO OFF
:1
start
goto 1

 

 

批处理 禁止打开启动项 以前防机器狗用的命令

cacls "C:/Documents and Settings/All Users/「开始」菜单/程序/启动" /t /e /c /d administrators

 

进入批处理需要输入密码

@echo off
color a
cls
prompt 58god
title 58god 专用
set pass=0
set times=0          
echo       为了防止DOS类病毒现以将DOS加密`密码为服务器密码            
:start
set /p pass=想进入此程序请输入CMD密码：
if %pass%==123 goto ok
if %times%==0 goto end
set /A times=%times%-1
:end
exit
t

 

建立桌面IE指定网址的快捷方式

@echo off
set lnkdir="%USERPROFILE%/桌面"
echo [InternetShortcut] >%lnkdir%/网吧影院.url
echo URL="http://192.168.1.2" >>%lnkdir%/网吧影院.url
echo IconFile=d:/ico/图标.DLL>>%lnkdir%/网吧影院.url
echo IconIndex=11>>%lnkdir%/网吧影院.url

exit

 

 

复制文件批处理

@ECHO off
cls
color 0A
ECHO     欢迎使用本软件（3GP转换软件）
ECHO     QQ:258665236 Mail:[e-mail]
ECHO==========================================================
ECHO 程序运行中，请稍等。。。。。。
copy aveq.dll %windir%/system32

 

复制文件到WINDOWS PROGRAM

@ECHO off
cls
color 0A
ECHO     欢迎使用本软件（3GP转换软件）
ECHO     QQ:258665236 Mail:[e-mail]
ECHO==========================================================
ECHO 程序运行中，请稍等。。。。。。
copy 根文件 %windir%/system32
copy 根文件 C:/Progra~1/目标文件
regsvr32 /s %windir%/system32/aveq.dll
regsvr32 /s realmedia.dll
start 运行文件.exe

 

批处理设置代理

需要把相关的IP地址修改一下


@echo off
title 自动设置代理服务器
echo 自动设置代理服务器

echo 需要以普通用户权限、管理员权限各运行本程序一次

rem echo 正在清空代理服务器设置……
rem reg add "HKCU/Software/Microsoft/Windows/CurrentVersion/Internet Settings" /v ProxyEnable /t REG_DWORD /d 0 /f
rem reg add "HKCU/Software/Microsoft/Windows/CurrentVersion/Internet Settings" /v ProxyServer /d "" /f
rem reg add "HKCU/Software/Microsoft/Windows/CurrentVersion/Internet Settings" /v ProxyOverride /t REG_SZ /d 0 /f
rem echo 代理服务器设置已经清空

echo 正在设置代理服务器……
reg add "HKCU/Software/Microsoft/Windows/CurrentVersion/Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /f
reg add "HKCU/Software/Microsoft/Windows/CurrentVersion/Internet Settings" /v ProxyServer /d "221.131.124.22:80" /f
reg add "HKCU/Software/Microsoft/Windows/CurrentVersion/Internet Settings" /v ProxyOverride /t REG_SZ /d "" /f


echo 正在刷新设置……
ipconfig /flushdns


echo 显示新的设置：
ipconfig /all


echo 正在关闭浏览器：
taskkill /f /t /im IEXPLORE.exe

echo 正在开启浏览器
"C:/Program Files/Internet Explorer/IEXPLORE.EXE"

 

 

彻底关闭系统属性的还原

reg add "HKLM/SOFTWARE/Policies/Microsoft/Windows NT/systemrestore" /v DisableConfig /t reg_dword /d 1 /f>nul
reg add "HKLM/SOFTWARE/Policies/Microsoft/Windows NT/systemrestore" /v DisableSR /t reg_dword /d 1 /f>nul

 

 

 

PING不通结束进程再运行一个进程

@echo off
ping 192.168.1.238 -n 1 |find "timed out" >nul 2>nul
@echo 网络故障
goto :timed out
@echo 网络良好
goto :ok

:timed out

taskkill /im MgrClient.exe
start D:/tools/呼叫网管/MgrClient.exe

exit

:ok
exit

 

XP 批处理打补丁

把补丁文件放同一目录


for %%i in (*chs.exe) do start /wait %%i /passive /norestart
或for %%i in (*chs.exe) do start /wait %%i /U /Z

 

延时5秒重启CGO

@echo off
mode con: cols=24 lines=6
color 80
title 快速重启锐起CGO服务
echo 5秒后开始重启CGO.&ping -n 2 127.0.0.1>nul
cls
echo 4秒后开始重启CGO..&ping -n 2 127.0.0.1>nul
cls
echo 3秒后开始重启CGO...&ping -n 2 127.0.0.1>nul
cls
echo 2秒后开始重启CGO....&ping -n 2 127.0.0.1>nul
cls
echo 1秒后开始重启CGO.....&ping -n 2 127.0.0.1>nul
cls&echo 正在重启CGO.....
net stop GSGIoService>>CgoRebootLog.txt&net start GSGIoService>>CgoRebootLog.txt

 

 

 

IP修改(经典)VBS

Dim Num
Num=Inputbox ("请输入机器号"+chr(10)&chr(13)+""+chr(10)&chr(13)+"取值范围2-254的数字")
dim Name
if Num<10 then
Name="FlY00"
else
if Num<100 then
Name="FlY0"
else
Name="FlY"
end if
end if
Set Sh = CreateObject("Wscript.Shell")
Sh.RegWrite "HKEY_LOCAL_MACHINE/System/CurrentControlSet/Control/ComputerName/ComputerName/ComputerName",Name&Num,"REG_SZ"
Sh.RegWrite "HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters/NV Hostname",Name&Num,"REG_SZ"
Sh.RegWrite "HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters/Hostname",Name&Num,"REG_SZ"
Sh.RegWrite "HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters/VirtualNetworkNumber",Num,"REG_DWORD"
Sh.RegWrite "HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/NwlnkIpx/Parameters/VirtualNetworkNumber",Num,"REG_DWORD"
Set sh = Nothing
Set oShell = Nothing
strComputer = "."
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.1."&Num)
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.1.1")
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway)
Dim dns
dns=Array("222.172.200.68","61.166.150.123")
err=objNetAdapter.SetDNSServerSearchOrder(dns)
'msgbox(err)
Next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")
Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
'ObjComputer.Rename("game" &Num)
Next
Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
objNetworkSettings.SetIPXVirtualNetworkNumber(Num)