Salut tout le monde

j'aimerai recupérer la serie du dique dur sous Windev et je trouvé que
fdisqueinfo

mais elle me retourne "21354652" un autre serie que selui de la commande
DOS VOl "2ER-52GZ6"

qlq peux mme dire ou je peux recupérer le serial ???????


Merci d'avance

Salut,

Ci-dessous, voici le code que j'ai trouvé sur :
http://centrewd.free.fr/…

// Obtenir le numéro de série du disque
lpRootPathName est une chaîne ASCIIZ sur 255
lpVolumeNameBuffer est une chaîne ASCIIZ sur 100
nVolumeNameSize est un entier
lpVolumeSerialNumber est un entier
lpFileSysNameBuf est une chaîne ASCIIZ sur 255
nFileSystemNameSize est un entier
RetVal est un entier
NumSerie est une chaîne
lpRootPathName = "c:\"
nVolumeNameSize = 100
nFileSystemNameSize = 100
// Ce code vous est offert par Beaussier en ligne
RetVal = AppelDLL32("kernel32", "GetVolumeInformationA", ...
&lpRootPathName, &lpVolumeNameBuffer, nVolumeNameSize, ...
&lpVolumeSerialNumber, 0, 0, &lpFileSysNameBuf, nFileSystemNameSize)
//Conversion de la valeur hexadecimale
NumSerie = Gauche(NumériqueVersChaine(lpVolumeSerialNumber, "X"), 4)+...
"-" + Droite(NumériqueVersChaine(lpVolumeSerialNumber, "X"), 4)
Info(NumSerie)

A+
Fabrice



"ARAB" <ibr195@yahoo.fr> wrote in message

Puis avec Démarrer Exécuter CMD, allez dans le répertoire ou vous l'avez
enregistré puis lancez le script "Win32_DiskDrive"
et donnez moi le résultat des courses.......

Bonjour, SP&B
toutes tes commandes WMI fonctionnent avec WinDev9 depuis la version

Il n'est aucunement nécessaire d'utiliser VBS

j'ai ecrit un petit projet disponible ici :
http://www.wdforge.org/modules/news/article.php…

Aujourd'hui j'en suis à plus de 400 requêtes différentes.

[DrCharly93] www.wdforge.org

SP&B a écrit :

Bonjour,
pourriez vous enregistrer dans le fichier Win32_DiskDrive.vbs le contenu
suivant :

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from

For Each objItem in colItems

Wscript.Echo"Availability : " & objItem.Availability
Wscript.Echo"BytesPerSector : " & objItem.BytesPerSector
Wscript.Echo"Capabilities : " & objItem.Capabilities
Wscript.Echo"CapabilityDescriptions : " &
objItem.CapabilityDescriptions
Wscript.Echo"Caption : " & objItem.Caption
Wscript.Echo"CompressionMethod : " & objItem.CompressionMethod
Wscript.Echo"ConfigManagerErrorCode : " &
objItem.ConfigManagerErrorCode
Wscript.Echo"ConfigManagerUserConfig : " &
objItem.ConfigManagerUserConfig
Wscript.Echo"CreationClassName : " & objItem.CreationClassName
Wscript.Echo"DefaultBlockSize : " & objItem.DefaultBlockSize
Wscript.Echo"Description : " & objItem.Description
Wscript.Echo"DeviceID : " & objItem.DeviceID
Wscript.Echo"ErrorCleared : " & objItem.ErrorCleared
Wscript.Echo"ErrorDescription : " & objItem.ErrorDescription
Wscript.Echo"ErrorMethodology : " & objItem.ErrorMethodology
Wscript.Echo"Index : " & objItem.Index
Wscript.Echo"InstallDate : " & objItem.InstallDate
Wscript.Echo"InterfaceType : " & objItem.InterfaceType
Wscript.Echo"LastErrorCode : " & objItem.LastErrorCode
Wscript.Echo"Manufacturer : " & objItem.Manufacturer
Wscript.Echo"MaxBlockSize : " & objItem.MaxBlockSize
Wscript.Echo"MaxMediaSize : " & objItem.MaxMediaSize
Wscript.Echo"MediaLoaded : " & objItem.MediaLoaded
Wscript.Echo"MediaType : " & objItem.MediaType
Wscript.Echo"MinBlockSize : " & objItem.MinBlockSize
Wscript.Echo"Model : " & objItem.Model
Wscript.Echo"Name : " & objItem.Name
Wscript.Echo"NeedsCleaning : " & objItem.NeedsCleaning
Wscript.Echo"NumberOfMediaSupported : " &
objItem.NumberOfMediaSupported
Wscript.Echo"Partitions : " & objItem.Partitions
Wscript.Echo"PNPDeviceID : " & objItem.PNPDeviceID
Wscript.Echo"PowerManagementCapabilities : " &
objItem.PowerManagementCapabilities
Wscript.Echo"PowerManagementSupported : " &
objItem.PowerManagementSupported
Wscript.Echo"SCSIBus : " & objItem.SCSIBus
Wscript.Echo"SCSILogicalUnit : " & objItem.SCSILogicalUnit
Wscript.Echo"SCSIPort : " & objItem.SCSIPort
Wscript.Echo"SCSITargetId : " & objItem.SCSITargetId
Wscript.Echo"SectorsPerTrack : " & objItem.SectorsPerTrack
Wscript.Echo"Size : " & objItem.Size
Wscript.Echo"Status : " & objItem.Status
Wscript.Echo"StatusInfo : " & objItem.StatusInfo
Wscript.Echo"SystemCreationClassName : " &
objItem.SystemCreationClassName
Wscript.Echo"SystemName : " & objItem.SystemName
Wscript.Echo"TotalCylinders : " & objItem.TotalCylinders
Wscript.Echo"TotalHeads : " & objItem.TotalHeads
Wscript.Echo"TotalSectors : " & objItem.TotalSectors
Wscript.Echo"TotalTracks : " & objItem.TotalTracks
Wscript.Echo"TracksPerCylinder : " & objItem.TracksPerCylinder

Next


Puis avec Démarrer Exécuter CMD, allez dans le répertoire ou vous l'avez
enregistré puis lancez le script "Win32_DiskDrive"
et donnez moi le résultat des courses.......




"SP&B" <spetb_no_spam@tiscali.fr> a écrit dans le message de
news:421473c8$1@news.pcsoft.fr...