[文件操作] 为什么获取图片属性的批处理不能在XP下运行？

@set @n=0//& dir /a-d/s/b *.tif| cscript -nologo -e:jscript "%~f0" >a.txt& pause& start notepad a.txt& exit /b

fso = new ActiveXObject("Scripting.FileSystemObject");
sh = new ActiveXObject("Shell.Application");
objFolder = sh.NameSpace(0);
for (i=0; i<255; i++) {
    s = objFolder.GetDetailsOf(null, i);
    if (s=="水平分辩率") x=i;
    if (s=="垂直分辩率") y=i;
}
WScript.Echo("文件路径: 水平分辩率, 垂直分辩率");
ts = WScript.StdIn;
while (!ts.AtEndOfStream) {
    f = ts.ReadLine();
    objFolder = sh.NameSpace(fso.GetAbsolutePathName(f+"/.."));
    objFolderItem = objFolder.ParseName(fso.GetFileName(f));
    WScript.Echo( f + ":" + objFolder.GetDetailsOf(objFolderItem, x) 
        + "," + objFolder.GetDetailsOf(objFolderItem, y) );
}
复制代码