今朝は、朝から頭痛が痛い。どーもボキです。

レジストリを書き換えて、メモ帳のフォントを「ＭＳ ゴシック」「9pt」「装飾なし」に書き換えるスクリプト。
プロポーショナルフォントを使うやつぁ、わしゃSEとして認めんけぇの。

key  = "HKCU\Software\Microsoft\Notepad\"
font = "ＭＳ ゴシック"
Set objWS = CreateObject("WScript.Shell")
r = objWS.RegWrite(key & "lfFaceName",  font, "REG_SZ")     ' フォント
r = objWS.RegWrite(key & "lfItalic",    0,    "REG_DWORD")  ' イタリック  0/1
r = objWS.RegWrite(key & "lfWeight",    400,  "REG_DWORD")  ' ボールド    400/700
r = objWS.RegWrite(key & "lfStrikeOut", 0,    "REG_DWORD")  ' 取り消し線  0/1
r = objWS.RegWrite(key & "lfUnderline", 0,    "REG_DWORD")  ' 下線        0/1
r = objWS.RegWrite(key & "iPointSize",  90,   "REG_DWORD")  ' 9pt×10

---