bat自动创建快捷方式并更换图标

Posted 2021-01-27 dsl146

 1 :: 此脚本主要的作用创建1.自动创建快捷方式；2.自动更换快捷方式图标
 2 @echo off
 3 >nul 2>&1 "%SYSTEMROOT%system32cacls.exe" "%SYSTEMROOT%system32configsystem"
 4 if ‘%errorlevel%‘ NEQ ‘0‘ (
 5 goto UACPrompt
 6 ) else ( goto gotAdmin )
 7 :UACPrompt
 8 echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%getadmin.vbs"
 9 echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%getadmin.vbs"
10 "%temp%getadmin.vbs"
11 exit /B
12 :gotAdmin
13 if exist "%temp%getadmin.vbs" ( del "%temp%getadmin.vbs" )
14 rem 上面的语句是以管理员身份运行这个bat
15 
16 for /f "tokens=2*" %%a in (‘reg query "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders" /v Desktop‘) do set Desktop=%%b
17 rem 通过注册表查找出桌面所在的位置，并将位置路径定义为变量Desktop
18 copy d:	axi.ico %SystemDrive%WindowsSystem32	axi.ico
19 rem 复制快捷方式图标到系统默认快捷方式图标路劲下
20 mkdir d:eifen21 move Y %Desktop%区域.url d:eifen区域.url
22 move Y %Desktop%全局.url d:eifen全局.url
23 del %Desktop%didi.url
24 del %Desktop%summary.url
25 rem 删除原有桌面的图标
26 set file="%Desktop%summary.url"
27 rem 设定快捷方式图标变量为file
28 echo [InternetShortcut] >%file%
29 echo URL="www.baidu.com" >>%file%
30 ping -n 2 127.1>nul
31 echo IconIndex=0 >>%file%
32 ping -n 2 127.1>nul
33 rem 延迟更换图标，否则有时候出现无法识别的现象。
34 echo IconFile=%SystemDrive%WindowsSystem32	axi.ico >>%file%
35 rem 设定快捷方式图标为自己想要的图标，(.ico)格式的文件需要转换生成
36 exit