投稿日	： 2006/09/26(Tue) 20:05
投稿者	： だい
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: VBで機種名を取得したい

WMIでよろしければ、Win32_ComputerSystemクラスのModelプロパティで
'元ネタは、
'http://www.microsoft.com/japan/technet/scriptcenter/scripts/misc/wmi/mswmvb17.mspx
'WSHからの即席移植ですので汚いですが、

Function getWin32_ComputerSystem()
Dim objWMIService  As Object
Dim colSettings  As Object
Dim objComputer As Object
Dim strComputer As String

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    
    Set colSettings = objWMIService.ExecQuery _
        ("Select * from Win32_ComputerSystem")
    For Each objComputer In colSettings
        Debug.Print "System Name: " & objComputer.Name
        Debug.Print "System Manufacturer: " & objComputer.Manufacturer
        Debug.Print "System Model: " & objComputer.Model
        Debug.Print "Time Zone: " & objComputer.CurrentTimeZone
        Debug.Print "Total Physical Memory: " & _
            objComputer.TotalPhysicalMemory
    Next

End Function

★ - VBで機種名を取得したい - ともさん 09/26-17:12No.7340
• Re: VBで機種名を取得したい - だい 09/26-20:05 No.7342
  • Re^2: VBで機種名を取得したい - ともさん 09/27-15:08 No.7360
    • Re^3: VBで機種名を取得したい - 花ちゃん 09/27-16:04 No.7363
    • Re^3: VBで機種名を取得したい - あやめ 09/29-11:19 No.7381
      • Re^4: VBで機種名を取得したい - 花ちゃん 09/29-15:22 No.7390