Не могу записать в файл

jkom-18rus · Регистрация: 26.02.2016

Студворк — интернет-сервис помощи студентам

Доброго времени суток.

Хочу стандартными средствами винды осуществлять запись строк в файл (vbs скриптом).
Но синтаксис языка не знаю, поэтому столкнулся с проблемой сразу же на ровном месте.

Visual Basic
1
2
3
4
5
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile("E:\komyshev_files\Desktop\Скрипты для аудита\test.txt", 2, True, 1)
tf.WriteLine "test_ok"
tf.close

Вроде всё с образцов интернета взято. Но не работает. Возникает ошибка "Недопустимый вызов или аргумент процедуры".
Подскажите, что неправильно?

@CRIDEL · 19.07.2016, 13:21

https://msdn.microsoft.com/en-... s(v=vs.84)

Shersh · 19.07.2016, 13:26

Сообщение от jkom-18rus

Set tf = fso.OpenTextFile("E:\komyshev_files\Desk top\Скрипты для аудита\test.txt", 2, True, 1)

-недопустимое значение четвертого параметра: д.б. -1 или 0 или -2.

object.OpenTextFile(filename[, iomode[, create[, format]]])
Arguments
object
Required. Object is always the name of a FileSystemObject.
filename
Required. String expression that identifies the file to open.
iomode
Optional. Can be one of three constants: ForReading, ForWriting, or ForAppending.
create
Optional. Boolean value that indicates whether a new file can be created if the specified filename doesn't exist. The value is True if a new file is created, False if it isn't created. If omitted, a new file isn't created.
format
Optional. One of three Tristate values used to indicate the format of the opened file (TristateTrue = -1 to open the file as Unicode, TristateFalse = 0 to open the file as ASCII, TristateUseDefault = -2 to open the file as the system default). If omitted, the file is opened as ASCII.

jkom-18rus · 19.07.2016, 13:42 **[ТС]**

Shersh, спасибо, Ваш совет помог.

Заметил странность, раньше я последний параметр не использовал (было прописано всего 3). Но ошибка была.

После изменил "E:\komyshev_files\Desktop\Скрипты для аудита\test.txt", ForWriting, True" на "E:\komyshev_files\Desktop\Скрипты для аудита\test.txt", 2, True, 1"

Подскажите, 2 параметр (открытие файла для записи) как "ForWriting" указывать правильно? Что означает цифра "2"?

Shersh · 19.07.2016, 13:51

CRIDEL дал ссылку - трудно дочитать?

The iomode argument can have any of the following settings:
Constant Value Description
ForReading 1 Open a file for reading only. You can't write to this file.
ForWriting 2 Open a file for writing.
ForAppending 8 Open a file and write to the end of the file.

jkom-18rus · 19.07.2016, 14:02 **[ТС]**

Возможно не правильно выразился.

Вопрос в следующем, можно ли вместо цифры написать слово?

Ещё подскажите пожалуйста, в чём разница методов ForAppending и ForWriting

Shersh · 19.07.2016, 14:07

Сообщение от jkom-18rus

можно ли вместо цифры написать слово?

Можно, если опишите в vbs-файле

Visual Basic
1
Const ForReading = 1, ForWriting = 2, ForAppending = 8

иначе вряд ли...

@CRIDEL · 19.07.2016, 14:10

Читай код.

jkom-18rus · 19.07.2016, 14:13 **[ТС]**

CRIDEL, разные примеры у нас с Вами.
А я код по частям собирал из этой статьи

Сообщение от jkom-18rus

Ещё подскажите пожалуйста, в чём разница методов ForAppending и ForWriting

@CRIDEL · 19.07.2016, 14:17

Знакомые речи...

Добавлено через 1 минуту

Сообщение от jkom-18rus

Ещё подскажите пожалуйста, в чём разница методов ForAppending и ForWriting

ForAppending - добавление строки в конец файла
ForWriting - добавление строки в любое место файла

Shersh · 19.07.2016, 14:21

Сообщение от CRIDEL

ForWriting - добавление строки в любое место файла

Это вряд ли - происходит создание нового файла для записи с нулевой позиции.

jkom-18rus · 19.07.2016, 14:24 **[ТС]**

Сообщение от Shersh

происходит создание нового файла для записи с нулевой позиции.

Если файл есть, тогда что?

Мне какой метод использовать для записи в конец существующего файла?

Shersh · 19.07.2016, 14:26

Сообщение от jkom-18rus

Мне какой метод использовать для записи в конец существующего файла?

Сообщение от CRIDEL

ForAppending - добавление строки в конец файла

...

@CRIDEL · 19.07.2016, 14:28

Shersh, не обязательно создание, но с нулевой позиции - эт верно, дальнейшее перемещение по файлу - ручками, так как мы работаем не с файлом, а с объектом TextStream.

jkom-18rus · 21.07.2016, 08:01 **[ТС]**

С записью всё получилось. Всем спасибо за помощь.

Чтобы не создавать новую тему, пишу в этой же.

Появилась новая проблема.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
strComputer = "."
 
    Dim fso, tf
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set tf = fso.OpenTextFile("C:\Users\User\Desktop\Скрипты аудит\test.txt", 8, True)
 
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate, (Security)}!\" & _
        strComputer & "\root\cimv2")
 
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _    
    ("Select * from __instancecreationevent where " _
        & "TargetInstance isa 'Win32_NTLogEvent' " _
            & "and TargetInstance.EventCode = '4801' ")
 
Do
    Set objLatestEvent = colMonitoredEvents.NextEvent
     strAlertToSend = objLatestEvent.TargetInstance.User _ 
         & " attempted to access DatabaseServer."
    tf.WriteLine "4801"
    tf.close
Loop
 
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate, (Security)}!\" & _
        strComputer & "\root\cimv2")
 
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _    
    ("Select * from __instancecreationevent where " _
        & "TargetInstance isa 'Win32_NTLogEvent' " _
            & "and TargetInstance.EventCode = '4800' ")
 
Do
    Set objLatestEvent = colMonitoredEvents.NextEvent
     strAlertToSend = objLatestEvent.TargetInstance.User _ 
         & " attempted to access DatabaseServer."
    Set tf = fso.OpenTextFile("C:\Users\User\Desktop\Скрипты аудит\test.txt", 8, True)
    tf.WriteLine "4800"
    tf.close
Loop

Данный код никак не хочет записывать событие 4800. Такое ощущение, что где-то после записи события 4801 скрипт завершает свою работу.
Подскажите пожалуйста, как отслеживать появление нескольких событий, и записывать их все?

Shersh · 21.07.2016, 08:20

jkom-18rus,
1 - Вы выбрали не тот раздел для своих вопросов, проситесь сюда.
2 - цикл DO ... LOOP должен иметь в своем теле выход типа IF условие THEN EXIT DO

jkom-18rus · 21.07.2016, 13:00 **[ТС]**

Shersh, как я писал в самом начале:

Сообщение от jkom-18rus

синтаксис языка не знаю

Поэтому мне не совсем понятна логика использования в данном случае цикла в принципе.

Но, если условия нет, по идее должно происходить зацикливание. Хотя отрабатывается всё нормально - одно событие=одна запись.

Не работает с несколькими событиями.

з.ы. Тему создал в той ветке. Ощущение, что там никого нет. За полдня ни одного ответа. Поэтому спрашиваю здесь.

@CRIDEL · 21.07.2016, 17:14

w

Сообщение от Shersh

2 - цикл DO ... LOOP должен иметь в своем теле выход типа IF условие THEN EXIT DO

- в противном случае код не выйдет за пределы первого цикла, поэтому и не записывает - до туда код просто не доходит. Тебе нужно в тело цикла добавить DoEvents перед LOOP, если уж так хочется циклами ловить.

@AllFree · 21.07.2016, 22:59

Сообщение от CRIDEL

DoEvents

В VBS нет

Code
1
DoEvents

. Можно так:

Code
1
Wscript.Sleep (1000)

jkom-18rus · 22.07.2016, 07:17 **[ТС]**

Сообщение от CRIDEL

если уж так хочется циклами ловить.

Мне не принципиально цикл там или не цикл. Я вообще не понимаю, зачем для записи ОДИН РАЗ использовать цикл. Но какой пример нашёл, такой и использовал.
Есть подозрение, что цикл здесь для того, чтобы скрипт работал в фоне и не завершался после одного срабатывания. Мне это нужно (постоянная работа, отслеживание и запись)

Можно это реализовать попроще?

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@CRIDEL 70 / 62 / 19 Регистрация: 03.05.2013 Сообщений: 397
	19.07.2016, 13:21
	https://msdn.microsoft.com/en-... s(v=vs.84) 0

jkom-18rus 88 / 33 / 8 Регистрация: 26.02.2016 Сообщений: 326
	19.07.2016, 13:42 [ТС]
	Shersh, спасибо, Ваш совет помог. Заметил странность, раньше я последний параметр не использовал (было прописано всего 3). Но ошибка была. После изменил "E:\komyshev_files\Desktop\Скрипты для аудита\test.txt", ForWriting, True" на "E:\komyshev_files\Desktop\Скрипты для аудита\test.txt", 2, True, 1" Подскажите, 2 параметр (открытие файла для записи) как "ForWriting" указывать правильно? Что означает цифра "2"? 0

jkom-18rus 88 / 33 / 8 Регистрация: 26.02.2016 Сообщений: 326
	19.07.2016, 14:02 [ТС]
	Возможно не правильно выразился. Вопрос в следующем, можно ли вместо цифры написать слово? Ещё подскажите пожалуйста, в чём разница методов ForAppending и ForWriting 0

@CRIDEL 70 / 62 / 19 Регистрация: 03.05.2013 Сообщений: 397
	19.07.2016, 14:10
	Читай код. Миниатюры 0

@CRIDEL 70 / 62 / 19 Регистрация: 03.05.2013 Сообщений: 397
	19.07.2016, 14:28
	Shersh, не обязательно создание, но с нулевой позиции - эт верно, дальнейшее перемещение по файлу - ручками, так как мы работаем не с файлом, а с объектом TextStream. 1

Shersh Заблокирован
	21.07.2016, 08:20
	jkom-18rus, 1 - Вы выбрали не тот раздел для своих вопросов, проситесь сюда. 2 - цикл DO ... LOOP должен иметь в своем теле выход типа IF условие THEN EXIT DO 0