BAT文件开机启动地址bat说明bat执行多个程序关闭命令回显‌使脚本运行时不在窗口中显示执行的命令原文仅输出结果 。‌编码转换延时自动继续强制获取管理员权限运行不显示bat删除自身电脑信息电脑支持最大内存显示bat删除文件自动关机半小时候关机半小时候重启取消shutdown命令时间获取当前时间文件目录操作获取当前目录设置目录显示输出pushd切换目录复制文件夹下所有文件到文件夹下all取消隐藏文件夹隐藏文件夹文件夹下过期100天删除批量删除当前目录下指定格式之外的文件和文件夹复制文件网络单网卡内外网IP切换网卡切换网卡切换IPwindows有线无线网络互切脚本bat自动切换选择切换正在从DHCP自动获取IP地址...网关添加临时路由vbs文件vbs删除自身vbs执行程序开机启动地址C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUpbat说明bat执行多个程序按照顺序执行startWindow title/wait cmd/cF:\1.batstartWindow title/wait cmd/cF:\2.bat几乎同时执行startF:\1.batstartF:\2.bat关闭命令回显‌使脚本运行时不在窗口中显示执行的命令原文仅输出结果 。‌echooff编码转换chcp 65001延时自动继续TIMEOUT/T 30强制获取管理员权限%1 mshta vbscript:CreateObject(Shell.Application).ShellExecute(cmd.exe,/c %~s0 ::,,runas,1)(window.close)exit运行不显示echooffif%1hgotobeginmshta vbscript:createobject(wscript.shell).run(%~nx0 h,0)(window.close)exit:beginREM 你的批处理文件内容bat删除自身del %0电脑信息systeminfo电脑支持最大内存显示wmic memphysical get maxcapacitybat删除文件del/f/s/q D:\001\002\*.*rd/s/q/f D:\001\002 cd..\del%0自动关机半小时候关机shutdown-s-f-t 1800半小时候重启shutdown-r-f-t 1800取消shutdown命令shutdown-a时间获取当前时间setmytime%date%%time: 0%-自动提交文件目录操作获取当前目录setnowpath%~dp0设置目录setworkpathF:\work显示输出echo当前目录:%~dp0echo当前目录:%cd%pushd切换目录pushd%workpath%复制文件夹下所有文件到文件夹下allfor/fdelims%%a in(dir /b/ad )do(copy%%a\*.*%%a\..\all\)取消隐藏文件夹attrib-h-s E:\文件夹隐藏文件夹attribhs E:\文件夹文件夹下过期100天删除setfolderF:\setdays100set/a mytime1*30echo%folder% 文件夹不含子文件夹文件大于%days%天文件删除 forfiles/P%folder%/M*.*/D-%days%/Ccmd /c echo path 文件创建早于%days%天前文件删除 cmd /c del pathtimeout/t%mytime%批量删除当前目录下指定格式之外的文件和文件夹echooff title 批量删除当前目录下指定格式之外的文件和文件夹 cd/d%~dp0::设置要排除的文件格式多个格式之间使用英文逗号隔开setExtini,exe,bat,xls ::删除文件for/fdelims%%a in(dir /a-d/s/b)do(if/i not%%~a%~f0(setSkipfor%%i in(%Ext%)do(if/i.%%~i%%~xa(setSkipOK))ifnot defined Skip(echo正在删除文件%%~adel/f/q%%~a)))::删除所有文件夹for/fdelims%%i in(dir /ad /s /b)do(ifexist%%i(echo正在删除文件夹%%ird/s/q%%inul))pause复制文件echoofffor/fdelims%%a in(dir /b/ad )do(//遍历当前文件夹下所有文件copy%%a\*.*%%a\..\all\//复制%%a\*.*到上一级的all文件夹)pause网络单网卡内外网IP切换批处理文件bat实现内外网IP切换来源https://blog.51cto.com/u_15127656/4535157echooff rem 强制获取管理员权限%1 mshta vbscript:CreateObject(Shell.Application).ShellExecute(cmd.exe,/c %~s0 ::,,runas,1)(window.close)exitrem//设置变量setNAME以太网rem//可以根据需要更改以下属性值setADDR192.168.1.1setMASK255.255.255.0setGATEWAY192.168.1.254setDNS159.11.99.66setDNS2 rem//可以根据需要更改以下属性值setADDR_YF10.0.2.1setMASK_YF255.255.255.0setGATEWAY_YF10.0.2.254setDNS1_YFnonesetDNS2_YF rem//以上属性为IP地址、子网掩码、网关、首选DNS和备用DNSecho当前可用的操作包括:echo1 设置外网IPecho2 设置研发网IPecho3 退出echo请选择你要的操作:set/p operateif%operate%1 goto 1if%operate%2 goto 2if%operate%3 goto 3 :1echo设置外网IP中,请稍等...rem//可以根据你的需要进行更改echoIP_ADDR %ADDR%echoMASK %MASK%echoGATEWAY %GATEWAY% netsh interface ipv4setaddress%NAME% static%ADDR%%MASK%%GATEWAY%echo首选DNS %DNS1%if%DNS1%(echoDNS1为空)elsenetsh interface ipv4setdns%NAME% static%DNS1% primaryecho备用DNS %DNS2%if%DNS2%(echoDNS2为空)else(netsh interface ipv4 add dns%NAME%%DNS2%)echo**********设置为外网IP成功:%ADDR%***********pause goto 3 :2echo设置研发网IP中,请稍等...rem//可以根据你的需要进行更改echoIP_ADDR %ADDR_YF%echoMASK %MASK_YF%echoGATEWAY %GATEWAY_YF% netsh interface ipv4setaddress%NAME% static%ADDR_YF%%MASK_YF%%GATEWAY_YF%echo首选DNS %DNS1_YF%if%DNS1%(echoDNS1为空)elsenetsh interface ipv4setdns%NAME% static%DNS1_YF% primaryecho备用DNS %DNS2%if%DNS2%(echoDNS2为空)else(netsh interface ipv4 add dns%NAME%%DNS2_YF%)echo**********设置研发网IP成功:%ADDR_YF%***********pause goto 3 :3exit网卡切换netsh interfacesetinterface内网disabled netsh interfacesetinterface外网enabledexit网卡切换IPEchooffecho手动设置IP地址 Netsh interface IPSetAddr外网Static 172.16.101.187 255.255.255.0 172.16.101.254echo手动设置DNS地址 Netsh interface IPSetdns外网static 202.98.192.67 primaryecho手动设置备份DNS地址 Netsh interface IP add dns外网202.98.198.167Echo设置成功 Pausewindows有线无线网络互切脚本bat来源https://blog.csdn.net/zbx931197485/article/details/124898012自动切换echooffecho正在启用超级管理员权限...%1%2 ver|find5.nulgoto :st mshta vbscript:createobject(shell.application).shellexecute(%~s0,goto :st,,runas,1)(window.close)goto :eof :stcopy%~0%windir%\system32\echo启用超级管理员权限成功 echooff netsh interface show interface以太网|find管理状态: 已启用nul (echoconnected-disconnecting...netsh interfacesetinterface以太网disabled netsh interfacesetinterfaceWLANenableecho当前为WLAN)||(echodisconnected-connecting netsh interfacesetinterface以太网enabled netsh interfacesetinterfaceWLANdisableecho当前为以太网)pauseexit选择切换echooffecho正在启用超级管理员权限...%1%2 ver|find5.nulgoto :st mshta vbscript:createobject(shell.application).shellexecute(%~s0,goto :st,,runas,1)(window.close)goto :eof :stcopy%~0%windir%\system32\echo启用超级管理员权限成功 echooffecho本地网络与无线网络切换请输入字符set/p input 本地L 无线Wif%input%Lgoto Yif%input%Wgoto N :Yecho启用本地连接 netsh interfacesetinterface nameWLANadminDISABLED netsh interfacesetinterface name以太网adminENABLED pauseexit:Necho禁用本地连接 netsh interfacesetinterface name以太网adminDISABLED netsh interfacesetinterface nameWLANadminENABLED pauseexit正在从DHCP自动获取IP地址…netsh interface ipsetaddress%NAME% dhcp//动态地址获取网关添加临时路由route add 0.0.0.0 mask 0.0.0.0 10.10.9.254 metric 10 route add 10.0.0.0 mask 255.0.0.0 10.10.9.254 metric 10 route printvbs文件vbs删除自身SetfsoCreateObject(Scripting.FileSystemObject)ffso.DeleteFile(WScript.ScriptName)WScript.Echo(WScript.ScriptName)vbs执行程序setshellwscript.createObject(wscript.shell)第一个参数是BAT文件的路径用双引号包裹确保路径中有空格时也能正确运行。第二个参数0表示隐藏窗口1表示显示窗口第三个参数False表示不等待顺序执行下一个True表示脚本会等待当前BAT文件执行完毕后再继续运行下一个。shell.RunE:\半小时后关机.bat,0,TrueCreateObject(WScript.Shell).RunF:\你的批处理文件.bat,0,True