Hallo.

Ich habe hier eine echt geniale Unit zum Auslesen von einem Hardware-Hash gefunden: http://www.techblog.tomksoft.com/pro...generator.html .

Es funktioniert alles korrekt, aber mir ist bei meinem Notebook aufgefallen, dass die Prüfung ungewöhnlich lange dauert.

Nach etwas Debugging habe ich herausgefunden, dass MagWmiGetDiskSerial() beim zweiten Durchlauf (= 2. physikalisches Laufwerk) schuld ist. Nun, das Notebook hat aber nur 1 Festplatte, was bedeutet, MagWmiGetDiskSerial(1) sollte eigentlich gar nicht existieren.

Aber: MagWmiGetDiskSerial(1) scheint versuchen, mein MultiCard-Gerät auszulesen, in welchem aber keine Karte drinsteckt. Deswegen dauert diese WMI Abfrage fast über 10 Sekunden.

Was kann ich dagegen tun? Kann/Soll ich das MultiCard-Gerät von der Prüfung ausschließen oder einen Timeout setzen? Ist es legitim, dass Windows ein MultiCard als Festplatte erkennt? (Anmerkung: Ich bin immer noch auf dem Stand von PCMCIA und habe keinerlei Ahnung von Multicards, deswegen ist das für mich auch irgendwie neu. Bei meinem Notebook war als Multicard lediglich eine DVB-T TV-Karte dabei, mit der ich aber wegen des Empfangs eh nichts anfangen kann.)

Gruß
blackdrake

Keine eine Ahnung von WMI und WQL?

Ich habe jetzt herausgefunden, dass ich das Feld "MediaType" überprüfen sollte, wenn ich nur interne Festplatten (fixed drives) prüfen möchte. Alles andere schließt auch USB-Festplatten, Cardreader etc. in die Hardware-ID mit ein, was Fehler und wechselnde Hardware-IDs bewirkt.

Die WQL Query schlägt aber bei zweiterer Funktion immer ein. Ich versuche schon seit 2 Stunden, sehe aber in der Query keinen Fehler.

zusammenfalten · markieren

Delphi-Quellcode:

function MagWmiGetDiskSerial (drive: integer): string ;
begin
    result := '' ;
    MagWmiGetOneQ ('SELECT SerialNumber FROM Win32_PhysicalMedia WHERE ' +
       'Tag = "\\\\.\\PHYSICALDRIVE' + IntToStr (drive) + '"', 'SerialNumber', Result) ;
end ;

// [DM] Added

function MagWmiGetHardDiskSerial (drive: integer): string ;
begin
    result := '' ;
    MagWmiGetOneQ ('SELECT SerialNumber FROM Win32_PhysicalMedia WHERE ' +
       'MediaType = "Fixed hard disk media" AND ' +
       'Tag = "\\\\.\\PHYSICALDRIVE' + IntToStr (drive) + '"', 'SerialNumber', Result) ;
end ;

MagWmiGetOneQ:

zusammenfalten · markieren

Delphi-Quellcode:

function MagWmiGetOneQ (const Arg, Prop: widestring ; var ResStr: string): integer ;
var
    wmiLocator: TSWbemLocator;
    wmiServices: ISWbemServices;
    wmiObjectSet: ISWbemObjectSet;
    wmiObject: ISWbemObject;
    wmiProp: ISWbemProperty;
    ovVar: OleVariant;
    lwValue: LongWord;
    Enum: IEnumVariant;
begin
    ResStr := '' ;
    wmiLocator := TSWbemLocator.Create (Nil);
    try
    try
        wmiServices := wmiLocator.ConnectServer ('', RootNameSpace, '', '',
                                                                      '', '', 0, nil);
        wmiObjectSet := wmiServices.ExecQuery (Arg, 'WQL',
                                                     wbemFlagReturnImmediately, nil) ;
        result := wmiObjectSet.Count ;
        if (result <> 1) then exit ; // can only handle a single instance
        Enum := (wmiObjectSet._NewEnum) as IEnumVariant;
        while (Enum.Next (1, ovVar, lwValue) = S_OK) do
        begin
            wmiObject := IUnknown(ovVar) as SWBemObject;
            wmiProp := wmiObject.Properties_.Item (Prop, 0) ;
            if wmiProp.Name <> Prop then exit ;
            ResStr := MagWmiGetPropStr (wmiProp) ;
            if ResStr <> 'NULL' then result := 1 ;
        end ;
    except
        result := -1 ;
    end ;
    finally
        wmiLocator.Free;
    end;
end ;

// Edit: Allgemeingültig behoben: http://www.viathinksoft.de/?page=pro...ownload&id=149