Windows コンピューターをセーフ モードで再起動するスクリプトがあります。
この vbscript は、UAC の昇格を促す BAT ファイルを呼び出し、コンピューターをセーフ モードで再起動します。
このスクリプトを最適化する方法について何か提案はありますか? そして、これは 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`