Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

27327 / 76738

←次へ　｜　前へ→


	【54734】Re:コンピューターの説明

ひらめくん - 08/3/28(金) 0:41 -


	引用なし

	パスワード

これならどうですか？
Excelファイル開いてAlt+F11でVBEの標準モジュールに貼り付けて、実行！

Sub win32compsys2()
Dim strComputer: Dim objWMIService
Dim colItems: Dim objItem
Dim msg As Variant
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem", , 48)
For Each objItem In colItems
　　msg = msg & Chr(10) & "Domain: " & objItem.Domain
　　msg = msg & Chr(10) & "Caption: " & objItem.Caption
　　msg = msg & Chr(10) & "NameFormat: " & objItem.NameFormat
　　msg = msg & Chr(10) & "Name: " & objItem.Name
　　msg = msg & Chr(10) & "UserName: " & objItem.USERNAME
　　msg = msg & Chr(10) & "PrimaryOwnerName: " & objItem.PrimaryOwnerName
　　msg = msg & Chr(10) & "Description: " & objItem.Description
　　msg = msg & Chr(10) & "Manufacturer: " & objItem.Manufacturer
　　msg = msg & Chr(10) & "Model: " & objItem.Model
　　msg = msg & Chr(10) & "SystemType: " & objItem.SystemType
Next
MsgBox msg
End Sub

1 hits

▼

【54624】コンピューターの説明 たいくん 08/3/24(月) 22:44