Вывод информация о конфигурации загрузки хоста

Option Explicit
Dim objWMIService
Dim colItems
Dim objItem

Set objWMIService = GetObject("winmgmts:{impersonationLevel=anonymous}")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_BootConfiguration")

   For Each objItem In colItems
      WScript.Echo "BootDirectory: " & objItem.BootDirectory
      WScript.Echo "Caption: " & objItem.Caption
      WScript.Echo "ConfigurationPath: " & objItem.ConfigurationPath
      WScript.Echo "Description: " & objItem.Description
      WScript.Echo "LastDrive: " & objItem.LastDrive
      WScript.Echo "Name: " & objItem.Name
      WScript.Echo "ScratchDirectory: " & objItem.ScratchDirectory
      WScript.Echo "SettingID: " & objItem.SettingID
      WScript.Echo "TempDirectory: " & objItem.TempDirectory
      WScript.Echo
   Next