注册
登录
| 关键词： nbsp echo set Reg RegisteredOrgani Name 信息 En 注册 输入 |
::code by [email protected],2008-1-16::程序名：读取、修改计算机注册信息::Happy New Year@echo off &setlocal enabledelayedexpansiontitle 读取、修改计算机注册信息Rem '/*/////////////////设置路径///////////////////////////////set "Reg_Path=HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion"Rem '/*///////////////设置代号对应值//////////////////////////set 1=所有者 RegisteredOwnerset 2=机构 RegisteredOrganizationset 3=系统ID号 ProductIdRem '/*////////////////读取相关信息///////////////////////////echo 正在获取系统注册相关信息...&echo.for %%i in (RegisteredOwner RegisteredOrganization ProductId) do call :Get_Info %%iRem '/*///////////////显示窗口///////////////////////////////:Mainecho 1、修改 所有者： %RegisteredOwner%echo 2、修改 机构： %RegisteredOrganization%echo 3、修改 系统ID号： %ProductId%Rem '/*////////////强制修改计算机注册信息(不带提示)////////////echo.&set /p En=请输入选择(1/2/3)：if %En% GTR 3 cls & goto :Mainif %En% LSS 1 cls & goto :Mainfor /f "tokens=%En%" %%i in ("1 2 3") do ( for /f "tokens=1,2" %%a in ("!%%i!") do ( set C_Name=%%a set Reg_Name=%%b ) Rem '/*///////////如果要修改的值输入为空，则不修改/////////// call set En=%%!Reg_Name!%% echo. set /P En=请输入新的 "!C_Name!"： set !Reg_Name!=!En! Reg Add "%Reg_Path%" /v !Reg_Name! /d !En! /f)echo.&echo 1、退出 & echo 2、返回set "En="echo. & set /p En=请选择：Rem '/*如果选择了2，则返回；否则退出。if %En% EQU 2 cls & goto :Maingoto :eof pause>nulgoto :eof:Get_Info 项目set "var=!%~1!"for /f "skip=2 tokens=3" %%a in ('reg query "%Reg_Path%" /v %~1') do set %~1=%%a |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
