Word
sendkeys
Numlock
CapsLock

NumLock キーがオンとオフのどちらになっているかを確認する方法はありますか

More than 1 year has passed since last update.

End If 追加については対応しました。ご指摘ありがとうございます。
削るしかできないみたいですが、謝意を示すべくこのままにしておきます。

NumLock キーがオンとオフのどちらになっているかを確認する方法はありますか
https://gallery.technet.microsoft.com/scriptcenter/e33ebf60-f07b-4aa4-8b0e-58ef0e368d48
というのは以前、
http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/aug06/hey0810.mspx
で紹介されていた内容でした。いくつかの質問でリンクされているのですが、デッドリンクになっていました。

次のスクリプトでは、リモート コンピュータ atl-fs-01 の NumLock キーの状態を確認します。
Visual Basic:IsRemotePCNumLock.vb
Set objWord = CreateObject("Word.Application", "atl-fs-01")
Wscript.Echo "NumLock key is on: " & objWord.NumLock
objWord.Quit

基本的にこれはVBSCriptで動きます。
Visual Basic:IsPCNumLock.vb
Set objWord = CreateObject("Word.Application")
Wscript.Echo "CapsLock key is on: " & objWord.CapsLock
objWord.Quit

これはCapsLockもできます。
そこで、Vbscriptでつねにテンキーが起動するようにしてみましょう。
VBScritp:On_NumLock.vbs
Set objWord = CreateObject("Word.Application")
'msgbox "CapsLock key is on: " & objWord.NumLock
if objWord.Numlock=False then
Set objShell = Wscript.CreateObject("WScript.Shell")
objShell.SendKeys "{NUMLOCK}"
End If
objWord.Quit
set objword = Nothing
set objShell = Nothing

ついでにテンキーオフも
VBScritp:OFFNumLock.vbs
Set objWord = CreateObject("Word.Application")
'msgbox "CapsLock key is on: " & objWord.NumLock
if objWord.Numlock=True then
Set objShell = Wscript.CreateObject("WScript.Shell")
objShell.SendKeys "{NUMLOCK}"
End If
objWord.Quit
set objword = Nothing
set objShell = Nothing

ついでにCapsもOnOFFしてみましょうか

On_NumLock.vbs
Set objWord = CreateObject("Word.Application") 
'msgbox "NumLock key is on: " & objWord.NumLock 
if objWord.Numlock=False then
Set objShell = Wscript.CreateObject("WScript.Shell") 
objShell.SendKeys "{NUMLOCK}"
End If
objWord.Quit
set objword = Nothing
set objShell = Nothing

ついでにCapsのオフも
VBScritp:On_CapLock.vbs
Set objWord = CreateObject("Word.Application")
'msgbox "CapsLock key is on: " & objWord.CapsLock
if objWord.CapsLock=False then
Set objShell = Wscript.CreateObject("WScript.Shell")
objShell.SendKeys "{CAPSLOCK}"
End If
objWord.Quit
set objword = Nothing
set objShell = Nothing

VBScritp:OFFCapLock.vbs
Set objWord = CreateObject("Word.Application")
'msgbox "CapsLock key is on: " & objWord.CapsLock
if objWord.CapsLock=True then
Set objShell = Wscript.CreateObject("WScript.Shell")
objShell.SendKeys "{CAPSLOCK}"
End If
objWord.Quit
set objword = Nothing
set objShell = Nothing

参考vbscriptでNUMLOCK判定したい