Ergebnis 1 bis 9 von 9

Hybrid-Darstellung

  1. #1
    Transpinguin Avatar von IRET
    Registriert seit
    02.09.2008
    Beiträge
    1.295

    Standard

    Den Win32_VideoController austauschen
    Bei
    Dim Devices As Object = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_VideoController")

  2. #2
    NoClose Wurm
    Registriert seit
    11.07.2008
    Beiträge
    173

    Standard

    Okay, das wusste ich

    Und wenn ich jetzt zum Beispiel das Prozessor und den Vidoe COntroller haben will?

    Also zwei (oder mehrere ausgaben)

    Nicht nur Grafikkarte sondern Grafikkart und Prozessor (win32_prozessor)

    Das weiß ich nicht genau

  3. #3
    Richard Stallman Avatar von Sawyer
    Registriert seit
    26.07.2008
    Beiträge
    2.037

    Standard

    Einfach die Funktion anpassen , und die gewünschte Hardware Info als Parameter übergeben und sich den wert zurück liefern lassen.

    Funktion:
    Code:
        Private Function Hardware(ByVal Hardw As String) As String
    
            Dim Devices As Object = GetObject("winmgmts:").ExecQuery(Hardw)
    
            Dim HardwareName As String
    
            For Each AdaptList In Devices
                HardwareName = AdaptList.Description
            Next
    
            Return HardwareName
    
        End Function

    Aufruf:

    Code:
    MsgBox(Hardware("SELECT * FROM Win32_VideoController"))
    MsgBox(Hardware("SELECT * FROM Win32_Processor"))
    MfG
    Geändert von Sawyer (29.08.2009 um 22:31 Uhr)

  4. #4
    NoClose Wurm
    Registriert seit
    11.07.2008
    Beiträge
    173

    Standard

    Oh Perfekt Jetzt klappt alles einwandfrei


    Vielen Dank für deine Hilfe!

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •