PCをシャットダウンさせるときにメールを送るには

グループ・ポリシーを使って、コンピュータの終了時にコマンドを実行する

[osaki.vbs]
Set oMsg = CreateObject("CDO.Message")
oMsg.From = "aspx<aspx@aspx.local>"
oMsg.To = "boss@aspx.local"
oMsg.Subject = "[aspx]ちょりーっす"
oMsg.TextBody = "お先に帰ります＾＾；；" & vbCrLf 
oMsg.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMsg.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.xxx.xxx"
oMsg.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMsg.Configuration.Fields.Update
oMsg.Send