Feedback

VB - Modelltyp des Rechners per WMI ermitteln

Veröffentlicht von am 03.05.2011
(0 Bewertungen)
Ermittelt die Typbezeichnung eines Rechners
GFU-Schulungen  [Anzeige]

VB.NET 2017/2015/2013 Einführung

Das Seminar befähigt Sie zur eigenständigen Entwicklung von anwenderorientierten Programmen in VB.NET, worin auch der Einsatz von Datenbanken enthalten ist.

C# 2017/2015/2013 Aufbau

In dieser Schulung lernen Sie fortgeschrittene Techniken im Bereich .Net C#. Dabei stehen neben den eigentlichen Techniken auch architektonische Aspekte im Mittelpunkt.

Private Function GetModelType(ByVal Computer As String) As String

        Dim objWMIService As Object
        Dim objItems As Object
        Dim objItem As Object

        GetModelType = ""

        objWMIService = GetObject("winmgmts:\\" & Computer & "\root\CIMV2")
        objItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
        For Each objItem In objItems
            GetModelType = objItem.Model()
        Next

        objWMIService = Nothing
        objItems = Nothing
        objItem = Nothing

    End Function
Abgelegt unter WMI, System, Remote.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!