|
Скрипт отправки размеров дисков их готовности и т.д. на почту | ☑ | ||||||
---|---|---|---|---|---|---|---|---|
0
IVIuXa
26.09.11
✎
13:22
|
Собственно написал скрипт 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 |
|||||||
1
БалбесВ1с
26.09.11
✎
13:32
|
(0)Может кому и интересно,только можно подробнее? Что.Куда.Зачем.
|
|||||||
2
Волшебник
26.09.11
✎
13:33
|
а если почтовый сервер не работает?
отстой |
|||||||
3
IVIuXa
26.09.11
✎
13:36
|
(2)
дорабатывать смысла нет - выложена основная идея короче кому надо - берешь основу и делаешь не отстой с кучей проверок и комментариями |
|||||||
4
Волшебник
26.09.11
✎
13:37
|
(3) Мне не надо
|
|||||||
5
IVIuXa
26.09.11
✎
13:43
|
(1)
подставляй данные своего ящика и наслаждайся сообщением о свободном пространстве своего диска |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |