Name des CD-ROM-Laufwerks (zB LITEON LTD163D)

[Garfield]

Das ist so etwas, wie OregonGhost oben vorgeschlagen hatte. Vielen Dank, werde ich morgen früh gleich ausprobieren.

[Garfield]

Moin, moin:

Ich habe mich also noch einmal mit WMI beschäftigt. Zu der Frage der Installation von WMI habe ich folgendes gefunden:

Windows Management Instrumentation:

Zitat:

WMI is preinstalled in Windows Server 2003, Windows XP, Windows Me, and Windows 2000.

INFO: Windows Management Instrumentation (WMI) on Computers Running Windows 98, Windows 98 Second Edition, and Windows Millennium Edition

Zitat:

Systemanforderungen

• Unterstützte Betriebssysteme: Windows 95, Windows 98, Windows NT

Softwareanforderungen:
1. Microsoft® Windows® NT 4 SP 4 oder höher, Windows 95, Windows 98. (WMI ist unter Windows 2000 und Windows Me bereits standardmäßig installiert)
2. DCOM-Version 1.3 für Windows 95

Downloads für ältere Systeme:

• Windows 95/98
• Windows 98/98SE/ME, Alternativdownload zum vorherigen Link.
• Windows NT 4.0.
• SDK für Windows 95/98/NT 4.0

In dem Beispiel habe ich in Zeile 7 ein Type eingefügt. Und nun hänge ich bei den Uses von Zeile 46, weil ich keine WbemScripting_TLB.pas/dcu habe. Über Active X importieren habe ich es leider nicht gefunden. Ich benutze dafür Delphi 7 Personal unter Windows XP.

Nachtrag: Die WbemScripting_TLB.pas habe ich gerade in http://www.delphipraxis.net/internal...ct.php?p=77262 gefunden.

Nachtrag 2: War möglicherweise nicht die richtige bzw eine alte WbemScripting_TLB.pas (Version 1.1). In der wmiCDROM werden unter 'constructor TCDROMDrive.Create(CDROMDeviceID : String);' UserName, UserPwd und ComputerName sowie unter 'TCDROMDrive.SystemValues(CDROMDeviceID : String);' wbemConnectFlagUseMaxWait als undefinierte Bezeichner moniert.

Nachtrag 3: http://www.sysextensions.net/kompone...compdelphi.htm
http://www.online-admin.com/register_wmiset.html

[Garfield]

Zitat:

Zitat von Alter Mann

Delphi-Quellcode:

unit wmiCDROM;

interface

uses Windows, Classes, Contnrs, Variants;

type
  PCDROMDrive = ^TCDROMDrive;
  TCDROMDrive = class(TObject)
  private
    FUserName          : String;
    FUserPwd           : String;
    FComputerName      : String;

    FDescription       : String;
    FDrive             : String;
    FManufacturer      : String;
    FMediaLoaded       : Boolean;
    FMediaType         : String;
    FName              : String;
    FSCSIBus           : Uint;
    FSCSILogicalUnit   : Uint;
    FSCSIPort          : Uint;
    FSCSITargetId      : Uint;
    FStatus            : String;
  protected
    procedure  SystemValues(CDROMDeviceID : String);
  public
    constructor Create(CDROMDeviceID : String);
    destructor  Destroy; override;
    property Description     : String read FDescription;
    property Drive           : String read FDrive;
    property Manufacturer    : String read FManufacturer;
    property MediaLoaded     : Boolean read FMediaLoaded default False;
    property MediaType       : String read FMediaType;
    property Name            : String read FName;
    property SCSIBus         : Uint read FSCSIBus;
    property SCSILogicalUnit : Uint read FSCSILogicalUnit;
    property SCSIPort        : Uint read FSCSIPort;
    property SCSITargetId    : Uint read FSCSITargetId;
    property Status          : String read FStatus;
  published
  end;

implementation

uses SysUtils, ActiveX, WbemScripting_TLB;

////////////////////////////////////////////////////////////////////////
////                     TCDROMDrive                                ////
////////////////////////////////////////////////////////////////////////

constructor TCDROMDrive.Create(CDROMDeviceID : String);
begin
  inherited Create;
  SystemValues(CDROMDeviceID);
end;

procedure   TCDROMDrive.SystemValues(CDROMDeviceID : String);
var
  FLocator  : ISWbemLocator;
  FServices : ISWbemServices;
  FObjectSet: ISWbemObjectSet;
  FObjEnum  : IEnumVariant;
  FWMIObj   : ISWbemObject;
  FWMITmpObj: OleVariant;
  PropVal   : OLEVariant;
  Cnt       : Cardinal;

  function GetValue(Value : String) : Variant;
  begin
    try
       PropVal := (FWMIObj.Properties_.Item(Value, 0) as ISWbemProperty).Get_Value;
       if not (VarIsEmpty(PropVal) or VarIsNull(PropVal)) then Result := PropVal;
    except
    end;
  end;

begin
  FLocator := CoSWbemLocator.Create;
  try
    if FLocator <> nil then
    begin
      FServices := FLocator.ConnectServer('.', 'root\cimv2', '', '', '', '', 0, nil);
      if FServices <> nil then
      begin
        FObjectSet := FServices.ExecQuery('SELECT * FROM Win32_CDROMDrive', 'WQL', wbemFlagReturnWhenComplete, nil);
        if FObjectSet <> nil then
        begin
          with FObjectSet do
          begin
            FObjEnum := (FObjectSet._NewEnum) as IEnumVariant;
            if FObjEnum <> nil then
            begin
              if FObjectSet.Count > 0 then
              begin
                while(FObjEnum.Next(1, FWMITmpObj, Cnt) = S_OK) do
                begin
                  FWMIObj := IUnknown(FWMITmpObj) as ISWbemObject;

                  PropVal := (FWMIObj.Properties_.Item('DeviceID', 0) as ISWbemProperty).Get_Value;
                  if not (VarIsEmpty(PropVal) or VarIsNull(PropVal)) and (CDROMDeviceID = PropVal) then
                  begin
                    FDescription      := GetValue('Description');
                    FDrive            := GetValue('Drive');
                    FManufacturer     := GetValue('Manufacturer');
                    FMediaLoaded      := GetValue('MediaLoaded');
                    FMediaType        := GetValue('MediaType');
                    FName             := GetValue('Name');
                    FSCSIBus          := GetValue('SCSIBus');
                    FSCSILogicalUnit  := GetValue('SCSILogicalUnit');
                    FSCSIPort         := GetValue('SCSIPort');
                    FSCSITargetId     := GetValue('SCSITargetId');
                    FStatus           := GetValue('Status');
                  end;
                end;
              end;
            end;
          end;
        end;
      end;
    end;
  finally
    FServices := nil;
    FLocator := nil;
  end;
end;

destructor TCDROMDrive.Destroy;
begin
  inherited Destroy;
end;

end.

Folgende Änderungen habe ich vorgenommen:

• Zeile 7 type eingefügt,
• Zeile 57ff (FUserName := UserName; FUserPwd := UserPwd; FComputerName := ComputerName;) herausgenommen und
• Zeile 85/86 das 'wbemConnectFlagUseMaxWait' durch 0 ersetzt.

Nun scheint bei Zeile 104, 105 ein Fehler zu sein. Denn (CDROMDeviceID = PropVal) kann nicht eintreten, weil PropVal zum Beispiel 'IDE\CDROM...' ist.

[Alter Mann]

Hallo

danke für die "Berichtigungen" :wink:

Zitat:

# Zeile 57ff (FUserName := UserName; FUserPwd := UserPwd; FComputerName := ComputerName;) herausgenommen und
# Zeile 85/86 das 'wbemConnectFlagUseMaxWait' durch 0 ersetzt.

Zeile 57ff : war beabsichtigt, damit man weiss wie es Remote geht!
Zeile 85/86: Mit 'wbemConnectFlagUseMaxWait' habe ich sooo meine Erfahrungen; Auf meinem privaten Rechner wurde
der Wert($80) korrekt importiert, auf Arbeit nicht :|
Woran es liegt :?: Habe mich noch nicht auf die Suche gemacht, sondern einfach

Delphi-Quellcode:

interface
...
Const
  wbemConnectFlagUseMaxWait = $80;
...

geschrieben.
Weitere Probleme gab es unter Windows XP nicht, abgesehen davon das nicht immer alle theoretisch Verfügbaren
Properties auch verfügbar sind. Beim Lauf innerhalb der IDE bekommt man zu hauf Unterbrechungen mit der Meldung "Ungültiges Argument" :?
Weiterhin habe ich die Erfahrung gemacht, das im PSK steht, das die Eigenschaft ein Array(also ein Variablenfeld) ist
und versuche es auszulesen, kommt die Meldung das es sich nicht um Array handelt, sondern ein 'einfacher Wert' ist.
Dafür läuft die Sache auf einem anderen Rechner 1a. :?:

Ansonsten scheint es unter W2K Probleme zu geben.

Allgemein gesagt kann man WMI nutzen, die Garantie das alle wünschenswerten Eigenschaften auch tatsächlich vorhanden
sind gibt es scheinbar nicht. :?

Gruß

[Garfield]

Guten Abend,

Zitat:

Zitat von Alter Mann

danke für die "Berichtigungen" :wink:

Wenn ich mit meinen bescheidenen Kenntnissen sonst nicht helfen kann.

Zitat:

Zitat von Alter Mann

Zeile 85/86: Mit 'wbemConnectFlagUseMaxWait' habe ich sooo meine Erfahrungen;

Die 0 hatte ich in einem anderen Source gesehen. Luckie hat mir heute dort gezeigt, wie ich die WbemScripting_TLB importieren muss. Nun habe ich die MS WMI Scripting V1.2 Library (Version 1.2) importiert. Damit erzeugt die Variable wbemConnectFlagUseMaxWait keine Fehlermeldung mehr und wird mit 128 ($80) angegeben. Das Ergebnis ist jedoch gleich geblieben. Die Variable Propval zeigt die String, wie sie in den DeviceClasses in der Registry stehen. ZB 'IDE\CDROMMATSHITA**'.

Leider kann ich Dir dabei nicht weiterhelfen, weil meine Englischkenntnisse noch schlechter als meine Delphikenntnisse sind. :|

Ich habe mir in dem Zusammenhang von http://www.online-admin.com/download.html die Demo StorageInfo heruntergeladen. Diese Demo hat die gewünschten Laufwerksinformationen angezeigt. Die Demo enthält auch die Source ohne die WMI Componente, welche es als Sharewareversion (58 US$) zum Download gibt. Das Archiv enthält die vorcompilierten Komponenten.

Aus Neugier habe ich es dann unter Win98SE getestet. Die unter XP compilierte EXE ergab einen Fehler 'ungültige Variable'. Dann wollte ich es mit Delphi 3 Prof compilieren. Dort habe ich MS WMI Scripting V1.1 Library (Version 1.1) importiert und es gab wieder den Fehler mit dem unbekannten wbemConnectFlagUseMaxWait. CNT : Integer mochte D3 natürlich auch nicht. Und nachdem ich LongInt draus gemacht habe, hat sich der Compiler irgenwohin verlaufen.

Sieht so aus, als würde es wbemConnectFlagUseMaxWait erst in der MS WMI Scripting V1.2 Library geben.

[Luckie]

Zitat:

Zeile 85/86: Mit 'wbemConnectFlagUseMaxWait' habe ich sooo meine Erfahrungen;

Gibt es erst ab Windows XP. Gib da 0 an, wenn es unter 2000 laufen soll.

[Garfield]

Zitat:

Timeout on connection

When connecting to WMI through a call to SWbemLocator.ConnectServer or IWbemLocator::ConnectServer, you can set the wbemConnectFlagUseMaxWait flag (scripting) or the WBEM_FLAG_CONNECT_USE_MAX_WAITin C++ value to 128 (0x80) to impose a 2 minute timeout on the call.

Windows 2000, Windows NT, Windows 98, and Windows 95: The wbemConnectFlagUseMaxWait and WBEM_FLAG_CONNECT_USE_MAX_WAIT flags are not available.

[Luckie]

@Garfield: Und was habe ich anderes gesagt:

Zitat:

Windows 2000, Windows NT, Windows 98, and Windows 95: The wbemConnectFlagUseMaxWait and WBEM_FLAG_CONNECT_USE_MAX_WAIT flags are not available.

[Alter Mann]

OK, danke, muss ich überlesen haben. :?
Ich meinte es noch etwas anders; 2 PC, beide mit Windows XP und WMI Scripting V1.5 Library.
Auf dem einen ist sie (wbemConnectFlagUseMaxWait) deklariert auf dem anderen nicht. Aufgefallen ist mir das, als ich den Source auf dem anderen Rechner compilieren wollte und ich die Meldung "unbekannter Bezeichner" o.s. erhielt.

[Garfield]

Zitat:

Zitat von Luckie

@Garfield: Und was habe ich anderes gesagt:

Entschuldige, ich wollte Dir nicht zu nahe treten. Mir ging es mehr um den ersten Absatz.

Zitat:

Zitat von Alter Mann

Ich meinte es noch etwas anders; 2 PC, beide mit Windows XP und WMI Scripting V1.5 Library. ...

:shock: Ich habe nun mein Projekt auf dem selben Rechner mit Win98SE getestet. Da kam so etwas wie 'Invalid Parameter'. Bei einem anderen Rechner, bei welchem das XP von derselben CD installiert wurde, startete die Projektexe nicht einmal.