直接上批处理.
@echo off
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
cd /d "%~dp0"
@echo off
color 0a
title "REGopcdaauto.dll"
echo %date% %time%
echo %PROCESSOR_ARCHITECTURE%
for /l %%i in (l,1,2000) do echo %%i>nul
if "%PROCESSOR_ARCHITECTURE%"=="x86" goto x86
if "%PROCESSOR_ARCHITECTURE%"=="AMD64" goto x64
:x64
xcopy /y /c /h /r "opcdaauto.dll" "C:\Windows\SysWOW64\"
Regsvr32 C:\Windows\SysWOW64\opcdaauto.dll
goto enddle
exit
:x86
xcopy /y /c /h /r "opcdaauto.dll" "C:\Windows\System32\"
Regsvr32 C:\Windows\System32\opcdaauto.dll
goto enddle
:enddle
pause