JojoChen's MIS Blog

前天早上已撰寫好VBScript程式，是因為H同事請了三天陪假產而代理監控RAS使用者連線狀況的工作，並設定排程E-Mail，提醒自己別忘記。其VBScript程式如下：

Set objShell = Wscript.CreateObject("Wscript.Shell")
objShell.Run "cmd /c netsh ras show client> c:\VPNClient.txt", 0, True


Set objEmail = CreateObject("CDO.Message")

objEmail.From = "test@test.com"
objEmail.To = "Jojo@test.com"
objEmail.Subject = "每日VPN Client連線日誌"
objEmail.AddAttachment "c:\VPNClient.txt"

objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "test.com"
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update

'傳送郵件
objEmail.Send

Set Email = nothing