[tips0125.vbs] Option Explicit On Error Resume Next Dim objShell ' Shell オブジェクト Set objShell = WScript.CreateObject("Shell.Application") If Err.Number = 0 Then objShell.ControlPanelItem "desk.cpl @0,3" Else WScript.Echo "エラー:" & Err.Description End If Set objShell = Nothing