Как послать имя компьютера и имя учетной записи с 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, спасибо, ты лучший!

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@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 письмом

Решение