Excel VBA で スクリーンセーバーによるパスワード保護の有効を確認する

Question

EXCEL VBA を使用して、スクリーンセーバーによるパスワード保護が有効になっているか？
確認することは可能でしょうか？

vbs では、Win32_Desktop クラスを使用することはわかったのですが、
Excel VBA でできないか検討しております。

目的としましては、excel 申請書にて 1クリックで
各自のパソコン使用状況を確認し問題なければ ファイルを情報とともに
メールで送信していただくようにしたい次第です。

手間なのですが、Excel VBA にこだわらなければいけない状況下です。

わかる方、お助けいただけたら助かります。

以上、よろしくお願いします。

Answer 1

試してはいないのですが、VB6で記述されたコードが有りました。
Excel VBAもVB6もほぼ同じなので使えるかもしれません。

スクリーンセーバーによるパスワード保護の有効を確認する

Comments

[Yamato-Suzuki]

ご回答ありがとうございます。
Excel VBA が不慣れな自分がいけないのでしょうか？

Dim DskSet As SWbemObjectSet　にて
コンパイルエラー：ユーザ定義型は定義されていません。
が発生します。
参照設定など実施すべきことがわかりましたら助かります。

[Yamato-Suzuki]

自己解決できました。ありがとうございます。
Microsoft WMI Scripting V1.1 Library
を使用すればよかったのですね。助かりました。