Taille des HDD objDisk.Size

J'ai mon petit script d'inventaire et dans un des éléments j'ai cette info sur le disque dur...

Code:

---

1 2 3 4 5 6 7

Dim objDisk Set colDisks = objWMIService.ExecQuery("Select * From Win32_LogicalDisk Where DriveType = 3") For Each objDisk in colDisks 'strDisk = round(objDisk.Size / 1048576000) 'strDisk = round(objDisk.Size / 1073741824) strDisk = Int(objDisk.Size /1073741824) Next

---

J'ai essayé différente chose pour strDisk (commentaire) mais sans jamais avoir l'information convenable...j'ai des disques de 40G et l'inscription n'est que de 6G par contre sur d'autre PC j'ai bien la bonne capacité?

Que fais-je?

Merci

Salut

Code:

---

strDisk = Int(objDisk.Size /1073741824)

---

je tenterai

Code:

---

strDisk =Clng(objDisk.Size /1073741824)

---

Quand on met "strDisk", cela suppose qu'on va obtenir une chaine de caractères.
Ceci dit, on peut aussi passer par l'objet FileSystemObject :

Code:

---

1 2 3 4 5

Set fso = CreateObject("Scripting.FileSystemObject") For Each Drv In fso.Drives If Drv.IsReady And Drv.DriveType=3 Then S = S + Drv.DriveLetter & " ==> " & FormatNumber(Drv.TotalSize/1073741824,2) & " Go" & Vbcrlf ' Lecteur réseau Next MsgBox S

---

' La taille totale du disque sera donnée avec 2 chiffres après la virgule.