[R] Numéro de série

[TT22]

Bonjour, je voudrais savoir comment obtenir le numéro de série d'un lecteur ?
J'ai recherché sur le site mais je n'ai trouvé que "Obtenir le numéro de série du CPU"
Donc si quelqu'un peut m'aider, merci d'avande.

[scorp84]

Bonjour TT22,

Voici le code :

Code : Tout sélectionner

$ObjWMIService = ObjGet ( "winmgmts:{impersonationLevel = impersonate}!\\.\root\cimv2" )
$ColSettings = $ObjWMIService.ExecQuery ( "Select * from Win32_Processor" )
For $ObjOperatingSystem In $ColSettings
$ProcID = $ObjOperatingSystem.ProcessorId
Next
MsgBox ( 0 , "N° de série du processeur" , $ProcID )

Mais je crois me souvenir qu'il y a des cas où il n'affiche rien

Sinon, voici un poste qui en parlait :
http://www.autoitscript.fr/forum/viewto ... ?f=3&t=279

Amicalement.

BM

[TT22]

@ scorp84

le numéro de série d'un lecteur ?

Par exemple "C:"
Mais merci quand même

[scorp84]

Autant pour moi, j'ai lu trop vite

Pour un lecteur, c'est DriveGetSerial.

Amicalement.

BM

[TT22]

Non, c'est pas ça :

Extrait de la documentation de la commande DriveGetSerial

Remarks
The value returned is not the hardware serial number as found on the label of the drive, it is the Windows Volume ID for the drive.

J'avais déjà demandé

[scorp84]

Il y a un outil qui devrait te permettre de trouver ce que tu cherches :
WMI Tools


Quand tu exécutes ScriptOmatic.au3, il te dresse la liste de tout ce que tu peux récupérer avec WMI.

Je pense qu'il y aura (enfin ta réponse.

Amicalement.

BM

[TT22]

J'ai pas trouvé

[scorp84]

http://msdn.microsoft.com/en-us/library ... 85%29.aspx

► Afficher le texte

class Win32_LogicalDisk : CIM_LogicalDisk
{
string DeviceID;
string VolumeSerialNumber;
};


VolumeSerialNumber

Data type: string
Access type: Read-only

Volume serial number of the logical disk.

Constraints: Maximum 11 characters.

Example: "A8C3-D032"

Voici un exemple qui liste les numéros de série des lecteurs :

Code : Tout sélectionner

$ObjWMIService = ObjGet ( "winmgmts:{impersonationLevel = impersonate}!\\.\root\cimv2" )
$ColSettings = $ObjWMIService.ExecQuery ( "Select * from Win32_LogicalDisk" )
For $ObjOperatingSystem In $ColSettings
$DeviceID = $ObjOperatingSystem.DeviceID
$VolumeSerialNumber = $ObjOperatingSystem.VolumeSerialNumber
ConsoleWrite( $DeviceID & " / " & $VolumeSerialNumber & "/" & DriveGetSerial($DeviceID) & @crlf) 
Next 

Voici ce qu'il me sort :

► Afficher le texte

C: / D89369FA/3633539578
D: / /
E: / E4CDAE9E/3838684830
F: / B1F6787F/2985719935
G: / 0CF0AFDC/217100252
H: / D8FD8541/3640493377
M: / 7E240A0F/2116291087
O: / 98725381/2557629313
R: / /2014421122

Je t'ai mis aussi le résultat de drivegetserial sur la même ligne et le résultat est différent
Amicalement.

BM

[TT22]

Merci

[scorp84]

Désolé mais quand je suis au taff, je suis un peu speed pour répondre...

Amicalement.

BM