Как послать имя компьютера и имя учетной записи с ip письмом

@restedd · Регистрация: 05.04.2016

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

Добрый день.
Шеф поставил задачу, собрать данные из компьютеров внутри нашей локальной сети, а именно нужно что бы при запуске скрипта на почту отсылалось письмо с именем компьютера и учетной записи с ip.

скрипт посылки сообщения работает:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "support@e1.ru"
objEmail.To = "support@e1.ru"
objEmail.Subject = "TEST"
objEmail.Textbody = "OK"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.e1.ru"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") ="support"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="pP@#@;;fNLO"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
objEmail.Configuration.Fields.Update
objEmail.Send

Как собрать данные и вставить их в тело письма?
Я не программист, задача единичная, спасибо за внимание!

Добавлено через 15 часов 21 минуту
Видать не посильная задачка?!

Shersh · 07.04.2016, 08:36

Visual Basic
1
objEmail.Textbody = Environ$("COMPUTERNAME") & vbCrLf & Environ$("USERNAME")

?

@restedd · 07.04.2016, 12:01 **[ТС]**

Shersh,
Спасибо, но вылетает.
Ошибка: Недопустимый знак
Код: 800А0408
Символ: 28 $
objEmail.Textbody = Environ$("COMPUTERNAME") & vbCrLf & Environ$("USERNAME")

Shersh · 07.04.2016, 13:09

restedd, веткой ошиблись, наверно?
Вам бы там спросить - https://www.cyberforum.ru/vbscript-wsh/

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
set wshshell = CreateObject("WScript.Shell")
computer = WshShell.ExpandEnvironmentStrings("%computername%")
user=WshShell.ExpandEnvironmentStrings("%username%")
'MSGBOX computer & vbcrlf & user
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "support@e1.ru"
objEmail.To = "support@e1.ru"
objEmail.Subject = "TEST"
objEmail.Textbody = computer & vbcrlf & user
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.e1.ru"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") ="support"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="pP@#@;;fNLO"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
objEmail.Configuration.Fields.Update
objEmail.Send

@restedd · 07.04.2016, 15:21 **[ТС]**

Shersh, спасибо вам! От души, помогли!
А как бы еще IP адрес тоже пересылать.

Shersh · 07.04.2016, 15:41

Вывести имя компьютера, MAC- и IP-адрес - может выцепите там то, что надо?

@restedd · 07.04.2016, 16:57 **[ТС]**

Shersh, спасибо за совет, но сложно не понимая синтаксиса это сделать.
Будьте добры помогите мне.

Shersh · 07.04.2016, 22:10

Вот какую-то фигню выдало, проверьте -

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
set wshshell = CreateObject("WScript.Shell")
computer = WshShell.ExpandEnvironmentStrings("%computername%")
user=WshShell.ExpandEnvironmentStrings("%username%")
For Each IPConfig In GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
    user=user&vbcrlf& IPConfig.IPAddress(0)
    Exit For
Next
'MSGBOX computer & vbcrlf & user
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "support@e1.ru"
objEmail.To = "support@e1.ru"
objEmail.Subject = "TEST"
objEmail.Textbody = computer & vbcrlf & user
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.e1.ru"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") ="support"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="pP@#@;;fNLO"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
objEmail.Configuration.Fields.Update
objEmail.Send

?

@restedd · 08.04.2016, 09:39 **[ТС]**

Shersh, спасибо, ты лучший!

Спасибо всем кто откликнулся!
Пусть вам всегда встречаются отзывчивые люди, такие же как и вы!

Новые блоги и статьи Все статьи Все блоги /
Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .

@restedd 0 / 0 / 0 Регистрация: 05.04.2016 Сообщений: 5
	07.04.2016, 12:01 [ТС]
	Shersh, Спасибо, но вылетает. Ошибка: Недопустимый знак Код: 800А0408 Символ: 28 $ objEmail.Textbody = Environ$("COMPUTERNAME") & vbCrLf & Environ$("USERNAME") 0

@restedd 0 / 0 / 0 Регистрация: 05.04.2016 Сообщений: 5
	07.04.2016, 15:21 [ТС]
	Shersh, спасибо вам! От души, помогли! А как бы еще IP адрес тоже пересылать. 0

Shersh Заблокирован
	07.04.2016, 15:41
	Вывести имя компьютера, MAC- и IP-адрес - может выцепите там то, что надо? 1

@restedd 0 / 0 / 0 Регистрация: 05.04.2016 Сообщений: 5
	07.04.2016, 16:57 [ТС]
	Shersh, спасибо за совет, но сложно не понимая синтаксиса это сделать. Будьте добры помогите мне. 0

@restedd 0 / 0 / 0 Регистрация: 05.04.2016 Сообщений: 5
	08.04.2016, 09:39 [ТС]
	Shersh, спасибо, ты лучший! Спасибо всем кто откликнулся! Пусть вам всегда встречаются отзывчивые люди, такие же как и вы! 0

Как послать имя компьютера и имя учетной записи с ip письмом

Решение