新元号「令和」を設定する

(UPD:19/04/03)

WindowsやExcelの新元号「令和」への対応はWindowsアップデートに依存します。
どうしてもWindowsアップデートが行えない場合レジストリに新元号を追加するプログラム(というほどのものではありませんが)を作りましたのでお使いください。
令和設定プログラム ReiwaSet.vbs


【ソース】
'新元号対応レジストリ編集
'Loadsystem Inc. 2019/04/03

'↓Qiitaから引用 https://qiita.com/dgw/items/55d939966537c32b93da
Dim WMI, OS, Value, Shell, wssh, fs, sh, ans
Dim path1, path2

do while WScript.Arguments.Count = 0 and WScript.Version >= 5.7
'##### WScript5.7 または Vista 以上かをチェック
Set WMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set OS = WMI.ExecQuery("SELECT *FROM Win32_OperatingSystem")
For Each Value in OS
if left(Value.Version, 3) < 6.0 then exit do
Next

'##### 管理者権限で実行
Set Shell = CreateObject("Shell.Application")
Shell.ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ uac", "", "runas"

WScript.Quit
loop

' --------------------- レジストリ登録
ans = Msgbox("新元号をレジストリに登録します。よろしいですか?", vbYesNo, "Modify Registry")
If ans = vbYes Then
'↑引用終了

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Const wKey = "HKLM\SYSTEM\CurrentControlSet\Control\Nls\Calendars\Japanese\Eras\"

WshShell.RegWrite wKey & "2019 05 01", "令和_令_Reiwa_R", "REG_SZ"
On Error Resume Next
If Err = 0 Then
MsgBox "新元号をレジストリに登録しました。", vbOkOnly, "新元号登録"
Else
MsgBox Err.Description, vbOkOnly, "新元号登録"
End If
Set WshShell = Nothing
WScript.Quit
End If