Excel VBA質問箱 IV

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

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


27409 / 76732 ←次へ | 前へ→

【54642】Re:コンピューターの説明
回答  n  - 08/3/25(火) 11:28 -

引用なし
パスワード
   一応、『コンピューターの説明』について
WMI(Windows Management Instrumentation)が利用できる環境なら
://www.wmifun.net/
こちらを参考に。

Sub try()
  Dim Loc As Object 'SWbemLocator
  Dim Svc As Object 'SWbemObjectSet
  Dim sv As Object

  On Error GoTo errHndr
  Set Loc = CreateObject("WbemScripting.SWbemLocator")
  Set Svc = Loc.ConnectServer.ExecQuery("Select * From Win32_OperatingSystem")
  For Each sv In Svc
    Debug.Print sv.CSName, sv.Description
  Next
errHndr:
  If Err.Number <> 0 Then Debug.Print Err.Number, Err.Description
  Set sv = Nothing
  Set Svc = Nothing
  Set Loc = Nothing
End Sub

0 hits

【54624】コンピューターの説明 たいくん 08/3/24(月) 22:44 質問
【54626】Re:コンピューターの説明 n 08/3/24(月) 23:48 発言
【54642】Re:コンピューターの説明 n 08/3/25(火) 11:28 回答
【54680】Re:コンピューターの説明 たいくん 08/3/26(水) 1:11 お礼
【54681】Re:コンピューターの説明 n 08/3/26(水) 1:33 発言
【54687】Re:コンピューターの説明 n 08/3/26(水) 11:26 発言
【54732】Re:コンピューターの説明 ひらめくん 08/3/27(木) 22:18 質問
【54734】Re:コンピューターの説明 ひらめくん 08/3/28(金) 0:41 発言
【54634】Re:コンピューターの説明 VBWASURETA 08/3/25(火) 10:20 発言
【54679】Re:コンピューターの説明 たいくん 08/3/26(水) 0:50 お礼

27409 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free