Ogoun Er

Решил вопрос, надо было открывать не на чтение, при проверкке блокировки, а также на добавление.

var fso = new ActiveXObject('Scripting.FileSystemObject');
var Lockeds = new ActiveXObject("Scripting.Dictionary");

LockFile("2.ini");
CheckLocking("2.ini");
UnLockFile("2.ini");
CheckLocking("2.ini");

WScript.Quit();

function LockFile(path) {
    if (!Lockeds.Exists(path)) {
        Lockeds.Add(path, fso.OpenTextFile(path, 8));
    }
}

function CheckLocking(path) {
    try {
        var t = fso.OpenTextFile(path, 8);
        t.Close();
        return false;
    }
    catch (e) {
    }
    return true;
}


function UnLockFile(path) {
    if (Lockeds.Exists(path)) {
        Lockeds.Item(path).Close();
        Lockeds.Remove(path);
    }
}