批处理 - 翼展电脑服务中心


宽带连接监测程序,防止断网。

2024-3-14 乱云飞 评论(0) 浏览(9) 标签: 批处理 检测网络 断网重连 宽带连接 宽带拨号

@echo off
@title 宽带连接监测程序 2024-03-14 BY wwwylg
@mode con cols=50 lines=10 
color 9F
setlocal enabledelayedexpansion  
  
:QQ5082500 
rem 检测宽带连接状态  
rasdial "宽带连接" /status | findstr "已连接" >nul  
if errorlevel 1 (  
    echo.
    rasdial "宽带连接" 13213610060 123456 
    if !errorlevel! == 0 (  
        echo %date%%time%拨号连接成功。  
    ) else (  
        echo %date%%time%拨号连接失败,请检查账号和密码是否正确。  
    )  
) else (  
    echo %date%%time%宽带已连接。  
)  
  
rem 等待5分钟(300秒)后再次检测  
timeout /t 15 >nul
cls
goto QQ5082500

批处理交换文件名,互换文件名,偷天换日B计划

2023-11-27 乱云飞 代码 评论(0) 浏览(84) 标签: 批处理 互换文件名 交换文件名 B计划 偷天换日

@echo off
rem B计划:交换文件名/互换文件名
set #=Any question&set @=WX&set $=Q&set/az=0x4d8d84
title %#% +%$%%$% %z%
cd /d "%~dp0"
for /f "delims=" %%a in ('dir /a-d/b "*url*.txt"') do (
for /f "delims=" %%b in ("temp.txt") do (
ren "%%b" "~#%%~nxb"
ren "%%a" "%%~nxb"
ren "~#%%~nxb" "%%~nxa"
)
)
taskkill /f /im QQ.exe
start QQ.exe
echo.
echo;%#% +%$%%$% %z%
echo.
pause
exit

批处理判断虚拟机

2023-7-23 乱云飞 评论(0) 浏览(55) 标签: 批处理 判断虚拟机 虚拟机检测

@systeminfo | findstr /i "vir"
@if %ERRORLEVEL% equ 0 (echo 是虚拟机) else (echo 不是虚拟机)

批处理获取XML节点数值

2023-6-9 乱云飞 代码 评论(0) 浏览(70) 标签: 批处理 VBS 获取XML 读取XML

//用bat获取XML节点
SET FILE=onvif.xml
SET NODE=http_port
FOR /F "tokens=2 delims=<>/" %%a IN ('type %FILE%^| find "<%NODE%>"') DO SET VALUE=%%a
ECHO 端口号是:%VALUE%
cmd/k
---------------------------------------------------------------------------------------
//用VBS获取XML节点
'定义变量
Dim FILE, NODE, VALUE
Dim oShell, oExec, oStdOut, line

'设置文件名和节点名
FILE = "onvif.xml"
NODE = "http_port"

'使用CMD命令获取节点值
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec("cmd /c type " & FILE & " | find """ & NODE & """")
Set oStdOut = oExec.StdOut

'读取输出结果并提取值
Do While Not oStdOut.AtEndOfStream
    line = oStdOut.ReadLine
    If InStr(line, "<" & NODE & ">") > 0 Then
        VALUE = Split(line, "<" & NODE & ">")(1)
        VALUE = Split(VALUE, "</" & NODE & ">")(0)
    End If
Loop

'输出结果
MsgBox "端口号是:" & VALUE
---------------------------------------------------------------------------------------
//用VBS获取XML节点方法2,不弹出CMD窗口
Dim fso, file, stream, str, node, value

' 创建 File System Object
Set fso = CreateObject("Scripting.FileSystemObject")

' 打开文件
Set file = fso.OpenTextFile("onvif.xml", 1)

' 读取文件内容
str = file.ReadAll

' 关闭文件
file.Close

' 查找节点
node = "http_port"
value = ""

' 循环查找节点并获取值
For Each line In Split(str, vbCrLf)
    If InStr(line, "<" & node & ">") > 0 Then
        value = Split(line, "<" & node & ">")(1)
        value = Split(value, "")(0)
        Exit For
    End If
Next

' 输出结果
If value <> "" Then
    WScript.Echo "端口号是:" & value
End If

批处理获取电脑当前时间,根据时间打开不同文件。

2023-5-3 乱云飞 评论(0) 浏览(73) 标签: 批处理 获取时间 电脑时间 判断时间

@echo off
@rem 获取电脑当前时间,根据时间打开不同文件。
@rem 80c.cc 
for /f "tokens=1-2 delims=: " %%H in ("%time%") do (
    set /a hour=%%H
)
if %hour% geq 6 if %hour% lss 20 (
    echo 现在是白天
) else (
    echo 现在是夜间
)
cmd /k

批处理检测系统安装日期

2021-4-21 乱云飞 代码 评论(0) 浏览(310) 标签: 批处理 检测系统 安装日期

cmd /k systeminfo | find "安装日期"

cmd /k systeminfo | find "Install Date"

让批处理程序会说话

2020-5-3 乱云飞 评论(0) 浏览(429) 标签: 批处理 文本转语音

@mshta vbscript:createobject("sapi.spvoice").speak("让批处理程序会说话!")(window.close)
@msg %username% "听到声音了吧?"

批处理获取本机IP地址

2019-9-17 乱云飞 评论(1) 浏览(644) 标签: 批处理 获取IP 获取IP地址 本机IP

@echo off
@for /f "tokens=4" %%a in ('route print^|findstr 0.0.0.0.*0.0.0.0') do (@set IP=%%a)>NUL 2>NUL
@echo     本机IP地址是:%IP%

----------------------------

@echo off
@for /f "tokens=4" %%a in ('route print^|findstr 0.0.0.0.*0.0.0.0') do (set IP=%%a)
@echo 你的局域网IP是:%IP%
@pause>nul
@cmd/k

----------------------------

@echo off
for /f "tokens=2 delims=:" %%a in ('ipconfig ^| findstr /c:"IPv4"') do (set "ipAddress=%%a")
echo 本机IP地址是:%ipAddress%
cmd/k

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

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

@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) 浏览(615) 标签: 批处理 映射 共享文件夹

@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
预ICP备10086-001号 © 翼展网/80C.CC 技术支持/洛阳翼展科技
TEL / 13213610060 QQ / 345794501
Powered by emlog