windows脚本

开机启动地址

C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp

bat说明

bat执行多个程序

按照顺序执行

start"Window title"/wait cmd/c"F:\1.bat"start"Window title"/wait cmd/c"F:\2.bat"

几乎同时执行

start"F:\1.bat"start"F:\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"%1"=="h"gotobeginmshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit:beginREM 你的批处理文件内容

bat删除自身

del %0

电脑信息

systeminfo

电脑支持最大内存显示

wmic memphysical get maxcapacity

bat删除文件

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

设置目录

setworkpath="F:\work"

显示输出

echo当前目录:%~dp0echo当前目录:%cd%

pushd切换目录

pushd%workpath%

复制文件夹下所有文件到文件夹下all

for/f"delims="%%a in('dir /b/ad ')do(copy%%a\*.*%%a\..\all\)

取消隐藏文件夹

attrib-h-s E:\文件夹

隐藏文件夹

attrib+h+s E:\文件夹

文件夹下过期100天删除

setfolder="F:\"setdays=100set/a mytime=1*30echo%folder% 文件夹（不含子文件夹）文件大于%days%天文件删除 forfiles/P"%folder%"/M*.*/D-%days%/C"cmd /c echo @path 文件创建早于%days%天前文件删除 & cmd /c del @path"timeout/t%mytime%

批量删除当前目录下指定格式之外的文件和文件夹

@echooff & title 批量删除当前目录下指定格式之外的文件和文件夹 cd/d"%~dp0"::设置要排除的文件格式，多个格式之间使用英文逗号隔开setExt=ini,exe,bat,xls ::删除文件for/f"delims="%%a in('dir /a-d/s/b')do(if/i not"%%~a"=="%~f0"(set"Skip="for%%i in(%Ext%)do(if/i".%%~i"=="%%~xa"(setSkip=OK))ifnot defined Skip(echo"正在删除文件%%~a"del/f/q"%%~a")))::删除所有文件夹for/f"delims="%%i in('dir /ad /s /b')do(ifexist"%%i"(echo"正在删除文件夹%%i"rd/s/q"%%i">nul))pause

复制文件

@echoofffor/f"delims="%%a in('dir /b/ad ')do(//遍历当前文件夹下所有文件copy%%a\*.*%%a\..\all\//复制%%a\*.*到上一级的all文件夹)pause

网络

单网卡内外网IP切换

批处理文件（bat）实现内外网IP切换
来源：https://blog.51cto.com/u_15127656/4535157

@echooff rem 强制获取管理员权限%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exitrem//设置变量setNAME="以太网"rem//可以根据需要更改以下属性值setADDR=192.168.1.1setMASK=255.255.255.0setGATEWAY=192.168.1.254setDNS1=59.11.99.66setDNS2= rem//可以根据需要更改以下属性值setADDR_YF=10.0.2.1setMASK_YF=255.255.255.0setGATEWAY_YF=10.0.2.254setDNS1_YF=nonesetDNS2_YF= rem//以上属性为IP地址、子网掩码、网关、首选DNS和备用DNSecho当前可用的操作包括:echo1 设置外网IPecho2 设置研发网IPecho3 退出echo请选择你要的操作:set/p operate=if%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

网卡切换IP

Echooffecho手动设置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设置成功 Pause

windows有线无线网络互切脚本bat

来源：https://blog.csdn.net/zbx931197485/article/details/124898012

自动切换

@echooffecho正在启用超级管理员权限...%1%2 ver|find"5.">nul&&goto :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 interfacesetinterface"WLAN"enableecho当前为WLAN)||(echodisconnected-connecting netsh interfacesetinterface"以太网"enabled netsh interfacesetinterface"WLAN"disableecho当前为以太网)pauseexit

选择切换

@echooffecho正在启用超级管理员权限...%1%2 ver|find"5.">nul&&goto :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） 无线（W）：if"%input%"=="L"goto Yif"%input%"=="W"goto N :Yecho启用本地连接 netsh interfacesetinterface name="WLAN"admin=DISABLED netsh interfacesetinterface name="以太网"admin=ENABLED pauseexit:Necho禁用本地连接 netsh interfacesetinterface name="以太网"admin=DISABLED netsh interfacesetinterface name="WLAN"admin=ENABLED 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 print

vbs文件

vbs删除自身

Setfso=CreateObject("Scripting.FileSystemObject")f=fso.DeleteFile(WScript.ScriptName)WScript.Echo(WScript.ScriptName)

vbs执行程序

setshell=wscript.createObject("wscript.shell")'第一个参数：是BAT文件的路径（用双引号包裹，确保路径中有空格时也能正确运行）。'第二个参数：0表示隐藏窗口，1表示显示窗口'第三个参数：False表示：不等待，顺序执行下一个，True表示脚本会等待当前BAT文件执行完毕后再继续运行下一个。shell.Run"E:\半小时后关机.bat",0,TrueCreateObject("WScript.Shell").Run"F:\你的批处理文件.bat",0,True