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:\beifen21 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
原文地址:https://www.cnblogs.com/dsl146/p/10120632.html
时间: 2024-10-12 05:23:58