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]

Visual Studio Team Foundation Server 2017/2015 (TFS) für Administratoren - Kompakt

Nach dieser Schulung beherrschen Sie die Grundlagen des TFS. Sie erledigen administrative Aufgaben schnell und sicher.

ASP.NET Core - Der Einstieg

In nur 3 Tagen lernen Sie, wie man mit ASP.NET Core und den Technologien MVC, Entity Framework, WebAPI und Razor professionelle Web-Anwendungs-Architekturen aufbaut. Diese Schulung ist der perfekte Einstieg, um datengetriebene und präsentations-orientierte Applikationen auf Basis der ASP.NET Core Plattform zu erstellen.

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!