Discussion :

[René_Dev]

Bonjour

Nouveau sur ce forum, je découvre le VBScript et WMI. J'ai testé sur plusieurs PC un script pour obtenir le n° de série physique du disque dur. Le script me renvoie soit un sérial soit rien. Je pensais que tous les disques durs avaient un n° de série physique ?. J'ai fait peut être une erreur dans le script ou alors il n'est pas complet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set oSh=CreateObject("WScript.Shell")
sDisk=Split(oSh.ExpandEnvironmentStrings("%systemroot%"),":")(0)
nHD=Asc(sDisk)-Asc("C")
Set oBoot=GetObject("winmgmts:/root/cimv2:" & _
    "Win32_PhysicalMedia.Tag='\\.\PHYSICALDRIVE" & nHD & "'")
WScript.Echo Trim(oBoot.SerialNumber)

Pour le n° de série de la carte mère, je rencontre le même problème. Le scrips renvoie ou non une information.

En fait je souhaite obtenir un ID unique (DD, carte mère...) pour mettre en place une protection logicielle simple et moins contraignante que le n° de série volume du disque dur.

Quelqu'un peut-il m'aider ?

Avec mes remerciements.
Cordialement

[omen999]

salut,
ici peut-être: http://www.freevbcode.com/ShowCode.asp?ID=2664

[René_Dev]

Merci pour la réponse.

J'utilise un script similaire pour la carte mère mais, après test sur différents PC, le script ne renvoie pas toujours un n° de série et parfois il y a simplement GenuineIntel.

Il faut que je trouve une fonction qui renvoie toujours une réponse cohérente pour que je puisse l'utiliser.

Cordialement

[abertaud]

Tu auras peut être sensiblement le même résultat, mais ça vaut le coup d'essayer :

http://vb.developpez.com/faqvbs/?pag...#fsoInfoDisque

[René_Dev]

Bonjour


#fsoInfoDisque renvoie en fait le n° de série du volume (ou de la partition) qui change à chaque formatage contrairement au n° de série physique qui lui est attaché au matériel.

Merci quand même.

Cordialement

[omen999]

ici ?: http://vbnet.mvps.org/code/disk/smartide.htm