vbscriptでNUMLOCK判定したい

解決済

気になる
0
件

質問者：kogeru_006
質問日時：2010/08/26 15:58
回答数：1件

vbscriptでNUMLOCK判定したい

お世話になります。
こちら（http://support.microsoft.com/kb/314879/ja）を参考にNUMLOCKキーを操作することは出来たのですが、現在のNUMLOCKの状態を知るにはどうしたらよいのでしょうか？

よろしくお願いいたします。

以下vbs記述内容
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{NUMLOCK}"

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： temtecomai2
回答日時：2010/08/28 01:00

なぜそんなことをする必要があるのでしょうか？

その理由を解決できませんかね。
キーボードにチラッと視線を落としてランプを見るだけで済むんですけどね。
または質問文にあるコードをログオンスクリプトで実行するとか、レジストリの設定を変更するって手もある。（Num Lock の設定はユーザー毎の設定）

で状態確認ですが、実際のところ VBScript では無理です。
Word の VBA では状態確認ができるようです。
なので Scripting GUI では VBScript から Word を一瞬だけ起動させて確認する方法を紹介しています。
http://www.microsoft.com/japan/technet/scriptcen …

この回答への補足

回答ありがとうございます！

>なぜそんなことをする必要があるのでしょうか？
自分のパソコンではなく、
パソコンに慣れていない大勢の方が触るものがあるので、
起動時にNumlockが入っていた方が親切かなと思いまして。

>または質問文にあるコードをログオンスクリプトで実行するとか
そのパソコンはログoff時の設定を引き継ぐ
（numoffしてログオフするとnumoffして起動逆も然り）ので、
無条件にnumlockキーをsendしてもうまくいかず、、、

＞レジストリの設定を変更する
こちらも試してみたのですが、言うことを聞いてくれず。。。
スタートアップにvbscriptでどうだ？！と思った次第です☆
（ちなみに試した色々はhttp://oshiete.goo.ne.jp/qa/6134978.htmlに掲載しています。
　質問内容がvbscriptに移行したので、別に質問させていただきました。）

補足日時：2010/08/28 09:58

通報する

- 0
- 件

通報する

この回答へのお礼

そしておかげさまで思ったとおりの動きが出来ました！
本当にありがとうございます！

--以下記述内容--
DIM NumOnBL
Set objWord = CreateObject("Word.Application")
NumOnBL= objWord.NumLock
objWord.Quit
set WshShell = CreateObject("WScript.Shell")
IF NumOnBL=FALSE THEN WshShell.SendKeys "{NUMLOCK}"

通報する

お礼日時：2010/08/28 09:59

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

質問する（無料）