Нужен скрипт для проверки читабельности дисков

//
//  bCopyByCMD(sFileName) - копирует файл с именем "sFileName" в "nul"
//  используя командный интерпретатор "cmd.exe"
//  возвращает: true - файл скопировался без ошибок
//          false - с ошибками
//
//
function bCopyByCMD(sFileName)
{
    try
    {
        var objFS = new ActiveXObject("Scripting.FileSystemObject");
        var objRE = new RegExp("Ошибка в данных (CRC)");
        var objSh = WScript.CreateObject("WScript.Shell");
        var sTMPFileName, objTMPFile;
        var sStr, bRC = true;
 
 
        sTMPFileName = objFS.GetTempName();
 
        sStr = "%COMSPEC% /c copy \"" + sFileName + "\" nul" +
            " > " + sTMPFileName;
 
        var intWindowStyle = 0;
        var bWaitOnReturn = true;
        objSh.Run(sStr, intWindowStyle, bWaitOnReturn);
 
        var iForReading = 1;
        objTMPFile = objFS.OpenTextFile(sTMPFileName, iForReading);
        sStr = objTMPFile.ReadAll();
        objTMPFile.Close();
        objFS.DeleteFile(sTMPFileName);
 
        if (objRE.test(sStr))
            bRC = false;
 
        return (bRC);
    }
    catch (e)
    {
        WScript.Echo("bCopyByCMD(): EXEPTION:\n" +
            e + "\n" +
            (e.number & 0xFFFF) + "\n" +
            e.description);
    }
}
 
 
 
//  WScript.Echo(bCopyByCMD("copytest.js"));