奔騰兔的部落格

AutoIT:重開機程式

若使用非管理者權限的使用者登入電腦，而又要讓電腦可以排程進行重開機的工作

使用內建的Shutdown.exe 看起來是需要管理者的權限，找了網路上其它的開關

機程式也都是要管理者權限才能執行，看起來只好自已開發了。

AutoIt 真是一個好工具，執行重開機的指令使用PowerUser 的權限就可以執行了

除了進行關機時如果發生錯誤會產生Log 檔案，程式還附加了一個關機Fail 時發送Mail 的功能。

#include <INet.au3> Dim $sStatus Dim $sMailbody DIM $sSubj $sStatus=Shutdown(6) ;Force a reboot $sFile=FileOpen("reboot.log",1) if $sStatus =0 Then FileWriteLine($sFile, @Year &"-"& @MON &"-"&@MDAY &" "&@HOUR &":"&@MIN & ",Station:" & @ComputerName & ", Reboot Fail" ) $sMailbody= @Year &"-"& @MON &"-"&@MDAY &" "&@HOUR &":"&@MIN & ",Station:" & @ComputerName & ", Reboot Fail" $sSubj="AutoIt Monitor Workstation "& @ComputerName &" Reboot Fail" sendmail($sMailbody,$sSubj) sendmailbak($sMailbody,$sSubj) EndIf FileClose("reboot.log") Func sendmail($sMailbody,$sSubj) $s_SmtpServer = "SmtpServer.Domain name" $s_FromName = "Admin" $s_FromAddress = "autoit@Domain name" $s_ToAddress = "admin@Domain name" $s_Subject = $sSubj Dim $as_Body[2] $as_Body[0] = $sMailbody $as_Body[1] = @CRLF &"AutoIt Monitor Tools v1.0" $Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, @ComputerName, -1); $ERR = @ERROR IF $RESPONSE = 1 THEN MSGBOX(0, "SUCCESS!", "MAIL SENT") ELSE MSGBOX(0, "ERROR!", "MAIL FAILED WITH ERROR CODE " & $ERR) ENDIF