Feedback

VB - Betriebssystemarchitektur ermitteln per WMI

Veröffentlicht von am 03.05.2011
(0 Bewertungen)
Ermittelt, ob es sich um ein 32 oder ein 64 Bit OS handelt
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.

VB.NET 2017/2015/2013 Komplett

Ziel des Seminars ist der flexible Umgang mit VB.NET, wie z.B. die damit verbundene eigenständige Entwicklung von Programmen oder das Verwenden von Datenbanken.

 Private Function getOsArchitecture(ByVal Computer As String) As String

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

        GetOsArchitecture = ""
        objWMIService = GetObject("winmgmts:\\" & Computer & "\root\CIMV2")
        objItems = objWMIService.ExecQuery( _
            "SELECT * FROM Win32_OperatingSystem")
        For Each objItem In objItems
            getOsArchitecture = objItem.OSArchitecture
        Next

        objWMIService = Nothing
        objItems = Nothing
        objItem = Nothing

    End Function
Abgelegt unter WMI, OS, Betriebssystem, Remote.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!