Sub Test_Write()
  ' константы открытия файлов для OpenTextFile
  Const OpenFileForReading = 1
  Const OpenFileForWriting = 2
  Const OpenFileForAppending = 8
  
  'константы типа файлов - ANSI/UNICODE для OpenTextFile
  Const ciANSIFILE = 0 ' ANSI
  Const ciUNICODE = 1  ' UNICODE
  Const ciSystemDefault = 2 ' по выбору системы
  
  'константы для логирования ошибок в журнале приложений Windows
  Const clogSUCCESS = 0
  Const clogERROR = 1
  Const clogWARNING = 2
  Const clogINFORMATION = 4
  Const clogAUDIT_SUCCESS = 8
  Const clogAUDIT_FAILURE = 16

  
  ' создаем объект filesystemobject
  Dim fso 'As FileSystemObject
  Set fso = CreateObject("Scripting.FileSystemObject")

  ' создаем объект shell для доступа к переменным окружения
  Dim oShell
  Set oShell = CreateObject("WScript.Shell")

  ' обработку ошибок начинаем только с этого места, так, чтобы получить при неудаче предыдущего просто Exception
  On Error Resume Next

  Dim vcFullFileName
  vcFullFileName = "C:\pdf\test_log.txt"

  Dim otxtFile ' As TextStream
  'это для проверки создания файла с перезаписью
  'Set otxtFile = fso.CreateTextFile("C:\pdf\test_log.txt", True, False)
  '
  '                                файл                 режим         создать, если нет, пишем в ANSI
  Set otxtFile = fso.OpenTextFile(vcFullFileName, ForAppending, True, ciANSIFILE)

  If Err.Number <> 0 Then
     oShell.LogEvent clogERROR, "fso.OpenTextFile : " & vcFullFileName & " : " & Err.Number & Err.Description
     ' т.к. даже не сумели получить доступ к файлу, завершаем работу
     Exit Sub
  End If

  'здесь оказались только при успешном доступе к файлу
  'эзапишем в него значения переменных окружения
  
  Dim arrEnvironments
  ' массив источников для переменных окружения
  arrEnvironments = Array("PROCESS", "SYSTEM", "USER", "VOLATILE")

  
  Dim oEnv ' объект для доступа к переменным окружения от разных источников
  Dim strEnv
  Dim strItem
  
  For Each strEnv In arrEnvironments
      Set oEnv = oShell.Environment(strEnv)
      If Err.Number <> 0 Then
       ' регистрируем ошибку в системном журнале
       oShell.LogEvent clogERROR, "oShell.Environment : " & strEnv & " : " & Err.Number & " " & Err.Description
       
       
      Else
        ' нет ошибки
        ' заголовок - источник переменных окружения
        otxtFile.WriteLine "+++++++ " & strEnv & " ++++++++++++++"
        If Err.Number <> 0 Then
          ' регистрируем ошибку в системном журнале
          oShell.LogEvent clogERROR, "otxtFile.WriteLine : " & strEnv & " : " & Err.Number & " " & Err.Description
        End If
         ' пишем содержимое
         For Each strItem In oEnv
           otxtFile.WriteLine strItem
           If Err.Number <> 0 Then
             ' регистрируем ошибку в системном журнале
            oShell.LogEvent clogERROR, "otxtFile.WriteLine : " & strItem & " : " & Err.Number & " " & Err.Description
           End If
         Next
      End If
       'закрываем раздел
       otxtFile.WriteLine "---------------------"
       
  Next
  
  'закрываем файл
  otxtFile.Close
  
End Sub