klnagchk.exe pause()

Option Explicit
' Объявляем переменные
Dim ObjExec,WshShell,s,IsBreak,ArrS,Count,i
' Создаем объект WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
' Запускаем команду 
Set ObjExec=WshShell.Exec("klnagchk.exe")
s=""
IsBreak=False
Do While True  ' Бесконечный цикл
  ' Проверяем, достигнут ли конец выходного потока команды DIR
  If (Not ObjExec.StdOut.AtEndOfStream) Then
    ' Считываем полностью выходной поток команды DIR
    s=s+ObjExec.StdOut.ReadAll
  End If
  If IsBreak Then
    Exit Do  ' Выходим из цикла
  End If
  ' Проверяем, не завершилось ли выполнение DIR
  If ObjExec.Status= 1  Then
    IsBreak=True
  Else
    WScript.Sleep  100  ' Приостанавливаем сценарий на 0,1 сек
  End If
Loop
ArrS=Split(s,vbCrLf)  ' Формируем массив строк
Count=UBound(ArrS)  ' Количество элементов массива

Dim FSO,F,TextStream  'Объявляем переменные
' Инициализируем константы
Const ForReading =  1 , ForWriting =  2 , TristateUseDefault = - 2 

' Создаем объект FileSystemObject
Set FSO=WScript.CreateObject("Scripting.FileSystemObject")
' Создаем в текущем каталоге файл log.doc
FSO.CreateTextFile "log.doc"
' Создаем объект File для файла log.doc
set F=FSO.GetFile("log.doc")
' Создаем объект TextStream (файл открывается для записи)

' Записываем в файл строку
Set TextStream=F.OpenAsTextStream(ForWriting, TristateUseDefault)

For i= 0  To Count- 1 
TextStream.WriteLine ArrS(i)
Next

' Закрываем файл
TextStream.Close
Dim WShell, word 

Set WShell = WScript.CreateObject("WScript.Shell")

Set word = WShell.Exec("C:\Program Files\Microsoft Office\Office12\winword.exe log.doc")

Dim fso,path
Set fso=WScript.CreateObject("Scripting.FileSystemObject")
set path=fso.GetFile("log.txt")
Set Wrd = CreateObject("Word.Application")
Wrd.Documents.Open path,False,,,,,,,,, 51251 
Wrd.Visible = True

C:\ 2 .vbs( 6 ,  1 ) Ошибка выполнения Micros
oft VBScript: Несоответствие типа: 'Wrd.Documents.Open'