- ::code by youxi01@bbs.bathome.net,2008-1-16
- ::程序名:读取、修改计算机注册信息
- ::Happy New Year
- @echo off &setlocal enabledelayedexpansion
- title 读取、修改计算机注册信息
- Rem '/*/////////////////设置路径///////////////////////////////
- set "Reg_Path=HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion"
- Rem '/*///////////////设置代号对应值//////////////////////////
- set 1=所有者 RegisteredOwner
- set 2=机构 RegisteredOrganization
- set 3=系统ID号 ProductId
- Rem '/*////////////////读取相关信息///////////////////////////
- echo 正在获取系统注册相关信息...&echo.
- for %%i in (RegisteredOwner RegisteredOrganization ProductId) do call :Get_Info %%i
- Rem '/*///////////////显示窗口///////////////////////////////
- :Main
- echo 1、修改 所有者: %RegisteredOwner%
- echo 2、修改 机构: %RegisteredOrganization%
- echo 3、修改 系统ID号: %ProductId%
- Rem '/*////////////强制修改计算机注册信息(不带提示)////////////
- echo.&set /p En=请输入选择(1/2/3):
- if %En% GTR 3 cls & goto :Main
- if %En% LSS 1 cls & goto :Main
- for /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 :Main
- goto :eof
- pause>nul
- goto :eof
- :Get_Info 项目
- set "var=!%~1!"
- for /f "skip=2 tokens=3" %%a in ('reg query "%Reg_Path%" /v %~1') do set %~1=%%a
-
复制代码
|