Форум программистов, компьютерный форум, киберфорум
Visual Basic
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > Visual Basic
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 05.04.2016
Сообщений: 5
1

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

07.04.2016, 08:35. Показов 1867. Ответов 8
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Добрый день.
Шеф поставил задачу, собрать данные из компьютеров внутри нашей локальной сети, а именно нужно что бы при запуске скрипта на почту отсылалось письмо с именем компьютера и учетной записи с 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 минуту
Видать не посильная задачка?!
0
Лучшие ответы (1)
Сообщение: #8993294
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 07.04.2016, 08:35
Ответы с готовыми решениями:

Выделять из имени каждого файла имя компьютера и имя учётной записи и записывать их в два файла соответственно
здравствуйте, подскажите... Есть например, 10 файлов (.txt) в названии которых написано имя...

Имя учетной записи компьютера в VBA
Друзья! Оооооочень много вариантов получения имени пользователя, однако почти ничего не нашел,...

Как определить имя учетной записи под которой сидишь?
как определить имя учетной записи под которой сидишь в винде? В линуксе whoami команда.

Вывести IP-адрес компьютера, имя компьютера, имя пользователя и дату и время включения/выключения компьютера
необходимо написать скрипт который, будет лежать в автозагрузке на локальных машинах и выводить в...

8
Заблокирован
07.04.2016, 08:36 2
Visual Basic
1

objEmail.Textbody = Environ$("COMPUTERNAME") & vbCrLf & Environ$("USERNAME")
?
1
0 / 0 / 0
Регистрация: 05.04.2016
Сообщений: 5
07.04.2016, 12:01  [ТС] 3
Shersh,
Спасибо, но вылетает.
Ошибка: Недопустимый знак
Код: 800А0408
Символ: 28 $
objEmail.Textbody = Environ$("COMPUTERNAME") & vbCrLf & Environ$("USERNAME")
0
Заблокирован
07.04.2016, 13:09 4
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
1
0 / 0 / 0
Регистрация: 05.04.2016
Сообщений: 5
07.04.2016, 15:21  [ТС] 5
Shersh, спасибо вам! От души, помогли!
А как бы еще IP адрес тоже пересылать.
0
Заблокирован
07.04.2016, 15:41 6
Вывести имя компьютера, MAC- и IP-адрес - может выцепите там то, что надо?
1
0 / 0 / 0
Регистрация: 05.04.2016
Сообщений: 5
07.04.2016, 16:57  [ТС] 7
Shersh, спасибо за совет, но сложно не понимая синтаксиса это сделать.
Будьте добры помогите мне.
0
Заблокирован
07.04.2016, 22:10 8
Лучший ответ Сообщение было отмечено restedd как решение

Решение

Вот какую-то фигню выдало, проверьте -
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
?
1
0 / 0 / 0
Регистрация: 05.04.2016
Сообщений: 5
08.04.2016, 09:39  [ТС] 9
Shersh, спасибо, ты лучший!

Спасибо всем кто откликнулся!
Пусть вам всегда встречаются отзывчивые люди, такие же как и вы!
0
08.04.2016, 09:39
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 08.04.2016, 09:39
Помогаю со студенческими работами здесь

Получить имя учетной записи
Доброго, необходимо получить имя активной учетной записи. Проблема в том, что имя получаю из...

Получить имя учетной записи.!
Нужно получить имя "учетной записи" под которой осуществлен вход в компьютер. Комп находится в...

Изменить имя учетной записи
Добрый день. Надо изменить имя учетной записи на англ. Но запись единственная администратора. ...

Имя учетной записи и пароль Win10
Приветствую, форумчане! Ребят, нужна помощь. Есть ли нехитрый способ вытащить пароль от учетки...

Можно ли сменить имя учетной записи windows xp
Добрый день Всем, скажите Можно ли сменить имя учетной записи в windows xp, не создавая новой,...

Неудачно изменил имя учетной записи windows 7
Добрый день,дамы и господа. Сегодня сисадмин установил windows 7 Pro на мой рабочий компьютер. Я...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru