candance绿化脚本

@echo off
COLOR F2
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
if '%errorlevel%' NEQ '0' (
echo 请求管理员权限...
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
exit /B
:gotAdmin
:loop
cls                                                                                               
echo       /)/)　    
echo    ( ．．)ˋ 
echo     〇 〇
echo ══════
echo. 
echo 0.绿化
echo.
echo 1.本目录创建快捷方式
echo. 
echo 2.创建桌面快捷方式
echo. 
echo 3.删除环境变量
echo. 
echo 4.退出
rem a=<%~dp0path.txt
echo.
echo 查询path环境变量
For /f "delims=" %%i in ('REG QUERY "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment" /v Path') do Set sys_path=%%i
echo %sys_path:~28%
echo 查询user path环境变量
For /f "delims=" %%i in ('REG QUERY "HKCU\Environment" /v PATH') do Set user_path=%%i
echo %user_path:~28%
set/p xuanze=请选择当前操作：
if %xuanze% equ 0 goto install 
if %xuanze% equ 1 goto creat_ico
if %xuanze% equ 2 goto creat_desk_ico
if %xuanze% equ 3 goto uninstall
if %xuanze% equ 4 exit
cls
goto loop
:PATH
cls
echo %SystemRoot%\system32
echo %SystemRoot%
echo %SystemRoot%\System32\Wbem
echo %SYSTEMROOT%\System32\WindowsPowerShell\v1.0\
cls
pause
goto loop
:install
cls 
rem cd /d %~dp0  rem 切换运行目录
COLOR F2
setlocal
REG QUERY "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment" /v CDS_LIC_FILE>nul
if %errorlevel%==0 (
echo 已经安装过 按任意键进行重装
pause
goto uninstall
) else (
echo 未安装，按任意键继续安装
pause
)
wmic environment create name="CDS_LIC_FILE",username="<system>",VariableValue="5280@%COMPUTERNAME%"
wmic environment create name="CDSROOT",username="<system>",VariableValue="%~dp0SPB_16.6"
wmic environment create name="HOME",username="<system>",VariableValue="%~dp0SPB_Data"
wmic environment create name="CDS_LIC_ONLY",username="<system>",VariableValue="1"
wmic environment create name="CHDL_LIB_INST_DIR",username="<system>",VariableValue="%%CDSROOT%%"
wmic environment create name="CONCEPT_INST_DIR",username="<system>",VariableValue="%%CDSROOT%%"
wmic environment create name="OA_PLUGIN_PATH",username="<system>",VariableValue="%%CDSROOT%%\Share\oaPlugIns"

call set NewPath=%user_path:~28%%~dp0SPB_16.6\openaccess\bin\win32\opt;%~dp0SPB_16.6\tools\capture;%~dp0SPB_16.6\tools\pspice;%~dp0SPB_16.6\tools\specctra\bin;%~dp0SPB_16.6\tools\fet\bin;%~dp0SPB_16.6\tools\libutil\bin;%~dp0SPB_16.6\tools\bin;%~dp0SPB_16.6\tools\pcb\bin
rem call set NewPath=%%Path:;%~dp0\SPB_16.6\openaccess\bin\win32\opt;%~dp0\SPB_16.6\tools\capture;%~dp0\SPB_16.6\tools\pspice;%~dp0\SPB_16.6\tools\specctra\bin;%~dp0\SPB_16.6\tools\fet\bin;%~dp0\SPB_16.6\tools\libutil\bin;%~dp0\SPB_16.6\tools\bin;%~dp0\SPB_16.6\tools\pcb\bin=%%

reg add "HKCU\Environment" /v PATH /t REG_SZ /d "%NewPath%;%%CDSROOT%%\openaccess\bin\win32\opt;%%CDSROOT%%\tools\capture;%%CDSROOT%%\tools\pspice;%%CDSROOT%%\tools\specctra\bin;%%CDSROOT%%\tools\fet\bin;%%CDSROOT%%\tools\libutil\bin;%%CDSROOT%%\tools\bin;%%CDSROOT%%\tools\pcb\bin;" /f

call set NewPath=%sys_path:~28%%~dp0SPB_16.6\openaccess\bin\win32\opt;%~dp0SPB_16.6\tools\capture;%~dp0SPB_16.6\tools\pspice;%~dp0SPB_16.6\tools\specctra\bin;%~dp0SPB_16.6\tools\fet\bin;%~dp0SPB_16.6\tools\libutil\bin;%~dp0SPB_16.6\tools\bin;%~dp0SPB_16.6\tools\pcb\bin
rem call set NewPath=%%Path:;%~dp0\SPB_16.6\openaccess\bin\win32\opt;%~dp0\SPB_16.6\tools\capture;%~dp0\SPB_16.6\tools\pspice;%~dp0\SPB_16.6\tools\specctra\bin;%~dp0\SPB_16.6\tools\fet\bin;%~dp0\SPB_16.6\tools\libutil\bin;%~dp0\SPB_16.6\tools\bin;%~dp0\SPB_16.6\tools\pcb\bin=%%

reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment" /v Path /t REG_EXPAND_SZ /d "%NewPath%;%%CDSROOT%%\openaccess\bin\win32\opt;%%CDSROOT%%\tools\capture;%%CDSROOT%%\tools\pspice;%%CDSROOT%%\tools\specctra\bin;%%CDSROOT%%\tools\fet\bin;%%CDSROOT%%\tools\libutil\bin;%%CDSROOT%%\tools\bin;%%CDSROOT%%\tools\pcb\bin;" /f
echo.
echo.
echo 你的计算机名字： %COMPUTERNAME%
echo 当前日期和时间： %DATE%  %TIME%
echo 安装成功！
endlocal
pause
cls
goto loop
:uninstall
cls 
setlocal
rem cd /d %~dp0  rem 切换运行目录
wmic ENVIRONMENT where "name='CDS_LIC_FILE'" delete
wmic ENVIRONMENT where "name='CDSROOT'" delete
wmic ENVIRONMENT where "name='HOME'" delete
wmic ENVIRONMENT where "name='CDS_LIC_ONLY'" delete
wmic ENVIRONMENT where "name='CHDL_LIB_INST_DIR'" delete
wmic ENVIRONMENT where "name='CONCEPT_INST_DIR'" delete
wmic ENVIRONMENT where "name='OA_PLUGIN_PATH'" delete
setlocal enabledelayedexpansion
call set NewPath=%~dp0SPB_16.6\openaccess\bin\win32\opt;%~dp0SPB_16.6\tools\capture;%~dp0SPB_16.6\tools\pspice;%~dp0SPB_16.6\tools\specctra\bin;%~dp0SPB_16.6\tools\fet\bin;%~dp0SPB_16.6\tools\libutil\bin;%~dp0SPB_16.6\tools\bin;%~dp0SPB_16.6\tools\pcb\bin
set reginfo=HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment
set usrreginfo=HKCU\Environment
for /f "tokens=3,*" %%a in ('reg query "%reginfo%" /v Path') do (
set str=%%a %%b
call set str=!str:%NewPath%;%%CDSROOT%%\openaccess\bin\win32\opt;%%CDSROOT%%\tools\capture;%%CDSROOT%%\tools\pspice;%%CDSROOT%%\tools\specctra\bin;%%CDSROOT%%\tools\fet\bin;%%CDSROOT%%\tools\libutil\bin;%%CDSROOT%%\tools\bin;%%CDSROOT%%\tools\pcb\bin;=! 
reg add "%reginfo%" /v Path /t REG_EXPAND_SZ /d "!str!" /f
call set str=!str:%NewPath%;%%CDSROOT%%\openaccess\bin\win32\opt;%%CDSROOT%%\tools\capture;%%CDSROOT%%\tools\pspice;%%CDSROOT%%\tools\specctra\bin;%%CDSROOT%%\tools\fet\bin;%%CDSROOT%%\tools\libutil\bin;%%CDSROOT%%\tools\bin;%%CDSROOT%%\tools\pcb\bin;=! 
reg add "%usrreginfo%" /v Path /t REG_EXPAND_SZ /d "!str!" /f
)
echo.
echo 你的计算机名字： %COMPUTERNAME%
echo 当前日期和时间： %DATE%  %TIME%
echo 卸载成功
endlocal
pause
cls
goto loop
:creat_ico
cls 
set "exe=SPB_16.6\tools\pcb\bin\allegro.exe"
set "lnk=allegro"
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~dp0%lnk%.lnk""):b.TargetPath=""%~dp0%exe%"":b.WorkingDirectory=""%~dp0"":b.Save:close")
set "exe=SPB_16.6\tools\bin\switchversion.exe"
set "lnk=switchversion"
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~dp0%lnk%.lnk""):b.TargetPath=""%~dp0%exe%"":b.WorkingDirectory=""%~dp0"":b.Save:close")
set "exe=SPB_16.6\tools\capture\Capture.exe"
set "lnk=Capture"
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~dp0%lnk%.lnk""):b.TargetPath=""%~dp0%exe%"":b.WorkingDirectory=""%~dp0"":b.Save:close")
set "exe=SPB_16.6\tools\pcb\bin\pad_designer.exe"
set "lnk=pad_designer"
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~dp0%lnk%.lnk""):b.TargetPath=""%~dp0%exe%"":b.WorkingDirectory=""%~dp0"":b.Save:close")
echo 完成
cls
goto loop
:creat_desk_ico
cls 
set "exe=SPB_16.6\tools\pcb\bin\allegro.exe"
set "lnk=allegro"
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\%lnk%.lnk""):b.TargetPath=""%~dp0%exe%"":b.WorkingDirectory=""%~dp0"":b.Save:close")
set "exe=SPB_16.6\tools\bin\switchversion.exe"
set "lnk=switchversion"
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\%lnk%.lnk""):b.TargetPath=""%~dp0%exe%"":b.WorkingDirectory=""%~dp0"":b.Save:close")
set "exe=SPB_16.6\tools\capture\Capture.exe"
set "lnk=Capture"
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\%lnk%.lnk""):b.TargetPath=""%~dp0%exe%"":b.WorkingDirectory=""%~dp0"":b.Save:close")
set "exe=SPB_16.6\tools\pcb\bin\pad_designer.exe"
set "lnk=pad_designer"
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\%lnk%.lnk""):b.TargetPath=""%~dp0%exe%"":b.WorkingDirectory=""%~dp0"":b.Save:close")
echo 完成
cls
goto loop