电脑系统关机脚本,windows关机执行脚本

关机VBS脚本

1.关机脚本(shutdown1.vbs)：

Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems

ObjOperatingSystem.Win32Shutdown(8)

Next

2.延时60秒，在关机前提示，可以在延时到达前取消关机(shutdown2.vbs脚本):

set wshshell = CreateObject("WScript.Shell")

timeout = 60

'Time Out 可以自己定义

ask = "系统将在 " & timeout & " 秒钟后关机！"

title = "自动关机提示"

constants = vbExclamation + vbOkCancel

result = wshshell.Popup(ask, timeout, title, constants)

if result = vbCancel then

elseif result = true then

Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems

ObjOperatingSystem.Win32Shutdown(8)

Next

end if

操作方法如下：

1、桌面新建一个a.bat文件，文件内容为shutdown

-s

-f

-t

600；

2、点击开始按钮，所有程序，列表找到启动文件夹，右键选择打开；

3、拖动a.bat到打开的文件夹中，重启即可。