Серый форум — VBS:Запись в лог файл по сети

Re: VBS:Запись в лог файл по сети

2014-11-14T10:37:32Z

alexii, я выше уже говорил о том, что если в Tst.vbs

Set TextStream = fso.OpenTextFile("\\....\\Log.txt", 8, True, 0)

указать на Log.txt на локальном диске, то без проблем записывает данные в этот лог файл. Пытался через Еvent log Windows ,запуская его через Tst.vbs, также заносит данные только в локальный Event Log, если отдельно запустить то без проблем .

Const EVENT_SUCCESS = 0
Set objShell = CreateObject("WScript.Shell")
objShell.LogEvent EVENT_SUCCESS, _
     "test" , "\\server"

Re: VBS:Запись в лог файл по сети

2014-11-14T08:57:52Z

Стало быть, «не записывает» на самом деле выглядит как «не исполняет» скрипт «Tst.vbs» на удалённой машине. Какие предварительные операции Вы проделали на удалённой машине для того, чтобы разрешить исполнение скриптов посредством «WSHController»?

Re: VBS:Запись в лог файл по сети

2014-11-14T08:23:20Z

Сделал, выдает

Error -2146828218 Line 0, Char 0
Execution of the Windows Script Host failed.

Re: VBS:Запись в лог файл по сети

2014-11-14T07:32:22Z

Уберите «On Error Resume Next» из Вашего скрипта и из «Tst.vbs», если эта инструкция есть и там, добавьте в Ваш скрипт обработку события Error от объекта «RemoteScript» с выводом свойств объекта WshRemoteError. Тогда можно будет говорить предметно.

Re: VBS:Запись в лог файл по сети

2014-11-14T06:52:15Z

Что значит «не записывает»?

Не понял вопроса.

Re: VBS:Запись в лог файл по сети

2014-11-14T05:24:33Z

Microsoft Windows 2000 Scripting Guide - Limitations of Remote WSH

Что значит «не записывает»?

VBS:Запись в лог файл по сети

2014-11-13T16:08:02Z

Помогите разобраться уважаемые форумчане, Tst.vbs не записывает в текстовый лог-файл, который зашарен в сети, записывает только в лог-файл, находящийся на локальном диске того компа, где и запускается Tst.vbs Как я могу запуская Tst.vbs, записать данные в лог-файл в зашаренной сетевой папке ?

Sub Remote(srv)
On Error Resume Next
Dim Controller, RemoteScript
Set Controller = WScript.CreateObject("WSHController")
Set RemoteScript = Controller.CreateScript("Tst.vbs",srv)
WScript.ConnectObject RemoteScript, "remote_"
RemoteScript.Execute
 Do While RemoteScript.Status <> 2 
    WScript.Sleep 100
 Loop
End Sub

Set TextStream = fso.OpenTextFile("\\....\\Log.txt", 8, True, 0)
     TextStream.WriteLine(text)