|
一応、『コンピューターの説明』について
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
|
|