powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Windows [игнор отключен] [закрыт для гостей] / Net Sent
4 сообщений из 4, страница 1 из 1
Net Sent
    #32861945
Фотография KSAO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Privet vsem. Mne nujno pomosh. Skajem est 5 kom. ix pobociy qruppa "www555"
nikakova kom+re ne ni odnovo papku katoriy bil dostup.
No si pomushu Net Sent mojno otpravit soobshenie lyubomu kompyutere. I etot sobsheniye budet vidno na rabocem stole


12.01.2005 date 18:06 vremya ot Com5 soobsheniya
PRIVET

[OK]


U mne takoy vapros. Ya xocu cto esli mne otpravili soobsheniya ya xocu cto eti soobshenie soxraniles na kakomta textavom fayle no kak ???????????????
...
Рейтинг: 0 / 0
Net Sent
    #32862072
vkle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вобще то все хранится в логах: Мой компьютер - Управление - Служебные программы - Просмотр событий - Система
При необходимости можно сохранить все как текстовый файл... Наверно можно и выборочно.
...
Рейтинг: 0 / 0
Net Sent
    #32864091
Фотография KSAO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вобще то все хранится в логах: Мой компьютер - Управление - Служебные программы - Просмотр событий - Система
При необходимости можно сохранить все как текстовый файл... Наверно можно и выборочно.

A mojno podrobno ocen proshu
...
Рейтинг: 0 / 0
Net Sent
    #32865954
vkle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Погорячился... ручками выборочно не получается.... а все целиком - жмакни правую кнопку на логе и сохраняй как удобнее....

Только не удобно это читать....

Полазив по MSDN нарисовал вот что (работает долго... не собразю, как условие "Сообщение от " впихнуть в запрос)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_NTLogEvent " _
    & "WHERE Logfile = 'System'")
For Each objEvent In colLoggedEvents
  If InStr(objEvent.Message, "Сообщение от ") >  0  Then
    str = str & objEvent.Message & vbCrLf
  End If
Next

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateTextFile("c:\MyPopUpLog.txt", True)
f.Write str
f.Close

Wscript.Echo "The END"

В первой строке вместо точки можно указать имя удаленного компа.
Также укажи свой признак отбора - строка "Сообщение от " - это для русской винды.
"c:\MyPopUpLog.txt" - имя файла для сохранения
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Windows [игнор отключен] [закрыт для гостей] / Net Sent
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]