[Iska]

Тогда примерно так:

читать дальше »

Код:

AutoItSetOption("MustDeclareVars", 1)

Local Const $cdoSendUsingPort = 2
Local Const $cdoBasic         = 1

Local Const $sPartSchema      = "http://schemas.microsoft.com/cdo/configuration/"

Sleep(5 * 60 * 1000)

Local $oMessage         = ObjCreate("CDO.Message")
Local $oConfiguration   = ObjCreate("CDO.Configuration")

Local $oSWbemLocator    = ObjCreate("WbemScripting.SWbemLocator")
Local $oSWbemServicesEx = $oSWbemLocator.ConnectServer(".", "root\cimv2")
Local $oSWbemObjectEx


For $oSWbemObjectEx In $oSWbemServicesEx.InstancesOf("Win32_OperatingSystem")
	ExitLoop
Next

With $oConfiguration.Fields
	.Item($sPartSchema & "sendusing")        = $cdoSendUsingPort
	.Item($sPartSchema & "smtpauthenticate") = $cdoBasic
	.Item($sPartSchema & "smtpserver")       = "smtp.mail.com"
	.Item($sPartSchema & "smtpserverport")   = 25
	.Item($sPartSchema & "sendusername")     = "login"
	.Item($sPartSchema & "sendpassword")     = "password"

	.Update
EndWith

With $oMessage
	.To            = "to@mail.com"
	.From          = "from@mail.com"
	.Subject       = "Last bootup time: " & @ComputerName
	
	.Configuration = $oConfiguration
	
	.TextBody      = "Last bootup time for [" & @ComputerName & "] is " & FormatWMIDateTime($oSWbemObjectEx.LastBootUpTime())
	.Send
EndWith

$oSWbemObjectEx   = 0
$oSWbemServicesEx = 0
$oSWbemLocator    = 0

$oConfiguration = 0
$oMessage = 0

Exit(0)

Func FormatWMIDateTime($sWMIDateTime)
    Return ( _
		StringMid($sWMIDateTime,  7, 2) & "." & _
		StringMid($sWMIDateTime,  5, 2) & "." & _
		StringMid($sWMIDateTime,  1, 4) & " " & _
		StringMid($sWMIDateTime,  9, 2) & ":" & _
		StringMid($sWMIDateTime, 11, 2) & ":" & _
		StringMid($sWMIDateTime, 13, 2) _
	)
EndFunc