[日付と時刻のプロパティを開く]

『日付と時刻のプロパティ』画面を開きます。

【ソースコード】

[tips0132.vbs]
Option Explicit
On Error Resume Next

Dim objShell        ' Shell オブジェクト

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

Set objShell = Nothing