@echo off
set byte= 04
for /f "tokens=1-2*" %%A in ('reg query "HKLM\SOFTWARE\WOW6432Node\Microsoft\Windows NT\CurrentVersion\Print\Printers\SkyPDF Pro Driver" /v "Default DevMode"') do (
    set settings=%%C
)
echo 原来的值 %settings%
set settings=%settings:~0,14127%%byte%%settings:~14129%
echo 修改后的值 %settings%
reg add "HKLM\SOFTWARE\WOW6432Node\Microsoft\Windows NT\CurrentVersion\Print\Printers\SkyPDF Pro Driver" /v "Default DevMode" /t REG_BINARY /d %settings% /f
@pause
复制代码

reg query "HKLM\SOFTWARE\WOW6432Node\Microsoft\Windows NT\CurrentVersion\Print\Printers\SkyPDF Pro Driver" /v "Default DevMode"
复制代码

@echo off &setlocal &set "byte=04"
for /f "delims=" %%a in (
  'reg query "HKLM\SOFTWARE\WOW6432Node\Microsoft\Windows NT\CurrentVersion\Print\Printers\SkyPDF Pro Driver" /v "Default DevMode"^|findstr /ic:"Default DevMode" '
) do (set "settings=%%a")
echo,原值=%settings:~-2%
echo,新值=%byte%
reg add "HKLM\SOFTWARE\WOW6432Node\Microsoft\Windows NT\CurrentVersion\Print\Printers\SkyPDF Pro Driver" /v "Default DevMode" /t REG_BINARY /d %byte% /f
pause&exit/b
复制代码

$regPath = "HKLM:\SOFTWARE\WOW6432Node\Microsoft\Windows NT\CurrentVersion\Print\Printers\SkyPDF Pro Driver"
$valueName = "Default DevMode" 

# 获取当前的二进制值
$currentBinaryValue = (Get-ItemProperty -Path $regPath -Name $valueName).$valueName

if ($currentBinaryValue -is [byte[]]) {
    if ($currentBinaryValue.Length -ge 7064) {
        $currentBinaryValue[7064] = 0x04  # 0x04 就是十六进制表示的04，在PowerShell里修改字节数组中字节用十六进制赋值更方便理解
        # 将修改后的值重新设置回注册表
        Set-ItemProperty -Path $regPath -Name $valueName -Value $currentBinaryValue
        Write-Host "注册表中指定位置数值修改成功"
    }
 else {
        Write-Host "当前二进制值长度不足，无法进行指定位置修改"
    }
} 

else {
    Write-Host "指定的注册表值不是二进制类型，无法进行操作"
}
复制代码

@if(0)==(0) echo off
%1 mshta VBScript:CreateObject("Shell.Application").ShellExecute("CMD","/c """"%~f0"" ::""","","RunAs",1)(close)&exit/b
set "regPath=HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows NT\CurrentVersion\Print\Printers\SkyPDF Pro Driver"
set "regName=Default DevMode"
reg query "%regPath%" /v "%regName%" 2>&1 | cscript //nologo //e:jscript "%~f0" "%regPath%" "%regName%"
pause & exit/b
@end

var strPath = WSH.Arguments(0);
var valName = WSH.Arguments(1);
var subKey  = strPath.substr(strPath.indexOf('\\')+1);
var ROOT    = function(){
    if (/^(?:HKCR|HKEY_CLASSES_ROOT)/i.test(strPath)){
        return 0x80000000;
    } else if (/^(?:HKCU|HKEY_CURRENT_USER)/i.test(strPath)){
        return 0x80000001;
    } else if (/^(?:HKLM|HKEY_LOCAL_MACHINE)/i.test(strPath)){
        return 0x80000002;
    } else if (/^(?:HKUS|HKEY_USERS)/i.test(strPath)){
        return 0x80000003;
    } else if (/^(?:HKCC|HKEY_CURRENT_CONFIG)/i.test(strPath)){
        return 0x80000005;
    }
}();

function setRegistryValue(arrValue){
    var objLoc  = new ActiveXObject('WbemScripting.SWbemLocator');
    var objReg  = objLoc.ConnectServer(null, 'Root\\Default').Get('StdRegProv');
    var oMethod = objReg.Methods_.Item('SetBinaryValue');
    var inParam = oMethod.InParameters.SpawnInstance_();
    inParam.hDefKey     = ROOT;
    inParam.sSubKeyName = subKey;
    inParam.sValueName  = valName;
    inParam.uValue      = arrValue;
    objReg.ExecMethod_(oMethod.Name, inParam);
}

function convertData(Data){
    var arr = [];
    var reg = /../g;
    while (e = reg.exec(Data)) arr.push(1 * ('0x' + e[0]));
    return arr;
}

var s = WSH.StdIn.ReadAll();
var m = s.match(/REG_BINARY\s+([a-f0-9]{14128})[a-f0-9]{2}([a-f0-9]+)/i);
if(m){
    var Data = m[1] + '04' + m[2];  //从14128个字符起，后2个字符修改为04
    setRegistryValue(convertData(Data));
    WSH.Echo('Done');
} else {
    WSH.Echo('no such registry key or value found.');
}
复制代码