vbs延时

Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
WScript.Sleep(6000)
Wsh.Run "d:\tools\ping.exe",0,True
Set Wsh=NoThing
WScript.quit

将当前系统时间写入txt文件

@echo off
(echo.&echo %date% %time:~0,-3% %username%
echo.&echo ---606 605---
)>>c:\开机时间.txt

taskkill结束进程

taskkill /f /im IEXPLORE.EXE

断开vpn链接(注意链接名字)

rasdial "VPN 连接" /d

不重启修改计算机名(win7及xp系统应该可用)

@echo off 
echo ---
set /p name=请输您的计算机名: 
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v ComputerName /t reg_sz /d %name% /f >nul 2>nul 
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /d %name% /f >nul 2>nul 
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v Hostname /t reg_sz /d %name% /f >nul 2>nul 
echo. 
echo 修改计算机名完毕 
echo. 
echo AppLife.Net 
set /p work1=请输入您的工作组名: 
wmic computersystem where Name="%COMPUTERNAME%" call JoinDomainOrWorkgroup Name="%work1%" 
echo 修改工作组完毕 
pause>nul 
echo.

批处理切换设置计算机名字

cls
@ECHO OFF
CLS
color 0a
ECHO.
ECHO.
ECHO.  1  设置为D1             
ECHO.                                   
ECHO.  2  设置为D2         
ECHO.
ECHO.  3  设置为JL         
ECHO.
ECHO.  请输入选择的序号(123):

set /p  ID=
if "%id%"=="1"  set name=D1
if "%id%"=="2" set name=D2
if "%id%"=="3" set name=JL

reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v ComputerName /t reg_sz /d %name% /f >nul 2>nul 
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /d %name% /f >nul 2>nul 
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v Hostname /t reg_sz /d %name% /f >nul 2>nul 
echo. 
echo 修改计算机名完毕
echo 按任意键退出....
echo. 

pause>nul 
echo.

win7批处理切换ip地址

cls
@ECHO OFF
CLS
color 0a


:MENU
ECHO.  =-=-=-=Win7系统IP快速设置=-=-=-=
ECHO.
ECHO.  1  A段IP           
ECHO.                              
ECHO.  2  B段IP         
ECHO. 
ECHO.  3  退出         
ECHO. 
ECHO.  =-=-=-==-=-=-=-=-=-=-=-=-=-=-=
ECHO.
echo.  请输入选择项目的序号:

set /p  ID=
if "%id%"=="1"  goto aip

if "%id%"=="2" goto bip
if "%id%"=="3" exit
PAUSE

:aip
@echo off 
netsh interface ipv4 set address "本地连接" static 192.168.6.99 255.255.255.0 192.168.6.1 
netsh interface ipv4 set dns name="本地连接" source=static addr=202.102.224.68
CLS
ECHO.  成功设置为A段IP 
ECHO.  当前IP: 192.168.16.98
goto MENU

:bip
@echo off 
netsh interface ipv4 set address "本地连接" static 192.168.0.99 255.255.255.0 192.168.0.1

CLS
ECHO.  成功设置为B段IP 
ECHO.  当前IP: 192.168.0.99
goto MENU

根据本机ip地址修改计算机名

cls
@ECHO OFF
CLS
color 0a
ECHO.
ipconfig /all|findstr /i "IPv4">>c:\ip.txt
find /i "192.168.6.99" c:\ip.txt
if errorlevel 0 set name=D1

find /i "192.168.6.11" c:\ip.txt
if errorlevel 0 set name=D2

find /i "192.168.6.100" c:\ip.txt
if errorlevel 0 set name=JL

DEL C:\ip.txt

reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v ComputerName /t reg_sz /d %name% /f >nul 2>nul 
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /d %name% /f >nul 2>nul 
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v Hostname /t reg_sz /d %name% /f >nul 2>nul 
echo. 
echo 修改计算机名完毕
echo 按任意键退出....
echo. 
pause>nul 
echo.

win7批处理清理垃圾

@echo off 
color 0a
title windows7系统垃圾清理---
echo ★☆ ★☆ ★☆ ★☆ ★☆★☆★☆ ★☆ ★☆ ★☆ ★☆★
echo ★☆ ★☆ ★☆ ★☆ ★☆★☆★☆ ★☆ ★☆ ★☆ ★☆★
echo.★☆                                              ☆★
echo.★☆                                              ☆★
echo.★☆   清理系统垃圾文件,请稍等......             ☆★
echo ★☆                                              ☆★
echo.★☆                                              ☆★
echo ★☆ ★☆ ★☆ ★☆ ★☆★☆★☆ ★☆ ★☆ ★☆ ★☆★
echo ★☆ ★☆ ★☆ ★☆ ★☆★☆★☆ ★☆ ★☆ ★☆ ★☆★
echo 清理垃圾文件,速度由电脑文件大小而定。在没看到结尾信息时 
echo 请勿关闭本窗口。 
echo 正在清除系统垃圾文件,请稍后...... 
echo 删除补丁备份目录 
RD %windir%\$hf_mig$ /Q /S 
echo 把补丁卸载文件夹的名字保存成2950800.txt 
dir %windir%\$NtUninstall* /a:d /b >%windir%\2950800.txt 
echo2950800.txt中读取文件夹列表并且删除文件夹 
for /f %%i in (%windir%\2950800.txt) do rd %windir%\%%i /s /q 
echo 删除2950800.txt 
del %windir%\2950800.txt /f /q 
echo 删除补丁安装记录内容(下面的del /f /s /q %systemdrive%\*.log已经包含删除此类文件) 
del %windir%\KB*.log /f /q 
echo 删除系统盘目录下临时文件 
del /f /s /q %systemdrive%\*.tmp 
echo 删除系统盘目录下临时文件 
del /f /s /q %systemdrive%\*._mp 
echo 删除系统盘目录下日志文件 
del /f /s /q %systemdrive%\*.log 
echo 删除系统盘目录下GID文件(属于临时文件,具体作用不详) 
del /f /s /q %systemdrive%\*.gid 
echo 删除系统目录下scandisk(磁盘扫描)留下的无用文件 
del /f /s /q %systemdrive%\*.chk 
echo 删除系统目录下old文件 
del /f /s /q %systemdrive%\*.old 
echo 删除回收站的无用文件 
del /f /s /q %systemdrive%\recycled\*.* 
echo 删除系统目录下备份文件 
del /f /s /q %windir%\*.bak 
echo 删除应用程序临时文件 
del /f /s /q %windir%\prefetch\*.* 
echo 删除系统维护等操作产生的临时文件 
rd /s /q %windir%\temp & md %windir%\temp 
echo 删除当前用户的COOKIE(IE) 
del /f /q %userprofile%\cookies\*.* 
echo 删除internet临时文件 
del /f /s /q "%userprofile%\local settings\temporary internet files\*.*" 
echo 删除当前用户日常操作临时文件 
del /f /s /q "%userprofile%\local settings\temp\*.*" 
echo 删除访问记录(开始菜单中的文档里面的东西) 
del /f /s /q "%userprofile%\recent\*.*" 
echo 
echo ★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
echo ★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
echo ★☆                                                          ☆★
echo.★☆                                                          ☆★
echo.★☆                                                          ☆★
echo ★☆                                                          ☆★
echo ★☆                恭喜您!清理全部完成!                    ☆★
echo.★☆                                                          ☆★
echo ★☆                                                          ☆★
echo.★☆                                                          ☆★
echo ★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
echo ★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
echo.

win7批处理绑定arp

cls
@ECHO OFF
CLS
color 0a

GOTO MENU
:MENU
ECHO.
ECHO.  =-=-=-=Win7绑定ARP批处理=-=-=-=
ECHO.
ECHO.  1  重置ARP (删除绑定)            WinXP使用arp -s命令即可绑定
ECHO.                                   Win7系统中使用netsh
ECHO.  2  绑定ARP (重启失效)         
ECHO.
ECHO.  3  绑定ARP (永久生效)
ECHO.
ECHO.  4  查ARP表 (网卡接口)
ECHO.
ECHO.  5  默认绑定 
ECHO.
ECHO.  6  退   出
ECHO. 
ECHO.  =-=-=-==-=-=-=-=-=-=-=-=-=-=-=
ECHO.
echo.  请输入选择项目的序号:
set /p  ID=
if "%id%"=="1"  goto cmd1

if "%id%"=="2" goto cmd2

if "%id%"=="3" goto cmd3
if "%id%"=="4" goto cmd4
if "%id%"=="5" goto cmd5
IF "%id%"=="6"  exit
PAUSE

:cmd1

echo 重置ARP绑定
echo. 
@echo off 
netsh interface ipv4 reset
arp.exe -d
goto MENU

:cmd2

echo 绑定ARP(重启后失效)
echo. 
::@echo off netsh interface ipv4 set neighbors 11 "192.168.6.1" "90-a5-a5-12-00-6f" store=active
echo 输入网卡接口(0xb对应11set /p IDX=
echo 输入要绑定的IP
set /p IP=
echo 输入要绑定的MAC
set /p MAC=

@echo off
netsh interface ipv4 set neighbors %idx% "%ip%" "%mac%" store=active


GOTO MENU

:cmd3
echo 绑定ARP(永久生效)
echo. 
::@echo off netsh interface ipv4 set neighbors 11 "192.168.6.1" "90-a5-a5-12-00-6f" store=persistent
echo 输入网卡接口(0xb对应11set /p IDX=
echo 输入要绑定的IP
set /p IP=
echo 输入要绑定的MAC
set /p MAC=

@echo off
netsh interface ipv4 set neighbors %idx% "%ip%" "%mac%" store=persistent
GOTO MENU

:cmd4
echo 查看ARP表
echo. 
@echo off
arp.exe -a
pause
GOTO MENU

:cmd5
echo 默认绑定 
echo. 
echo. netsh interface ipv4 set neighbors 11 "192.168.6.1" "90-a5-a5-12-00-6f" store=persistent
echo 任意键确认!
pause >null
@echo off
netsh interface ipv4 set neighbors 11 "192.168.6.1" "90-a5-a5-12-00-6f" store=persistent

pause >null
GOTO MENU

批处理备份文件并以时间命名

@ECHO OFF
CLS
color 0a
echo.
echo.
echo.
echo  ┌───────────────┐
echo  丨      身份证刷卡信息导出        
echo  丨    %date%  %time%                 
echo  丨=============================           
echo  丨  默认复制到软件安装目录有效                          
echo. 丨                             
echo. 丨备份身份证刷卡信息到两个路径: 
echo. 丨                             
echo. 丨1、D盘身份证刷卡信息文件夹      
echo. 丨2、wg提供的网络共享   
echo. 丨A、复制到Record1.xml同目录
echo  └───────────────┘
echo.  ..............................
echo.    .........................
echo.      .....备份结果......
echo.         ...........
echo.             ....
echo.              ↓
echo.
set file="%ProgramFiles%\信息\Record1.xml"
@echo off
if not exist d:\信息 md d:\信息
if not exist \\wg\sfz\信息 md \\wg\sfz\信息

set f=信息_%date:~0,4%_%date:~5,2%_%date:~8,2%.xml
copy /y %file% "d:\信息\%f%"
set s=信息_%date:~0,4%_%date:~5,5%_%time:~,8%.xml
set s=%s: =0%
set s=%s:-=%
set s=%s::=%
copy /y %file% "\\wg\sfz\信息\%s%"

rem 重命名文件
rem ren "d:\信息\Record1.xml" %f%
rem ren "\\wg\SFZ\信息\Record1.xml" %s%

echo.
echo.信息导出成功!
copy nul d:\检查信息\全部.txt

pause
最后编辑: admin  文档更新时间: 2021-03-16 21:50   作者:admin