FURUやんのScript忘備録

自分で作ったり調べたり踊ったりしてカスタマイズしたりどこかから引用したりしたScriptや手順の忘備録です  このサイトに掲載のスクリプト・手順など全ての情報については、一切の保証とサポートが無いものとしてご利用下さい。PCの不具合、動作、データの破損などについて責任を負うことはできません。あくまでも自己責任となります。

和暦を警告してくれるバッチ

@ECHO OFF
SET MYDATE=%DATE:~-6,1%
SET MYDATE2=%DATE:~-10,4%
SET MYDATE3=%DATE:~1,1%

IF %MYDATE3%==和 GOTO WARKI
IF %MYDATE3%==成 GOTO WARKI
IF %MYDATE2% GTR 999 GOTO SEIREKI4
IF %MYDATE%==/ GOTO SEIREKI2
echo 西暦(英語)ほか
echo msgbox "システム日付が異常です 西暦4桁に変更して下さい " + vbCr + "「日付と時刻の変更」→「カレンダーの設定の変更」→" + vbCr + "「追加の設定」→「日付」タブ→カレンダの種類を「西暦(日本語)」" + vbCr + "データ形式を「yyyy/MM/dd」にしてください",vbOKOnly + vbCritical , "システム日付が和暦です" > %TEMP%/msgboxtest.vbs & %TEMP%/msgboxtest.vbs
cmd /k

:SEIREKI4
echo 西暦日本語4桁
cmd /k

:SEIREKI2
echo 西暦日本語2桁
echo msgbox "システム日付が異常です 西暦4桁に変更して下さい " + vbCr + "「日付と時刻の変更」→「カレンダーの設定の変更」→" + vbCr + "「追加の設定」→「日付」タブ→カレンダの種類を「西暦(日本語)」" + vbCr + "データ形式を「yyyy/MM/dd」にしてください",vbOKOnly + vbCritical , "システム日付が和暦です" > %TEMP%/msgboxtest.vbs & %TEMP%/msgboxtest.vbs
cmd /k

:WARKI
echo 和暦
control DATE/TIME
echo msgbox "システム日付が異常です 西暦4桁に変更して下さい " + vbCr + "「日付と時刻の変更」→「カレンダーの設定の変更」→" + vbCr + "「追加の設定」→「日付」タブ→カレンダの種類を「西暦(日本語)」" + vbCr + "データ形式を「yyyy/MM/dd」にしてください",vbOKOnly + vbCritical , "システム日付が和暦です" > %TEMP%/msgboxtest.vbs & %TEMP%/msgboxtest.vbs
cmd /k

 

このサイトに掲載のスクリプト・手順など全ての情報については、一切の保証が無いものとしてご利用下さい。PCの不具合、動作、データの破損などについて責任を負うことはできません。あくまでも自己責任となります。