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

 1 :: 此脚本主要的作用创建1.自动创建快捷方式；2.自动更换快捷方式图标
 2 @echo off
 3 >nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
 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 "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Desktop') do set Desktop=%%b
17 rem 通过注册表查找出桌面所在的位置，并将位置路径定义为变量Desktop
18 copy d:\taxi.ico %SystemDrive%\Windows\System32\taxi.ico
19 rem 复制快捷方式图标到系统默认快捷方式图标路劲下
20 mkdir d:\beifen\
21 move \Y %Desktop%\区域.url d:\beifen\区域.url
22 move \Y %Desktop%\全局.url d:\beifen\全局.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%\Windows\System32\taxi.ico >>%file%
35 rem 设定快捷方式图标为自己想要的图标，(.ico)格式的文件需要转换生成
36 exit