%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
::重启uxsms服务。可以在任务栏居左/居右并且设置了自动隐藏属性时进一步减少宽度。
net stop uxsms
net start uxsms