求一个电脑关机的脚本文件

曾经有人给我发过，就是让我输入一些文字，如果不输入电脑就自动关机了。谁有这个脚本文件

'经过测试，4代表注销；5代表关机 ；6代表重新启动
Const Shutdown_Mod = 5  
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate," & _
 "(Shutdown)}!\\" & GetComputerName & "\root\cimv2") '获得对象
Set colOSes = objWMIService.ExecQuery("SELECt * FROM Win32_OperatingSystem")
For Each objOS In colOSes '只可能有一个 objOS 在colOSes集合中
  intReturn = objOS.Win32Shutdown(Shutdown_Mod)
  If intReturn <> 0 Then
    msgbox "操作失败"
  End If
Next
Function GetComputerName
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\." _
 &"\root\cimv2")
Set colSystems = objWMIService.ExecQuery("SELECt * FROM Win32_ComputerSystem")
For Each objSytem In colSystems
  GetComputerName = objSytem.Name
Next
End Function

在记事本里保存为    关机.vbs