锁定计算机 bat,[已解决]win7系统，批处理如何实现将“计算机/我的电脑”锁定到任务栏...

/*&cls

@echo off

echo 参考http://blog.youkuaiyun.com/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

var str = objItemVerbs.Item(i).Name;

//适用简体中文系统

if (/到任务栏/.test(str))objItemVerbs.Item(i).DoIt();

}