Скрипт отправки размеров дисков их готовности и т.д. на почту

Собственно написал скрипт my.vbs - оказался не нужен....
может кому будет полезен, жалко выкидывать

Option Explicit
Dim fso1
Dim MessText
Dim oDrives
Dim i
Dim oDrive1
MessText = "Данное сообщение послано " + CStr(Date)+" "+CStr(Time) + VbCrLf
Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")
Set oDrives = fso1.Drives
For Each i In oDrives
If i.IsReady Then
MessText = MessText + "Диск: "+i.DriveLetter + " - Готовность: "+ CStr(i.IsReady) + " - Свободно: "+FormatNumber(i.FreeSpace/1073741824,3)+" Гб " +" - Всего: "+FormatNumber(i.TotalSize/1073741824,3)+" Гб " + VbCrLf
Else
MessText = MessText + "Диск: "+i.DriveLetter + " - Готовность: "+ CStr(i.IsReady) + VbCrLf
End If
Next

Dim objEmail

'Dim AttFile

'AttFile = "C:\temp\test.txt"
Set objEmail = WScript.CreateObject("CDO.Message")
objEmail.From = "[email protected]"
objEmail.To = "[email protected]"
objEmail.Subject = "from me"
'objEmail.AddAttachment(AttFile)
objEmail.Textbody = MessText
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = _
"[email protected]"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = _
"userpass"
objEmail.Configuration.Fields.Update
objEmail.Send