vbs ส่วนของโค้ดที่ส่งเมลล์ ใช้ smtp server

save เป็น .vbs ส่วนของโค้ดที่ส่งเมลล์นี้ใช้ smtp server ภายในนะครับ

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set txtStream = objFSO.OpenTextFile("D:\PC.txt",1) '<------------ สร้าง text ไฟล์รายชื่อเครื่อง
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "admin@company.com"
objEmail.To = "admin@company.com"
objEmail.Subject = "Disk space low"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver ") = "Smtp Server"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate ") = 2
objEmail.Configuration.Fields.Update
Do While Not txtStream.AtEndOfLine
strComputer = txtStream.ReadLine
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDiskDrives = objWMIService.ExecQuery("Select * from Win32_PerfFormattedData_PerfDisk_LogicalDisk Where Name = 'C:'")
For Each objDiskDrive in colDiskDrives
If objDiskDrive.FreeMegabytes < 1000 Then
objEmail.Send
End If
Next
Loop
Set objEmail = Nothing
Set txtStream = Nothing
Set objFSO = Nothing

ที่มา http://www.thaiadmin.org/board/index.php?topic=118401.0