操作注册表的批处理代码

::code by youxi01@bbs.bathome.cn,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


本文转载自:http://www.hackbase.com/tech/2009-08-19/55094.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值