Récupérer le numéro de série matériel du disque dur sans passer par WMI

Version imprimable

04/05/2015, 00h11
fab56

Récupérer le numéro de série matériel du disque dur sans passer par WMI

Bonjour,

Je dois récupérer les numéros de série de disque dur d'une cinquantaine de PC. Pour toutes les autres infos, j'utilise des scripts VBS avec WMI.
Malheureusement, ces postes étant sous XP, il m'est impossible de récupérer cette info avec WMI, que ce soit avec la classe Win32_PhysicalMedia ou Win32_DiskDrive.

Existe-t-il un moyen autre de récupérer le numéro de série matériel du disque dur avec Delphi.
Avec le logiciel CrystalDiskInfo j'arrive bien à récupérer ce numéro.
J'aimerais le faire avec une application Delphi pour pouvoir le récupérer avec le script et le faire remonter sur mon serveur.

Pour l'instant, j'épluche le code de CrystalDiskInfo mais c'est du C++ et y a pas mal de lignes, donc c'est pas concluant. Je n'ai pas trouvé d'exemples ni d'API pour Delphi.
J'ai l'impression que le logiciel passe par le protocole S.M.A.R.T pour récupérer le numéro. J'essaie de trouver une spécification mais je ne trouve rien de concluant.

Si quelqu'un sait comment faire, cela m'épargnera de longues heures de démontage pour lire le numéro directement sur le DD. =)

Merci d'avance.

Bonne soirée
04/05/2015, 18h58
fab56

Bonjour,

J'ai retrouvé et modifié une source qui utilise la fonction DeviceIoControl. Elle fonctionne sous Windows 7 mais les résultats ne sont pas toujours concluants. Je mets ça en standby pour l'instant, par manque de temps.

J'essaierais de mettre en ligne les sources ce soir.

Merci

une réponse possible

Bonjour,
Tu peux peut être utiliser ce code :

Code:

1
2
3
4
5
6
7
var
  VolSerNum:      DWORD;
  DW1, DW2: DWORD;
begin
  if GetVolumeInformation(pWidechar(drive + '\'), nil, 0, @VolSerNum,DW1, DW2, nil, 0) then
    Result := Format('%.4x:%.4x', [HiWord(VolSerNum), LoWord(VolSerNum)]);
end;

05/05/2015, 09h06
SergioMaster

Bonjour,

@Alweber je crains que GetVolumeInformation ne récupère qu'un numéro logique et non le numéro physique du disque

Citation:

Malheureusement, ces postes étant sous XP, il m'est impossible de récupérer cette info avec WMI,

étrange, je n'ai plus de XP sous la main mais il me semble pourtant qu'il est bien possible d'utiliser les WMI avec XP , et ce même via le réseau (bien que cela nécessite quelques manips activer WMI)

as-tu déjà essayé de tester via WMI Delphi Code Creator sur un poste XP ?
sinon voir ce qu'il est possible d'obtenir via les JCL et JVCL (lorsque j'ai commencé a travailler sur les éjections de clés USB j'ai commencé par ces bibliothèques avant d'aborder les WMI)

Citation:

Envoyé par SergioMaster

Bonjour,
@Alweber je crains que GetVolumeInformation ne récupère qu'un numéro logique et non le numéro physique du disque

A priori c'est ce que j'utilisais au début des années 2000 avec la fonction suivante sous delphi 5.
La procédure que j'ai cité dans mon précédent mail a été compilée avec Delphi XE7

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
function TGestionFichier.FNomDeVolume : string;
var
  OldErrorMode: Integer;
  NotUsed, VolFlags: DWORD;
  Buf: array [0..MAX_PATH] of Char;
begin
  if LettreVolumeSource=char(0) then
  begin
    Result := 'Inconnu' ;
    Exit ;
  end ;
  OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    Buf[0] := #$00;
    if GetVolumeInformation(PChar(LettreVolumeSource + ':\'), Buf, DWORD(sizeof(Buf)),
      nil, NotUsed, VolFlags, nil, 0) then
      SetString(Result, Buf, StrLen(Buf))
    else Result := '';
    if LettreVolumeSource < 'a' then
      Result := AnsiUpperCaseFileName(Result)
    else
      Result := AnsiLowerCaseFileName(Result);
    if Result<>'' then
      Result := Format('[%s]',[Result]);
  finally
    SetErrorMode(OldErrorMode);
  end;
end;

05/05/2015, 10h23
SergioMaster

Je ne critiquais pas le code en soit mais l'information obtenue :roll:
GetVolumeInformation récupère ,comme son nom l'indique, des valeurs sur le volume (donc "logique", changeant après un formatage par exemple) et non les informations sur le disque physique (numéro de série établi par le fabricant).
05/05/2015, 14h31
ALWEBER

Citation:

Envoyé par SergioMaster

Je ne critiquais pas le code en soit mais l'information obtenue :roll:

D'accord ! ;)

Ceci dit il est possible d'utiliser la commande DOS dans un shellExec. Ici l'information est retournée dans le fichier X.TXT qui peut être détruit après lecture

Code:

VOL C: >C:\X.TXT
05/05/2015, 16h48
Invité

Bonjour Fab56,

WMI fonctionne en XP à condition que le pack 2 soit installé. J'ai pas mal planché là-dessus en Qt. Mais il y a un bug lié à Microsoft sur certaines versions de Windows. Il est peut-être sans conséquence pour vous.