WSH поиск фразы в текст.файле

test = "c:\\temp\test.txt"
test2 = "c:\\temp\test2.txt"
word = "вася"
n = 4
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set TextTeam = objFSO.OpenTextFile(test, 1, False)
Set TestTeam = objFSO.OpenTextFile(test2, 2, True)
Set File = objFSO.GetFile(test)    
For i = 1 to File.Size step 1
 strB = i + n
 on error resume next
 Sear = TextTeam.read(n) 
 If Sear = word Then TestTeam.WriteLine word
Next
TextTeam.close
TestTeam.close

fso = new ActiveXObject("Scripting.FileSystemObject");
file = fso.OpenTextFile("c:\\TEST\\input.txt", 1, false);
file2 = fso.OpenTextFile("c:\\TEST\\output.txt", 2, true);
 
//Считываем строку и сравниваем с записью
do {
str=file.ReadLine();
 
if (str=="Вася") {
   file2.WriteLine(str);
}
} while(!file.AtEndOfStream);
 
только проблема как сравнивать часть строки. В объекте RegExp есть такой метод, а как инициализировать RegExp не пойму никак.
 
Кстати, кто скажет почему этот пример выбирает только каждую 2ю строку из начального файла, ведь принцип тот же?
 
// выводит в output каждою вторую строку
fso = new ActiveXObject("Scripting.FileSystemObject");
file = fso.OpenTextFile("c:\\TEST\\input.txt", 1, false);
file2 = fso.OpenTextFile("c:\\TEST\\output.txt", 2, true);
 
do {
file.ReadLine();
file2.WriteLine(file.ReadLine());
 
} while(!file.AtEndOfStream);