objLatestEvent.EventType = 7
на objLatestEvent.EventType = 4
согласно офф.документации Set WshShell = WScript.CreateObject("WScript.Shell")
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set email = CreateObject("CDO.Message")
With email.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
= "mail.localnet"
.Update
End With
email.From = "robot@mycompany.ru"
email.To = "admins@mycompany.ru"
Set wshNetwork = WScript.CreateObject("WScript.Network")
Set colMonitoredEvents = GetObject("winmgmts:")._
ExecNotificationQuery("Select * from Win32_PowerManagementEvent")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
If objLatestEvent.EventType = 7 Then
email.Subject = wshNetwork.ComputerName & " включен в" & Date
email.Textbody = ""
email.TextBodyPart.charset = "koi8-r"
email.Send
End If
Loop
Это компиляция скриптов найденных гуглом. Извините, проверить сейчас не могу, нет windows под рукой. Я думаю направление движения мысли понятно.