vbs实现计算机重启

(编辑:jimmy 日期: 2024/9/20 浏览:2)

Dim return
Set R = CreateObject("WScript.Shell")
return=MsgBox ("你确定要重起计算机吗?",vbokcancel+vbexclamation,"注意!")
If return=vbok Then
R.run("Shutdown.exe -r -t 0")
End if