Mainboardbezeichnung mit WMI und VB-Script online auslesen

[Vinzenz Mai]

Hallo Stefan,

Ich Suche eine Möglichkeit wie über ActiveX / Java oder ähnliches die Bezeichnung des Mainboards und der Hersteller ausgelesen werden kann.

mit WMI ist das prinzipiell möglich, ich habe meine Testseite deswegen um dieses Feature erweitert.

Bitte beachte: VB-Script, daher nur IE
Du musst verdammt viel erlauben :-)

public Function getBoardName()
    Dim sysinfo, strComputername, colItems, objItem
    Const wbemFlagReturnImmediately = &h10
    Const wbemFlagForwardOnly = &h20

On Error Resume Next

' Uns interessiert nur der Name des Rechners, auf dem das Skript läuft
    ' Prinzipiell könntest Du hier eine Liste der NetBIOS-Namen aller
    ' Deiner Windows-Maschinen im lokalen Netzwerk abarbeiten
    strComputername = "."
    Set sysinfo = GetObject("winmgmts:\" & strComputername & "\root\cimv2")
    ' Auf Fehlschlag des Aufrufs prüfen:
    If Err.Number > 0 then
        ' Fehler aufgetreten: Fehlercode und -beschreibung zurückgeben
        getBoardName = "Fehler: " & Err.Number & ": " & Err.Description
        Exit Function
    End If

Set colItems = sysinfo.ExecQuery("SELECT * FROM Win32_BaseBoard", "WQL", _
        wbemFlagReturnImmediately + wbemFlagForwardOnly)
    For Each objItem in colItems
        ' Natürlich erwarten wir nur ein Mainboard :-)
        If Len(getBoardName) > 0 Then
            getBoardName = getBoardName & chr(10) & chr(13)
        End If
        getBoardName = getBoardName & _
            "Hersteller: " & objItem.Manufacturer & chr(10) & chr(13) & _
            "Bezeichnung: " & objItem.Product
    Next
End Function

Ich gehe auf eine webseite, und die Zeigt mir dann an sie haben ein Asus A7V8X.

Für WMI-Scripting kann ich Dir Scriptomatic 2.0 empfehlen; einen Artikel zu diesem Werkzeug gab es in der c't-Ausgabe 24/2006.

Freundliche Grüße

Vinzenz