Ｐａｇｅ 337 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼PCのシリアルNO取得方法 ロイ 02/11/12(火) 10:36 ┗Re:PCのシリアルNO取得方法 JuJu 02/11/12(火) 17:57 ┗Re:PCのシリアルNO取得方法 ロイ 02/11/12(火) 23:17 ┗Re:PCのシリアルNO取得方法 JuJu 02/11/13(水) 9:20 ┗Re:PCのシリアルNO取得方法 NH 02/11/13(水) 18:14 ┗GetComputerName JuJu 02/11/14(木) 1:48 ┗Re:GetComputerName ichinose 02/11/14(木) 7:32 ┗Re:GetComputerName NH 02/11/14(木) 8:06 ─────────────────────────────────────── ■題名 ： PCのシリアルNO取得方法 ■名前 ： ロイ ■日付 ： 02/11/12(火) 10:36 -------------------------------------------------------------------------
| はじめまして。 初めて投稿します。 パソコンのシリアルナンバーをVBAやVBのAPI関数等で取得する方法をご存知の方、ご教授願います。 |
| ロイさん、こんにちはぁ >パソコンのシリアルナンバーをVBAやVBのAPI関数等で取得する方法をご存知の方、ご教授願います。 パソコンのシリアルナンバーですか？保証書に書いている。 多分無理です。メーカによって可能なものもあるのかもしれませんが、ほとんどが無理だと思って良いと思います。 ＯＳのプロダクトキーはソフトで読むこともできましたが、最近のＯＳはできなくしていたと思います。 ではではぁ |
| そうですか。 やはり無理なんですね。 色々調べてみたのですが、どうしても見つからなかったので質問してみました。 でも、メーカーが作っているクライアント一元管理ソフトではシリアルNOを取得しているんですよね。 あれはどうやっているのだろうか・・・ |
| ロイさん、こんにちはぁ >そうですか。 >やはり無理なんですね。 メーカが方法を公開してくれているといいんですけどね。 その場合も、メーカ毎に方法が違ったら面倒そうですね。 お役に立てないでごめんなさい。 |
| ▼JuJu さん： >ロイさん、こんにちはぁ > >>そうですか。 >>やはり無理なんですね。 > >メーカが方法を公開してくれているといいんですけどね。 >その場合も、メーカ毎に方法が違ったら面倒そうですね。 > >お役に立てないでごめんなさい。 横からしゃしゃり出てすいません、関連しての事なんですが、ＰＣ名を 得ることって出来ませんでしたっけ？確かAPIを使って云々だったと思う のですが、ご存知の方、一つ教えて下さいm(__)m。 |
| NHさん、こんにちはぁ >横からしゃしゃり出てすいません、関連しての事なんですが、ＰＣ名を >得ることって出来ませんでしたっけ？確かAPIを使って云々だったと思う >のですが、ご存知の方、一つ教えて下さいm(__)m。 GetComputerNameというAPIを使用します。 (AccessはAPIなしでも取得できたような...ExcelがAPIかな) ガリバーさん(http://vbvbvb.com/jp/)のとこにサンプルがありました。 http://vbvbvb.com/jp/gtips/0501/gGetComputerName.html ではではぁ |
| ▼JuJu さん： NHさん、おはようございます。 > >>横からしゃしゃり出てすいません、関連しての事なんですが、ＰＣ名を >>得ることって出来ませんでしたっけ？確かAPIを使って云々だったと思う >>のですが、ご存知の方、一つ教えて下さいm(__)m。 > >GetComputerNameというAPIを使用します。 >(AccessはAPIなしでも取得できたような...ExcelがAPIかな) > >ガリバーさん(http://vbvbvb.com/jp/)のとこにサンプルがありました。 >http://vbvbvb.com/jp/gtips/0501/gGetComputerName.html ＡＰＩ使わない方法です。 '=========================================== Sub test3() Dim obj Set obj = CreateObject("WScript.Network") With obj MsgBox .computername MsgBox .userdomain MsgBox .UserName End With End Sub 詳しくは､こちらで・・・。 http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/wsprocomputername.asp |
| JuJu さん,ichinose さん 解説どうも有り難うございました。皆さんの詳細な 説明が本当に役に立っています。これからもよろしくお願いしますm(__)m。 |