Excel VBA質問箱 IV

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

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


27374 / 76732 ←次へ | 前へ→

【54680】Re:コンピューターの説明
お礼  たいくん  - 08/3/26(水) 1:11 -

引用なし
パスワード
   nさん

回答有り難う御座います。

取得したいのは、Application.UserNameで取得出来るデーターではなくシステムのプロパティのコンピューターの説明部分に記載されているデーターを取得したいのです。説明が不十分で申し訳有りません。

参考のページ見ましたが、やはり初心者の私には難しい様です。
一応マクロを走らせて見ましたが、コンパイルエラー ユーザー定義型は定義されていません。とエラーが出ます。
当方の環境では動作しないのでしょうか?
ちなみにOSはXPと2000、エクセルは97と2000です。

Private Sub Command1_Click()

Dim OsSet As SWbemObjectSet←ここでエラーがでます。
Dim Os As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim Ret As String

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set OsSet = Service.ExecQuery("Select * From Win32_OperatingSystem")

For Each Os In OsSet

  Ret = "コンピュータ名:" & Os.CSName & vbCrLf & _
    "コンピュータの説明:" & Os.Description

Next

MsgBox "コンピュータ名と説明です。 " & vbCrLf & vbCrLf & Ret

Set OsSet = Nothing
Set Os = Nothing
Set Service = Nothing
Set Locator = 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 お礼

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