Записать информацию в новый текстовый файл и открыть его программой по умолчанию - VB

Формулировка задачи:

Напишите программу, которая прочитает информацию о дисковых устройствах на Вашем компьютере: общее количество, имя, тип, общий объем и свободный объем каждого диска, запишет эту информацию в новый текстовый файл и откроет его методом Run в программе по умолчанию для текстовых файлов. Информацию о дисках я сделала, но с остальным у меня проблема помогите пожалуйста.( эта работа делалась в Visual Basic Scripting , я не знаю просто туда я написала тему или нет!)

                    Листинг программы
                
 
                        
                          
                    
On Error Resume Next 'на случай, если в CD-приводе нет диска
Dim fs, dr, ndr, d, d1, drv, s
Set fs = CreateObject("Scripting.FileSystemObject") 
Set dr = fs.Drives 
ndr = dr.Count
d = "Всего дисков - " & ndr & ": "
For Each d1 in dr
name_d = d1.DriveLetter & ":" 
d = d & name_d & " "
Set drv = fs.GetDrive(fs.GetDriveName(name_d))
s = s & vbLF & "Имя диска " & drv.Path & " - " 
s = s & drv.VolumeName
Select Case drv.DriveType
Case 0: t = "Неизвестный"
Case 1: t = "Удаляемый (флэш и пр.)"
Case 2: t = "Раздел винчестера"
Case 3: t = "Сетевой"
Case 4: t = "CD-ROM" 
Case 5: t = "RAM диск"
End Select
s = s & ", тип " & t & vbLF
s = s & "Серийный номер диска " & _ 
drv.SerialNumber & vbLF
s = s & "Серийный номер диска " & _ 
drv.SerialNumber & vbLF
s = s & "Всего: " & _
FormatNumber(drv.TotalSize/1024/1024, 0)
s = s & " Мб,"
s = s & " свободно: " & _
FormatNumber(drv.FreeSpace/1024/1024, 0)
s = s & " Мб" & vbLf
Next
s = d & vbLf & s
MsgBox s,, "Свойства файла"

Решение задачи: «Записать информацию в новый текстовый файл и открыть его программой по умолчанию»

textual
                            Листинг программы 
                        
CreateObject("WScript.Shell").Run App.Path & "\info.txt"