|
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
|
|