Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10418 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【21961】システム情報取得について miyake 05/2/4(金) 19:44 質問[未読]
【21967】Re:システム情報取得について miyake 05/2/4(金) 23:02 質問[未読]
【21970】Re:システム情報取得について ちゃっぴ 05/2/5(土) 7:36 回答[未読]
【21972】Re:システム情報取得について miyake 05/2/5(土) 14:48 質問[未読]
【21973】Re:システム情報取得について ちゃっぴ 05/2/5(土) 15:19 回答[未読]
【21961】システム情報取得について
質問  miyake  - 05/2/4(金) 19:44 -
引用なし
パスワード
   いつもお世話になっております。

エクセルの使用者情報の取得として、
application.username
がありますが、その他に、CPUID、OSの種別・バージョン、パソコン使用者名、WINDOWSの登録番号（シリアル番号）を取得する記述を教えてください。
【21967】Re:システム情報取得について
質問  miyake  - 05/2/4(金) 23:02 -
引用なし
パスワード
   すいません。説明不足でした。
vbaのコードの中でシステム情報を取得したいのです。
コードで書く場合、どのように書いたらいいのでしょうか。
【21970】Re:システム情報取得について
回答  ちゃっぴ  - 05/2/5(土) 7:36 -
引用なし
パスワード
   >vbaのコードの中でシステム情報を取得したいのです。
>コードで書く場合、どのように書いたらいいのでしょうか。

いろいろ情報を取得したいようですね。
ということであれば、WMIを使用してやるのが簡単でしょう。

Scriptomatic ツール
http://www.microsoft.com/japan/technet/scriptcenter/tools/wmimatic.mspx

このToolをDownLoadして、自動取得されるSourceが参考になるでしょう。

たとえば、OSの情報なら「Win32_OpelatingSystem」
CPUの情報なら「Win32_Processor」という風にしてすればいい訳です。
【21972】Re:システム情報取得について
質問  miyake  - 05/2/5(土) 14:48 -
引用なし
パスワード
   ▼ちゃっぴ さん：
ありがとうございます。
ダウンロードしてみました。このツールで作成されるコードをＶＢＡに貼り付ければいいのでしょうか。
ちなみに、ＶＢＡでエクセルのシリアル番号を取得する方法はありますか。
【21973】Re:システム情報取得について
回答  ちゃっぴ  - 05/2/5(土) 15:19 -
引用なし
パスワード
   > ダウンロードしてみました。このツールで作成されるコードを
> ＶＢＡに貼り付ければいいのでしょうか。

やってみればわかりますけど、作成されるCodeはVBScriptで
書かれていますので、VBA用にちょこっと変更してやる必要があります。

> ちなみに、ＶＢＡでエクセルのシリアル番号を取得する方法はありますか。

Registryを調べることになりそうですね。

[HKLM\SOFTWARE\Microsoft\Office\<Version>\Registration\<ClassID>]
のREG_SZ値ProductIDを調べてやればいいでしょう。

<Version>: 2003 11.0, 2002 10.0, 2000 9.0
<ClassID>: ClassIDがどのApplicationに対応するかは下記でお調べください。
[HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\UnInstall\<ClassID>]
DisplayNameを調べればいいでしょう。

Registry値の取得方法は、過去Logを検索してみてください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10418 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free