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

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

null@example.com (Serg78) — Fri, 14 Nov 2014 10:37:32 +0000

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:Запись в лог файл по сети

null@example.com (alexii) — Fri, 14 Nov 2014 08:57:52 +0000

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

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

null@example.com (Serg78) — Fri, 14 Nov 2014 08:23:20 +0000

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

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

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

null@example.com (alexii) — Fri, 14 Nov 2014 07:32:22 +0000

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

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

null@example.com (Serg78) — Fri, 14 Nov 2014 06:52:15 +0000

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

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

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

null@example.com (alexii) — Fri, 14 Nov 2014 05:24:33 +0000

Microsoft Windows 2000 Scripting Guide - Limitations of Remote WSH

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

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

null@example.com (Serg78) — Thu, 13 Nov 2014 16:08:02 +0000

Помогите разобраться уважаемые форумчане, 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)