Discussion :

[Invité]

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

Code :

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

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

[ProgElecT]

Salut

Code :

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

			strDisk = Int(objDisk.Size /1073741824)

je tenterai

Code :

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

			strDisk =Clng(objDisk.Size /1073741824)

[l_autodidacte]

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 :

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

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.