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...
Bonjour,
Je vous remercie de ces informations.
Toutefois, je n'arrive pas a utiliser cette procédure en raison des
erreurs
suivantes :
1°/
Cette ligne objWMIService>>RAZ() provoque l'erreur suivante :
Vous avez appelé la méthode Automation 'RAZ'.
Erreur 80020006, Nom inconnu
2°/
Ensuite, si j'enlève la ligne RAZ(), cette partie de code :
WHEN EXCEPTION IN
ResultatVbs =
For Each objItem in colItems
strResult = strResult & objItem.DeviceID & chr(9)
strResult = strResult & objItem.PNPDeviceID & chr(9)
strResult = strResult & objItem.Model & chr(9)
strResult = strResult & objItem.MediaType & chr(9)
strResult = strResult & objItem.InterfaceType &chr(9)
strResult = strResult & objItem.Size & chr(9)
strResult = strResult & objItem.TotalCylinders &chr(9)
strResult = strResult & objItem.TotalHeads & chr(9)
strResult = strResult & objItem.TotalSectors & chr(9)
strResult = strResult & objItem.TotalTracks & chr(9)
strResult = strResult & objItem.TracksPerCylinder &chr(9)
strResult = strResult & objItem.SectorsPerTrack &chr(9)
strResult = strResult & objItem.BytesPerSector &chr(9)
strResult = strResult & objItem.Partitions & chr(9)
strResult = strResult & objItem.Status & chr(9)
strResult = strResult & objItem.MediaLoaded & chr(9)
strResult = strResult & objItem.SCSIBus & chr(9)
strResult = strResult & objItem.SCSILogicalUnit &chr(9)
strResult = strResult & objItem.SCSIPort & chr(9)
strResult = strResult & objItem.SCSITargetId & chr(13) &chr(10)
Next
InfoDisque = strResult
End Function
Auriez-vous un début de piste à me donner ?
Sincères salutations
--
Jean-Claude FLAJOULOT
spetb_no_Spam@tiscali.fr
(otez _no_Spam pour me contacter en privé)
Sécurité Pointage & Biométrie
http://www.sp-et-b.com