---

Hallo,

hat schonmal jemand sämtliche HardwareInformationen eines Rechners zusammengesammelt? Ich denke daran den GeräteManager auszulesen, aber nur wie ... vielleicht hat ja jemand eine Idee? Bin schon über WinManagements gestolpert, damit soll es wohl gehen.

Vielleicht könnt Ihr mir weiterhelfen.

Viele Grüsse und ein schönes Wochenende TP

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi TP,

Autor: Tobias Weltner
Titel: Windows-Verwaltung mit WMI
Herausgeber: Microsoft Press
ISBN: 3-86063-598-0
Preis: € 34,90

Selbst gelesen viel gelernt. Mit Hilfe von WMI (Windows Management Instrumentation) kannst du nicht nur die Hardware und Systemeinstellungen sondern auch alle laufenden Programme und Dienste eines anderen Rechners auslesen, Treiber installieren, Konten einrichten usw. usf. Ein mächtiges Werkzeug!

Du solltest dir zusätzlich mal Windows Scripting zu Gemüte führen. Das ist bei der Verwendung von WMI die geeignete Programmieroberfläche.

------------------
Gruß
Nepumuk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Nepumuk,

vielen Dank ... hab am Wochenende nen bissle damit rumgebastelt .. bin sehr beeindruckt, aber das Buch werd ich mir wohl eher nicht kaufen.
Was ich nicht wusste und was von sehr grossem Vorteil ist, dass man mit WMI über das Netzwerk die Infos von den anderen Rechnern im NW auslesen kann. Das macht die Sache erst richtig interessant.
Werd bei Gelegenheit mal Code zur Verfügung stellen. Aber nicht unter WSH .. es soll als VB oder VB.Net laufen, mit der Option es als exe bauen zu können .. die User müssen ja nicht alles wissen ..   .. trotzdem vielen Dank

Gruss TP

------------------

[Diese Nachricht wurde von BloodyMess am 24. Apr. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wen es interessiert kann sich ja den Code mal anschauen ...

Code:

---

Sub tester()

    Dim strSQL As String
    Dim strWMI As String
    Dim itm As Object
    Dim i As Integer
   
    Dim fso As New FileSystemObject
    Dim txtFile As TextStream
   
    Set txtFile = fso.OpenTextFile("c:\ausgabe_hardware.txt", ForWriting, True, TristateUseDefault)

    Dim oWMI As Object
    Dim objItem As Object
    Dim iZaehler As Integer

    strSQL = "Select * from CIM_LogicalDevice"
    strWMI = "winmgmts:\\localhost\root\cimv2"

    Set oWMI = GetObject(strWMI).ExecQuery(strSQL)

    '  Alle zurückgegebenen Objekte durchlaufen
    For Each objItem In oWMI
        For Each itm In objItem.Properties_
            iZaehler = 0
           
            If Not IsArray(itm.Value) Then
                txtFile.WriteLine itm.Name & vbTab & vbTab & itm.Value
            Else
                If Not IsEmpty(itm.Value(iZaehler)) Then
                    txtFile.WriteLine itm.Name & vbTab & vbTab & itm.Value(iZaehler)
                End If
            End If
       
        Next
    Next
   
    txtFile.Close
end sub

---

Es gibt noch mehr Tabellen und noch mehr Informationen .. genaueres findet man dann im jeweiligen 'CreationClassName' einfach eine Abfrage darauf machen und dann o_O.

Viel Spass und Gruss TP

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP