以安全模式重启计算机-优化代码

Question

我有一个脚本，它将以安全模式重新启动Windows计算机。

此vbscript调用一个BAT文件，该文件提示UAC升高，并以安全模式重新启动计算机。

关于如何优化此脚本的任何建议？可以在Windows 8中使用吗？

[code]Dim oShell, retCode
Set oShell = WScript.CreateObject("WScript.Shell")
Set objShell = CreateObject("Wscript.Shell")

retCode = oShell.Popup("Do you want to restart your computer in Safe Mode", 0, "Restart In SafeMode", 4 + 48)

Select Case retCode
case 6, -1
objShell.Run "elevaterestart.bat"
case 7
WScript.quit(1) 'No was chosen
End Select

更新：我按照建议更新了脚本，并在用户选择Operation Canceled时添加了no弹出窗口>

Dim oShell, retCode, MsgBox
Set oShell = WScript.CreateObject("WScript.Shell")
Set objShell = CreateObject("Wscript.Shell")

retCode = oShell.popup("Do you want to restart your computer in Safe Mode", 0, "Restart                In Safe Mode", 4 + 48 + 256)


If retCode = 6 Or retCode = -1 Then
objShell.Run "elevaterestart.bat"
Else
oShell.popup "Operation Canceled", 0, "Restart In Safe Mode", 0 + 64 + 0
End If`

我有一个脚本，它将以安全模式重新启动Windows计算机。此vbscript调用一个BAT文件，该文件提示UAC升高，并以安全模式重新启动计算机。有关如何...

Answer 1

似乎不需要设置objShell行，因为从不使用objShell变量，而oShell则是多余的。

Answer 2

我知道这是一篇过时的文章，但是如果您仍然需要一个好的脚本。