explorer "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar"
复制代码

/*&cls
@echo off
echo 参考http://blog.csdn.net/xin_yu_xin/article/details/8807078

explorer "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch"
explorer "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar"

del /q "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\Windows Explorer.*"
del /q "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Windows Explorer.*"

copy /y "Internet Explorer.*" "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch"
set "file1=%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\Internet Explorer.lnk"

copy /y "我的电脑.*" "%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch"
set "file2=%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\我的电脑.lnk"

cscript -nologo -e:jscript "%~f0" "%file1%"
cscript -nologo -e:jscript "%~f0" "%file2%"
exit
pause&exit/b
*/
var file = WScript.Arguments(0);
var objShell = new ActiveXObject('Shell.Application');
var objFolder = objShell.Namespace(file.replace(/[^\\]*$/,''));
var objFolderItem = objFolder.ParseName(file.replace(/.*\\/,''));
var objItemVerbs = objFolderItem.Verbs();
for(var i=1; i<objItemVerbs.Count; i++){
	  var str = objItemVerbs.Item(i).Name;
	  //适用简体中文系统
	  if (/到任务栏/.test(str))objItemVerbs.Item(i).DoIt();
}
复制代码

//&cls&cscript -nologo -e:jscript "%~f0"&pause&exit

var fso = new ActiveXObject('Scripting.FileSystemObject');
var ws = new ActiveXObject('Wscript.Shell');
var sa = new ActiveXObject('Shell.Application');
var linkname = 'My Computer.lnk';

var fd = fso.GetFile(WSH.ScriptFullName).ParentFolder.Path;
var link = ws.CreateShortcut(fd+'\\'+linkname);
link.TargetPath = '%windir%\\explorer.exe';
link.Arguments = '/e,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}';
link.IconLocation = "%windir%\\System32\\imageres.dll,104"
link.Save();

var Folder = sa.Namespace(fd);
var FolderItem = Folder.ParseName(linkname);
var ItemVerbs = FolderItem.Verbs();
for(var i=0; i<ItemVerbs.Count; i++){
    if (/定到任|to\s*taskbar/i.test(ItemVerbs.Item(i).Name))ItemVerbs.Item(i).DoIt();
}
fso.DeleteFile(fd+'\\'+linkname);
复制代码