1 Тема от Serg78

  • Serg78
  • Участник
  • Неактивен

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

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

2 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

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

Microsoft Windows 2000 Scripting Guide - Limitations of Remote WSH

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

3 Ответ от Serg78 (изменено: Serg78, 2014-11-14 10:55:24)

  • Serg78
  • Участник
  • Неактивен

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

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

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

4 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

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

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

5 Ответ от Serg78

  • Serg78
  • Участник
  • Неактивен

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

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

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

6 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

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

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

7 Ответ от Serg78 (изменено: Serg78, 2014-11-14 14:49:29)

  • Serg78
  • Участник
  • Неактивен

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

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"