自动关机的小VBS程序

转载 2006年05月24日 11:35:00

<script language="vbs">
Option Explicit
Dim ws, Title, ErrMsg
Set ws = CreateObject("Wscript.Shell")
Title = "Windows Shutdown Timer"
Dim oWMI, oOS, obj

On Error Resume Next
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!//./root/cimv2")
If Err Then
  MsgBox "Your computer does not seem to have WMI installed", , Title
  Call Cleanup
End If
On Error GoTo 0
For Each obj in oWMI.ExecQuery("Select * from Win32_OperatingSystem")
  Set oOS = obj
  Exit For
Next

WScript.Sleep SetTimer()

ShutDownNow

Function SetTimer()
  Dim MinSpec
  MinSpec = InputBox(ErrMsg & vbcrlf & "Enter number of minutes until " & _
                     "Shutdown.  You will have an option to cancel " & _
                     "shutdown for 1 minute before time elapses.",Title)
  If MinSpec = "" Then
    Cleanup
  ElseIf Not IsNumeric(MinSpec) Then
    ErrMsg = "Invalid Selection!" & vbcrlf & vbcrlf
    SetTimer()
  ElseIf MinSpec < 1 Then
    ErrMsg = "Invalid Selection!" & vbcrlf & vbcrlf
    SetTimer()
  Else
    If MinSpec > 1 Then
      SetTimer = (MinSpec - 1) * 1000 * 60
    Else
      SetTimer = MinSpec * 1000 * 60
    End If
  End If
End Function

Sub ShutDownNow()
  Const EWX_LOGOFF = 0
  Const EWX_SHUTDOWN = 1
  Const EWX_REBOOT = 2
  Const EWX_FORCE = 4
  Const EWX_POWEROFF = 8
  oOS.Win32shutdown EWX_SHUTDOWN '+ EWX_FORCE
End Sub

Sub Cleanup
  Set ws = Nothing
  WScript.Quit
End Sub
</script>

 

原帖:http://www.2yup.com/asp/forum/branch.asp?pid=115548

 

相关文章推荐

自动关机(vbs)

  • 2013年03月17日 04:31
  • 526B
  • 下载

Delphi实现通用的定时自动关机程序

一、问题的提出:运行某任务的计算机,尤其是服务器,如果能实现在无人职守的情况下,到达指定时间时自动关机,那么将极大地减轻系统管理员的负担,也会给我们的日常工作带来很大方便。    笔者用Delp...
  • my98800
  • my98800
  • 2016年08月29日 09:12
  • 839

回忆写MFC的青葱岁月——MFC自动关机小程序

///////////////////////////////////////////////////////////////////////////// // CAutoshutdownDlg di...

houdini批渲染结束自动关机程序

最近需要一个能在houdini批渲染结束后自动关机的小程序 所以就写了一个,也没用多长时间 使用的openframeworks 0.84 本来是想用PsSetCreateProcessNot...

关于自动关机的程序设计(MFC/VC)

自动关机,对于某些时候有一定的实用性。运用API实现这一功能其实很简单,再结合托盘显示、托盘鼠标响应、动态菜单等,编制出一个简单的自动关机的程序!1、自动关机的APi函数HANDLE hToken;T...
  • zcj331
  • zcj331
  • 2014年04月11日 13:25
  • 539

如何让matlab跑完程序后自动关机?

我们常常会遇到在无人监管的情况下让机器一直跑程序。如果是在matlab下运行程序,如何做到程序跑完了,顺便也把机器给关掉呢?请看本文,一条语句,实现matlab自动关机。...

自动关机批处理程序

@ECHO off TITLE 自动关机程序 作者:廖晓青 :start CLS COLOR 1f rem 使用COLOR命令对控制台输出颜色进行更改 MODE con: COLS=41 ...

C语言的自动关机程序和一个用来整人的小程序

可以用C语言中的system()函数来实现系统的自动关机程序,可以设置多长时间后将自动关机。当然马上关机也是可以的,我们就可以恶搞别人计算机了(你事先得知道怎么解),将写好的自动关机程序复制到别人电脑...

C语言的自动关机程序和一个用来整人的小程序

今天是在中软国际实训的第一天学了一个很好玩的程序,然后百度了一下,找到这个,赞一下   可以用C语言中的system()函数来实现系统的自动关机程序,可以设置多长时间后将自动关机。当然马上关机也是...

定时自动关机程序

  • 2014年09月27日 16:41
  • 1.34MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:自动关机的小VBS程序
举报原因:
原因补充:

(最多只允许输入30个字)