[ウィンドウズのヘルプを開く]

『ウィンドウズのヘルプ』画面を開きます。

【ソースコード】

[tips0130.vbs]
Option Explicit
On Error Resume Next

Dim objShell        ' Shell オブジェクト

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

Set objShell = Nothing