[シャットダウン画面を開く]

『シャットダウン』画面を開きます。

【ソースコード】

[tips0133.vbs]
Option Explicit
On Error Resume Next

Dim objShell        ' Shell オブジェクト

Set objShell = WScript.CreateObject("Shell.Application")
If Err.Number = 0 Then
    objShell.ShutdownWindows
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objShell = Nothing