|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
|
功能：延时自动关机
使用方法：把下面的代码保存成一个扩展名为VBS的文件，运行即可。
测试：在Windows2000 Professional 和Server下通过。
附：脚本
'Create by guoli
set wshshell = CreateObject("WScript.Shell")
timeout = 20
'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 |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 本站收集 |
|
|
信息来源： 网络 |
录入时间： 2005-5-23 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]