Código: Seleccionar todo

Private Function GetPC() As String
    Dim msg As String
    msg = ""
    Dim List, objWMIService As Object, colItems, objItem
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard", , 48)
    For Each objItem In colItems
        msg = objItem.Manufacturer
        msg = msg & " " & objItem.Product
    Next
    GetPC = msg
End Function

Private Function GetOS()
    Dim List, msg, object
    Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_OperatingSystem")
    If List.Count > 0 Then
        For Each object In List
            msg = msg & object.Caption
            msg = msg & " " & object.Version
            msg = msg & " [Build: " & object.buildnumber & "]"
        Next
    Else
        msg = ""
    End If
    GetOS = msg
End Function
         
Private Function GetMachineName()
    Dim List, msg, object
    Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_OperatingSystem")
    If List.Count > 0 Then
        For Each object In List
            msg = msg & object.CSName
        Next
    Else
        msg = ""
    End If
    GetMachineName = msg
End Function

Private Function GetRAM()
    Dim List, msg, object
    Dim RAM As Double
    Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_PhysicalMemory")
    If List.Count > 0 Then
        For Each object In List
            RAM = (RAM + object.Capacity)
        Next
    Else
        RAM = ""
    End If
    GetRAM = ((RAM / 1024) / 1024) & " MB"
End Function

Private Function GetProcessor()
    Dim List, msg, object
    Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
    If List.Count > 0 Then
        For Each object In List
            msg = msg & object.Name
        Next
    Else
        msg = ""
    End If
    GetProcessor = msg
End Function

Private Function GetTotalSpace()
    Dim List, object
    Dim total As Double
    Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_DiskPartition")
    If List.Count > 0 Then
        For Each object In List
            If object.Type = "Installable File System" Then
                total = total + (((object.Size / 1024) / 1024) / 1024)
            End If
        Next object
    Else
        total = 0
    End If
    GetTotalSpace = FormatNumber(total, 2) & " GB"
End Function

Private Function GetGPU()
    Dim List, msg, object
    Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_VideoController")
    If List.Count > 0 Then
        For Each object In List
            If LenB(object.VideoProcessor) > 0 Then
                msg = msg & object.Caption
            End If
        Next
    Else
        msg = ""
    End If
    GetGPU = msg
End Function