win7下使用shutdown命令设置延时关机后如何获取剩余时间？

shelluserwlb

我的系统是64位win7. 在cmd窗口中输入“shutdown -s -t 7200”回车， 注销窗口只显示2秒钟就自动隐藏了。
如果我想看一下还有多少时间会关机，请问怎么将它再次调出。

shelluserwlb

我的问题为什么没有人回答，是真的很难还是没有人遇到过？

不知道是谁

应该没办法解决

pcl_test

vbs

1. Set ws = CreateObject("WScript.Shell")
   
2. Set fso = CreateObject("Scripting.FileSystemObject")
   
3. CommandMode()
   
4. t = InputBox("请输入关机延时秒数（0-315360000）:", "提示", 30)
   
5. If t<>"" and t>=0 and t<=315360000 Then
   
6.     dt = DateAdd("s", t, now)
   
7.     r =t
   
8.     ws.run "shutdown -s -t "&t
   
9.     Set f = fso.OpenTextFile("CloseTime.txt", 2, True)
   
10.     f.Write dt
    
11.     f.Close
    
12.     For i = r To 1 Step -1
    
13.         WScript.Echo "系统将在 "& dt &" 时，"& GetDT(r) &" 后关闭。"
    
14.         r = r - 1
    
15.         Wscript.Sleep 1000
    
16.     Next
    
17. Else
    
18.     WScript.Echo "数值错误"
    
19. End If
    
20. 
    
21. Function GetDT(t)
    
22.     d = int(t / 86400)
    
23.     h = int((t mod 86400)/3600)
    
24.     m = int((t mod 3600)/60)
    
25.     s = t mod 60
    
26.     GetDT = d &"天"& h &"时"& m &"分"& s &"秒"
    
27. End Function
    
28. 
    
29. Sub CommandMode()
    
30.     If InStr(1, WScript.FullName, "\cscript.exe", vbTextCompare) > 0 Then Exit Sub
    
31.     Command = "%Comspec% /c cscript.exe //NoLogo """ & WScript.ScriptFullName & """"
    
32.     CreateObject("WScript.Shell").Run Command & " & pause", 1, False
    
33.     WScript.Quit
    
34. End Sub

复制代码