洛阳翼展电脑

批处理连接局域网共享打印机

2019-9-3 乱云飞 评论(0) 浏览(47) 标签: 批处理 局域网共享 共享打印机

@color 0A
@mode con cols=50 lines=10
@title 连接局域网打印机 www.80c.cc
@echo.
@echo   洛阳翼展科技 / 专业安防监控 13213610060
@echo.
@echo   正在连接打印机。。。
@::-------------------------------------------------------- 
@set 打印机=\\80c.cc\print
@set 用户名=administrator
@set 密码=12345678 
@::--------------------------------------------------------
@net stop Spooler
@ping -n 10 127.0.0.1>NUL
@net start Spooler
@net use %打印机% %密码% /user:%用户名%
@start %打印机% /user:%用户名% %密码%
@rundll32 printui.dll,PrintUIEntry /y /n " %打印机%"
@ping -n 10 127.0.0.1>NUL
@::--------------------------------------------------------
@rem cmd /k
exit

批处理映射网络共享目录

2019-8-23 乱云飞 评论(0) 浏览(66) 标签: 批处理 映射 共享文件夹

@color 0A
@mode con cols=50 lines=10
@title 连接网络共享磁盘 www.80c.cc
@echo.
@echo           连接网络共享磁盘...
::--------------------------------------------------------
@set 服务器=\\80c.cc\测试目录
@set 注册表=##80c.cc#测试目录
@set 用户名=admin
@set 密码=*
@set 盘符=Z
@set 卷标=网络磁盘
@set 退出时间=10
::--------------------------------------------------------
@net use * /d /y >nul 2>nul
@net use %盘符%: %服务器% %密码% /user:%用户名% /persistent:yes
@label %盘符%: %卷标%>NUL
@reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\%注册表% /v _LabelFromReg /d %卷标% /f 
@start "打开%盘符%盘" "%盘符%:\"
@echo 请打开我的电脑%盘符%盘操作。
@ping -n %退出时间% 127.0.0.1>NUL
::--------------------------------------------------------
rem cmd /k
exit

批处理清空回收站

2019-8-4 乱云飞 评论(0) 浏览(73) 标签: 批处理 清空回收站

@echo off
setlocal enabledelayedexpansion
for %%a in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
  if exist %%a:\$recycle.bin (
     pushd %%a:\$recycle.bin
     for /f %%b in ('dir /b /a') do (rd /s /q %%b)
  )
)
pause

批处理检测是否安装过 Microsoft.NET Framework

2019-7-11 乱云飞 评论(0) 浏览(80) 标签: 代码 批处理 检测 .net

@echo off
set checked=0
if exist "%windir%\Microsoft.NET\Framework\v1.0*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v1.1*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v2.0*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v3.0*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v3.5*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v4.0*" set checked=1
if %checked% EQU 1 (echo 已安装.NET Framework) else (echo 未安装.NET Framework)
pause>nul

批处理批量下载文件

2019-6-29 乱云飞 评论(0) 浏览(89) 标签: 代码 批处理 批量下载 下载文件

@echo off  
for /l %%i in (1,1,88) do (  
echo "http://80c.cc/%%i.mp3" "%cd%/%%i.mp3"  
down.vbs "http://80c.cc/%%i.mp3" "%cd%/%%i.mp3"  
)  
******************************************************
Download Wscript.Arguments(0),Wscript.Arguments(1)  
Sub Download(url,target)  
    Set post=CreateObject("Msxml2.XMLHTTP")  
    post.Open "GET",url  
    '发送请求  
    post.Send()  
    Set aGet = CreateObject("ADODB.Stream")  
    aGet.Mode = 3  
    aGet.Type = 1  
    aGet.Open()  
    '等待3秒，等文件下载  
    wscript.sleep 3000   
    aGet.Write(post.responseBody)'写数据  
    aGet.SaveToFile target,2  
End Sub  

NTFS分区保留指定目录文件，其他的全部删除

2018-7-19 乱云飞 评论(0) 浏览(320) 标签: 批处理 删除目录 保留目录

示例：保留E盘的 net lan gho 目录，其他目录全部删除。

cacls E:\net /e /p everyone:n
cacls E:\lan /e /p everyone:n
cacls E:\gho /e /p everyone:n
rd /s /q E:\
cacls E:\net /e /r everyone
cacls E:\lan /e /r everyone
cacls E:\gho /e /r everyone

用批处理备份文件夹

2018-4-2 乱云飞 电脑 评论(0) 浏览(347) 标签: 批处理 备份目录 文件备份助手

@ title 文件夹备份批处理 http://80c.cc
@ color A
@ echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓ 
@ echo ┃      文件夹备份批处理 http://80c.cc     ┃
@ echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
@ echo 备份日期：%date:~0,10% 时间：%time% >> bak.log
@ echo.
@ xcopy /E /C /Y /R /H "D:\需要备份" /s "E:\需要备份_bak\"  /d
@ echo.

批处理删除前五位，保留前五位

2018-2-21 乱云飞 代码 评论(0) 浏览(309) 标签: 批处理 删除前N位

setlocal enabledelayedexpansion
for /f "tokens=*" %%i in ('type aaa.txt') do (
set str=%%i
echo !str:~5!>>hou.txt
)
@echo 删除前五位
------------------------------------
@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in (aaa.txt) do (
  set p=%%i
  echo !p:~6!>>OK.txt
)
pause>nul
@echo 删除前六位