ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

::: OBTENIR LE NUMERO DE SERIE DU DISQUE DUR D'UN PC EN VFP :::   


L'auteur

Olivier Hamou
France France
Membre Simple
# 0000000017
enregistré le 13/10/2004
http://www.planitron.com
Hamou Olivier
94100 Saint Maur des fossés
de la société PLANITRON
Fiche personnelle

Note des membres
10/20
1 vote

Contributions > 05 - API et appels systèmes > HD

::: OBTENIR LE NUMERO DE SERIE DU DISQUE DUR D'UN PC EN VFP :::
# 0000000010
ajouté le 14/10/2004 09:03:04 et modifié le 30/03/2005
consulté 15542 fois
Niveau débutant
Description
Ce bout de code vous permet de recuperer le numero de serie du disque dur
en fonction de la lettre spécifée.
Code source :
*=====================================
* pour recuperer le numero d'un disque dur en vfp
* Olivier Hamou
*=====================================

drvPath="c:\"
ofs=CreateObject('Scripting.FilesystemObject')
drv = ofs.GetDrive(ofs.GetDriveName(drvPath))
? drv.SerialNumber
Commentaires
le 05/11/2004, Guy Bonemme a écrit :
J'utilise cette manière dans un programme commercial. Seul inconvénient
si le disque dur est reformaté, le numéro change.
Guy Bonemme
BE-Fox
le 16/11/2004, Mike Gagnon a écrit :
Olivier

A titre d'information, le resultat que ta fonction retourne est le numéro 'non-permanent' du disque dur (Soft serial number), qui peut-etre changé avec des programmes comme Ghost.
le 20/03/2011, mahdi22dz a écrit :
Il existe une petite DLL qui renvoie le N° de série d'usine ( Permanent ).
le 20/03/2011, Olivier Hamou a écrit :
Si cela existe mais c'est payant !

http://www.diskserialnumber.com/

cdlt
le 20/03/2011, Olivier Hamou a écrit :
Je viens de retrouver sinon la contribution de Mike Gagnon, c'est le n° de disque dur permanent il faut utiliser WMI : http://www.atoutfox.org/articles.asp?ACTION=FCONSULTER&ID=0000000328

&& Numéro de serie permenant d'un disque dur

LOCAL objWMI,colClass,objClass,strComputer
CREATE CURSOR PhysicalMedia (serialnumber c(100))
strComputer = "."
objWMI = GetObject("winmgmts:\\" +strComputer + "\root\cimv2")
colClass = objWMI.ExecQuery("Select * from Win32_PhysicalMedia",,48)

For Each objClass in colClass
INSERT INTO PhysicalMedia (serialnumber) VALUES (objclass.serialnumber)
Next
BROWSE normal
www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3