No.2ベストアンサー
- 回答日時:
#1さんの、WindowsXPだと動いてくれません。
コマンドプロンプトが立ち上がって、
カーソルだけが点滅して永遠の待ち状態?になりました。
なぜか?は置いといて以下なら、7、XPとも動くはず。
(お望みの『シリアルナンバー』ではないかもしれん)
質問者さんへ
正解が降ってくるまで待っていてるのは、
質問者・回答者ともに時間の無駄です。
回答が期待した結果にならなかったら、
積極的に働きかけるようにした方が良いと思いますよ。
Sub b()
Dim oLocator As Object
Dim oService As Object
Dim oCol As Object
Dim prp As Object
Set oLocator = CreateObject("WbemScripting.SWbemLocator")
Set oService = oLocator.ConnectServer
Set oCol = oService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct")
For Each prp In oCol
ThisWorkbook.Sheets(1).Cells(1, 1) = "IdentifyingNumber"
ThisWorkbook.Sheets(1).Cells(2, 1) = prp.IdentifyingNumber
Next
Set oCol = Nothing: Set oService = Nothing: Set oLocator = notthing
End Sub
No.1
- 回答日時:
こんな感じでDOSコマンドの返り値を取得することができます。
Sub Sample()
Set WSH = CreateObject("WScript.Shell")
sCmd = "wmic csproduct get IdentifyingNumber"
Set wExec = WSH.Exec("%ComSpec% /c " & sCmd)
Do While wExec.Status = 0
DoEvents
Loop
sResult = wExec.StdOut.ReadAll
Range("A1") = sResult
Set wExec = Nothing
Set WSH = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 「Excelのオプション」の「ユーザーインターフェイスのオプション」の設定値をVBAで取得したい 1 2022/07/31 23:49
- Excel(エクセル) Excelのマクロで、特定のセルから順番に値を取得したい 5 2022/12/06 15:34
- Visual Basic(VBA) EXCEL VBAで NHK NEWSの NEWSデータ内容取得が できない 1 2023/04/09 12:26
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) エクセルVBA 2 2022/04/27 13:29
- その他(Microsoft Office) Excel、PowerPoint、Word中級レベル 3 2023/06/20 18:09
- Excel(エクセル) Excel vbaについて、知恵を下さい。 下表①で出勤が「あり」になっている対象者を隣のシートにあ 1 2022/10/20 18:58
- Visual Basic(VBA) VBAでPDFのアクティブページ番号取得 1 2023/05/25 12:41
- Excel(エクセル) Excel 表の作成について 3 2022/06/16 12:15
- Visual Basic(VBA) Selenium webbrowserで開いているwebサイトのタイトル取得 1 2022/11/02 14:50
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ps3で久しぶりにCDの音楽情報取...
-
Yahoo! JAPAN IDを新規取得でき...
-
バッチファイルでPCのモデル名...
-
ミュージックのアートワークを...
-
Access2000でプリンタドライバ...
-
【VBA】EXCELブックを開かずに...
-
Windows Media Player> CD情報...
-
URLからタイトルを取得したい!
-
アクセスの度にIPアドレスを変...
-
VBA web情報取得(スクレイピン...
-
perl LWPでURLにアクセスした時...
-
UWSCで現在開いているIEのサ...
-
積立投資してます。現在平均取...
-
URLのパラメータをGETのままで...
-
特別な四捨五入の計算方法について
-
DTOとEntityの差は何ですか。
-
エラーの理由が分りません。Pri...
-
アップロードしたファイル名に...
-
DBのハッシュ化したパスワード...
-
小数点以下0の非表示
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「取得先」という表現について
-
Yahoo! JAPAN IDを新規取得でき...
-
ps3で久しぶりにCDの音楽情報取...
-
IPアドレスとMACアドレスを取得...
-
format関数について
-
Excel VBA:特定の文字列以降(...
-
【VBA】EXCELブックを開かずに...
-
EXCEL、マクロ-改ページ行番号...
-
ローカルのコンピュータ名を取...
-
【C#】FindWindowExの使い方を...
-
VBAでPDFのアクティブページ番...
-
ミュージックのアートワークを...
-
VBS「開いているページ」のURL...
-
VB or VBScriptでPCの製造番号...
-
VBAでPDFファイルの文書のプロ...
-
表示している画面サイズの取得方法
-
積立投資してます。現在平均取...
-
アクセスの度にIPアドレスを変...
-
各クライアントマシンのログイ...
-
VB.NETでボリュームを取得・設...
おすすめ情報