Feedback

VB - Betriebssystem ermitteln per WMI

Veröffentlicht von am 03.05.2011
(1 Bewertungen)
Ermittelt das Betriebssystem des angegebenen Rechners über WMI. Dieses wird als Text ausgegeben. Z.B.: "Microsoft 7 Professional N"
GFU-Schulungen  [Anzeige]

Visual Studio Team Foundation Server 2017/2015 (TFS) - Komplett 

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

Nach Teilnahme an dieser Schulung kennen Sie alle wesentlichen Funktionen des TFS für Entwickler. Sie setzen Software-Entwicklung mit dem Visual Studio Team Foundation Server erfolgreich um.

 Private Function getOs(ByVal Computer As String) As String

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

        getOs = Nothing

        objWMIService = GetObject("winmgmts:\\" & Computer & "\root\CIMV2")
        objItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
        For Each objItem In objItems
            getOs = objItem.Caption
        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!