var resultCode


oleObject = new ActiveXObject("SBRFSRV.Server")
ws = WScript.CreateObject('WScript.Shell')

oleObject.clear()


oleObject.SParam("InText", "По вечерам над ресторанами\n\
Горячий воздух дик и глух,\n\
И правит окриками пьяными\n\
Весенний и тлетворный дух.\n\
Вдали, над пылью переулочной,\n\
Над скукой загородных дач,\n\
Чуть золотится крендель булочной,\n\
И раздается детский плач.\n\
И каждый вечер, за шлагбаумами,\n\
Заламывая котелки,\n\
Среди канав гуляют с дамами\n\
Испытанные остряки.\n\
Над озером скрипят уключины,\n\
И раздается женский визг,\n\
А в небе, ко всему приученный,\n\
Бессмысленно кривится диск.\n\
И каждый вечер друг единственный\n\
В моем стакане отражен\n\
И влагой терпкой и таинственной,\n\
Как я, смирен и оглушен.\n\
А рядом у соседних столиков\n\
Лакеи сонные торчат,\n\
И пьяницы с глазами кроликов\n\
«In vino Veritas!» кричат.\n\
И каждый вечер, в час назначенный,\n\
(Иль это только снится мне?)\n\
Девичий стан, шелками схваченный,\n\
В туманном движется окне.\n\
И медленно, пройдя меж пьяными,\n\
Всегда без спутников, одна,\n\
Дыша духами и туманами,\n\
Она садится у окна.\n\
И веют древними поверьями\n\
Ее упругие шелка,\n\
И шляпа с траурными перьями,\n\
И в кольцах узкая рука.\n\
И странной близостью закованный\n\
Смотрю за темную вуаль,\n\
И вижу берег очарованный\n\
И очарованную даль.\n\
Глухие тайны мне поручены,\n\
Мне чье-то солнце вручено,\n\
И все души моей излучины\n\
Пронзило терпкое вино.\n\
И перья страуса склоненные\n\
В моем качаются мозгу,\n\
И очи синие бездонные\n\
Цветут на дальнем берегу.\n\
В моей душе лежит сокровище,\n\
И ключ поручен только мне!\n\
Ты право, пьяное чудовище!\n\
Я знаю: истина в вине.")
oleObject.SParam("InTextFull", "«Мой дядя самых честных правил,\n\
Когда не в шутку занемог,\n\
Он уважать себя заставил\n\
И лучше выдумать не мог.\n\
Его пример другим наука;\n\
Но, боже мой, какая скука\n\
С больным сидеть и день и ночь,\n\
Не отходя ни шагу прочь!\n\
Какое низкое коварство\n\
Полуживого забавлять,\n\
Ему подушки поправлять,\n\
Печально подносить лекарство,\n\
Вздыхать и думать про себя:\n\
Когда же черт возьмет тебя!»\n\
\n\
II\n\
Так думал молодой повеса,\n\
Летя в пыли на почтовых,\n\
Всевышней волею Зевеса\n\
Наследник всех своих родных.\n\
Друзья Людмилы и Руслана!\n\
С героем моего романа\n\
Без предисловий, сей же час\n\
Позвольте познакомить вас:\n\
Онегин, добрый мой приятель,\n\
Родился на брегах Невы,\n\
Где, может быть, родились вы\n\
Или блистали, мой читатель;\n\
Там некогда гулял и я:\n\
Но вреден север для меня .\n\
\n\
III\n\
Служив отлично благородно,\n\
Долгами жил его отец,\n\
Давал три бала ежегодно\n\
И промотался наконец.\n\
Судьба Евгения хранила:\n\
Сперва Madame за ним ходила,\n\
Потом Monsieur ее сменил.\n\
Ребенок был резов, но мил.\n\
Monsieur l`Abbe, француз убогой,\n\
Чтоб не измучилось дитя,\n\
Учил его всему шутя,\n\
Не докучал моралью строгой,\n\
Слегка за шалости бранил\n\
И в Летний сад гулять водил.\n\
\n\
IV\n\
Когда же юности мятежной\n\
Пришла Евгению пора,\n\
Пора надежд и грусти нежной,\n\
Monsieur прогнали со двора.\n\
Вот мой Онегин на свободе;\n\
Острижен по последней моде,\n\
Как dandy лондонский одет — \n\
И наконец увидел свет.\n\
Он по-французски совершенно\n\
Мог изъясняться и писал;\n\
Легко мазурку танцевал\n\
И кланялся непринужденно;\n\
Чего ж вам больше? Свет решил,\n\
Что он умен и очень мил.")
resCode = oleObject.NFun(5006)


resultCheck = "ERRCODE: " + resCode
showTextInNotepad(resultCheck)



function showTextInNotepad(text){
filename = (new Date()).valueOf() + "upos_check.txt"
fso = WScript.CreateObject('Scripting.FileSystemObject')
file = fso.CreateTextFile(filename)
file.Write(text)
file.Close()
WScript.CreateObject('WScript.Shell').Run("notepad " + filename)
WScript.Sleep(2000)
fso.DeleteFile(filename)
}