Const wbemFlagReturnImmediately = &H10
Const wbemFlagForwardOnly = &H20
 
Private Sub Form_Load()
    MsgBox WMIdata("root\CIMV2", "Win32_ComputerSystem", "Caption")
End Sub
 
Public Function WMIdata(WMInamespace As String, WMIclass As String, WMIvalue _
  As String) As String
    Dim strComputer As String
    Dim strSQL As String
 
    strComputer = "."
 
    strSQL = "SELECT * FROM " & WMIclass
 
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\" & _
      WMInamespace)
    Set colitems = objWMIService.ExecQuery(strSQL, "WQL", _
    wbemFlagReturnImmediately + wbemFlagForwardOnly)
 
    For Each objitem In colitems
        WMIdata = objitem.WMIvalue
    Next
 
End Function