不与你商量的远程强制关机
做为管理员,偶尔会被一些不按常理出牌的用户弄得很无奈，按说，你们下班后，是否是您得把计算机关闭了再走？时下，你们都在喊低碳环保节能，这就是践行的一个实际行动啊。再说，计算机不关闭，明显地这也是一个消防安全隐患！sql
某天深夜，某位领导回家路过公司的一排排办公室，那微略的灯光在黑暗中是如此的光亮。次日，被领导谈话......在此省去一千字.安全
随后公司首先发文进行了行政告示，但免不了总有粗心的MM下班为了赶公司班车仍是忘记关闭计算机！看来只有靠偶来看好最后一关了！服务器
实现思路：app
好比天天晚上23:00 准时.用循环的思路遍历公司全部的IP，ping它，若在线，就 shutdown -m \\ip -f -s -t 0， 最后不要忘记记下日志，留作次日领导查的上交“做业”或者再主动去告诉一下那个粗心的家伙！dom
- For $i=0 To 255
- For $j=0 To 255
- If $i=40 And $j=147 Then ExitLoop ;呵呵，记得把本身排除一下
- ToolTip("正在核查:"&"172.16."&$i&"."&$j, @DesktopWidth/2, (@DesktopHeight - taskbarh()-30),"稍候...", 1, 2)
- If Ping("172.16."&$i&"."&$j,250) then
- $sCommand="shutdown -m \\172.16."&$i&"."&$j& " -f -s -t 0"
- Runwait(@ComSpec & " /C " & $sCommand, "", @SW_HIDE)
- _log("在线：172.16."&$i&"."&$j)
- EndIf
- Sleep(50)
- Next
- Next
如上所示，注意事项，记得将本身临时排除一下，等脚本所有执行完了,最后本身来关机：ide
- shutdown(5)
日志部分的构造：oop
- $CountLines =_FileCountLines($filelog)
- If @error Then Exit
- For $i=1 To $CountLines
- $tmpIP=StringRegExpReplace(FileReadLine ($filelog,$i), '.*在线：([^\z]+).*', '$1')
- If StringRegExp ($tmpIP, "((2[0-4]\d|25[0-5]|[01]?\d\d?)\.){3}(2[0-4]\d|25[0-5]|[01]?\d\d?)") Then
- ToolTip("正在核查"&$tmpIP&"的执行状况", @DesktopWidth/2, (@DesktopHeight - taskbarh()-30),"稍候...", 1, 2)
- If Not Ping($tmpIP) Then
- _FileWriteToLine($filelog, $i, FileReadLine ($filelog,$i)&" 已关闭!", 1)
- Else
- _FileWriteToLine($filelog, $i, FileReadLine ($filelog,$i)&" 未关闭!", 1)
- EndIf
- EndIf
- Next
- Exit(MsgBox(262144+64,"完成-8秒后自动退出","可查看日志文件:"&$filelog&"查看执行状况",8))
固然,您如有更好的更直观的构造欢迎多多指点。google
关于如何在天天晚上23:00来执行这个脚本。想必你们已经想到了：系统里的“任务计划”，挂在上边便可。固然挂在域控上也成，挂在本身的机器上也行，但要求必定要使用域管理员来登陆来执行！彷佛费话了！spa
最后开源附上我根据我公司实际状况来的，请路过的朋友多多指教：调试
- #NoTrayIcon
- #Region ;**** 参数建立于 ACNWrapper_GUI ****
- #AutoIt3Wrapper_icon=c:\WINDOWS\system32\SHELL32.dll
- #AutoIt3Wrapper_outfile=C:\Documents and Settings\zhanghong1\桌面\全体关机.exe
- #AutoIt3Wrapper_Compression=4
- #AutoIt3Wrapper_Res_Comment=管理员专用
- #AutoIt3Wrapper_Res_Description=zhanghong1@ceri.com.cn
- #AutoIt3Wrapper_Res_Fileversion=2011.3.29.1
- #AutoIt3Wrapper_Res_LegalCopyright=zhanghong1@ceri.com.cn
- #EndRegion ;**** 参数建立于 ACNWrapper_GUI ****
- #Include <File.au3>
- HotKeySet("{ESC}", "Terminate")
- Global $filelog="\\172.16.128.50\Backup\shutdown_log\"&@YEAR&"-"&@MON&"-"&@MDAY&"_log.txt"
- If Not FileExists($filelog) then
- _FileCreate($filelog)
- If @error Then Exit(MsgBox(262144+16,"严重错误:","没法写入:"&$filelog))
- EndIf
- If @UserName<>"zhanghong1" and @UserName<>"zhouyu" Then Exit(MsgBox(262144 +16,"出错","拒绝非管理员运行"))
- If @HOUR<23 Then
- If MsgBox(262144+17,"本机时钟:"&@HOUR,"强烈建议在晚11点后再考虑检查全体关机！要不后果严重,对吧?",55)=1 Then exit
- EndIf
- For $i=0 To 255
- For $j=0 To 255
- If $i=128 Or $i=136 Then ExitLoop
- If $i=40 And $j=147 Then ExitLoop
- If $i=40 And $j=241 Then ExitLoop
- If $i=41 And $j=10 Then ExitLoop
- If $i=9 And $j=219 Then ExitLoop
- ToolTip("正在核查:"&"172.16."&$i&"."&$j, @DesktopWidth/2, (@DesktopHeight - taskbarh()-30),"稍候...", 1, 2)
- If Ping("172.16."&$i&"."&$j,250) then
- $sCommand="shutdown -m \\172.16."&$i&"."&$j& " -f -s -t 0"
- Runwait(@ComSpec & " /C " & $sCommand, "", @SW_HIDE)
- _log("在线：172.16."&$i&"."&$j)
- EndIf
- Sleep(50)
- Next
- Next
- ToolTip("正在核查执行状况", @DesktopWidth/2, (@DesktopHeight - taskbarh()-30),"稍候...", 1, 2)
- Sleep(8000)
- $CountLines =_FileCountLines($filelog)
- If @error Then Exit
- For $i=1 To $CountLines
- $tmpIP=StringRegExpReplace(FileReadLine ($filelog,$i), '.*在线：([^\z]+).*', '$1')
- If StringRegExp ($tmpIP, "((2[0-4]\d|25[0-5]|[01]?\d\d?)\.){3}(2[0-4]\d|25[0-5]|[01]?\d\d?)") Then
- ToolTip("正在核查"&$tmpIP&"的执行状况", @DesktopWidth/2, (@DesktopHeight - taskbarh()-30),"稍候...", 1, 2)
- If Not Ping($tmpIP) Then
- _FileWriteToLine($filelog, $i, FileReadLine ($filelog,$i)&" 已关闭!", 1)
- Else
- _FileWriteToLine($filelog, $i, FileReadLine ($filelog,$i)&" 非计算机装备？", 1)
- EndIf
- EndIf
- Next
- Exit(MsgBox(262144+64,"完成-8秒后自动退出","可查看日志文件:"&$filelog&"查看执行状况",8))
- func taskbarh()
- $pos = WinGetPos("[class:Shell_TrayWnd]")
- if isarray($pos) Then
- return $pos[3]
- EndIf
- EndFunc
- Func Terminate()
- Exit(MsgBox(262144+16,"您按了 ESC 键?","点击 肯定 强制退出!"))
- EndFunc
- func _log($varjiamiwr)
- _FileWriteLog($filelog,$varjiamiwr)
- EndFunc
--- 个人调试平台：http://autoit-cn.googlecode.com/files/AUTOIT_3.3.6.1-2.exe
2011.6.3更新更完美的：
- #include <File.au3>
- #include <inet.au3>
- HotKeySet("{ESC}", "Terminate")
- Global $filelog = "\\172.16.128.50\Backup\shutdown_log\" & @YEAR & "-" & @MON & "-" & @MDAY & "_log.txt", $i, $j
- Global $Remoteuser = "domain\administrator" ;远程关机所用管理员用户
- Global $Remotepass = "BJp@ssw0rd" ;远程关机所用管理员密码
- If Not FileExists($filelog) Then
- _FileCreate($filelog)
- If @error Then Exit (MsgBox(262144 + 16, "严重错误:", "没法写入:" & $filelog))
- EndIf
- If @UserName<>"zhanghong1" Or @UserName<>"administrator" Then Exit(MsgBox(262144 +16,"出错","拒绝非受权管理员运行"))
- If @HOUR < 17 And @HOUR > 8 Then
- ;防止在工做时间误运行本程序，固然若坚持运行也是能够的。。。。
- If MsgBox(262144 + 17, "本机时钟:" & @HOUR, "强烈建议在非工做时间里再考虑检查遍历全体关机！要不后果严重,对吧?", 55) = 1 Then Exit
- EndIf
- $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") ; Initialize a COM error handler
- $objlocator = ObjCreate("wbemscripting.swbemlocator")
- If Not IsObj($objlocator) Then
- MsgBox(262144 + 16, "8秒后自动退出", "没法建立对象: wbemscripting.swbemlocator", 8)
- _log("系统严重错误,没法建立对象: wbemscripting.swbemlocator")
- Exit
- EndIf
- For $i = 0 To 255
- For $j = 0 To 255
- If $i = 128 Or $i = 136 Then ExitLoop ;该段为7*24的服务器区域，故跳过。
- ToolTip("正在核查:" & "172.16." & $i & "." & $j, @DesktopWidth / 2, (@DesktopHeight - taskbarh() - 30), "稍候...", 1, 2)
- If Ping("172.16." & $i & "." & $j, 250) Then
- ;$sCommand="shutdown -m \\172.16."&$i&"."&$j& " -f -s -t 0"
- ;Run(@ComSpec & " /C " & $sCommand, "", @SW_HIDE)
- $objWMIService = $objlocator.connectserver("172.16." & $i & "." & $j, "root/cimv2", $Remoteuser, $Remotepass)
- If Not @error Then
- $colItems = $objWMIService.ExecQuery("SELECT * FROM win32_operatingsystem where primary= true")
- For $objItem In $colItems
- If ($i = 40 And $j = 241) Or ($i = 41 And $j = 10) Or ($i = 9 And $j = 219) Or ($i = 40 And $j = 147) Then
- $objItem.win32shutdown(6);重启
- If Not @error Then
- TCPStartup()
- $aResult = _TCPIpToName("172.16." & $i & "." & $j)
- If @error Then
- _log("->在线IP：172.16." & $i & "." & $j & " 已成功远程重启设备！")
- Else
- _log("->在线IP：172.16." & $i & "." & $j & " 机器名:" & $aResult & " 已成功远程重启设备！")
- EndIf
- TCPShutdown()
- EndIf
- Else
- $objItem.win32shutdown(5) ;关机
- If Not @error Then
- TCPStartup()
- $aResult = _TCPIpToName("172.16." & $i & "." & $j)
- If @error Then
- _log("→在线IP：172.16." & $i & "." & $j & " 成功远程关掉！")
- Else
- _log("→在线IP：172.16." & $i & "." & $j & " 机器名:" & $aResult & " 成功远程关掉！")
- EndIf
- TCPShutdown()
- EndIf
- EndIf
- Next
- EndIf
- EndIf
- Sleep(50)
- Next
- Next
- Exit (MsgBox(262144 + 64, "完成-8秒后自动退出", "可查看日志文件:" & $filelog & "查看执行状况", 5))
- Func taskbarh()
- $pos = WinGetPos("[class:Shell_TrayWnd]")
- If IsArray($pos) Then
- Return $pos[3]
- EndIf
- EndFunc ;==>taskbarh
- Func Terminate()
- Exit (MsgBox(262144 + 16, "您按了 ESC 键?", "点击 肯定 强制退出!", 30))
- EndFunc ;==>Terminate
- Func _log($varjiamiwr)
- _FileWriteLog($filelog, $varjiamiwr)
- EndFunc ;==>_log
- ; This is my custom defined error handler
- Func MyErrFunc()
- $LOALERROR = $oMyError.description
- If StringInStr($LOALERROR, "RPC") Or StringInStr($LOALERROR, "拒绝") Then
- _log("172.16." & $i & "." & $j & "可能为非计算机装备(打印服务器网关等?),故没法执行远程操做！错误代码:" & Hex($oMyError.number, 8) & " " & $LOALERROR)
- Else
- _log("172.16." & $i & "." & $j & " 因:" & $LOALERROR & " 错误代码:" & Hex($oMyError.number, 8) & " 没法执行远程操做！")
- EndIf
- EndFunc ;==>MyErrFunc
相关文章
- 1. ubuntu的远程开机、关机和远程桌面控制
- 2. netty 处理远程主机强制关闭一个链接
- 3. 制作手机远程控制开关
- 4. 远程通信机制RPC与RMI的关系
- 5. win7实现远程关机-可以批量局域网远程关机
- 6. 浏览器的缓存机制—强缓存与协商缓存
- 7. java远程控制tomcat启动关机
- 8. 强制缓存与协商缓存
- 9. 远程主机强迫关闭了一个现有的链接
- 10. git项目强制与远端同步！！！
- 更多相关文章...
- • 网站主机提供商 - 网站主机教程
- • ARP协议的工作机制详解 - TCP/IP教程
- • 漫谈MySQL的锁机制
- • Docker容器实战(六) - 容器的隔离与限制
相关标签/搜索
每日一句
-
每一个你不满意的现在，都有一个你没有努力的曾经。
欢迎关注本站公众号,获取更多信息
相关文章