Discussion :

[Oitsmyrabbit]

Bonjour,

Après de longues et périlleuses recherches, je capitule et sollicite votre aide.

Je vais essayer d'être clair avec le peu de connaissances que j'ai en VBS :


Dans une console PowerShell, à l'aide de la commande Get-WmiObject -class Win32_DiskDrive j'affiche les données suivantes :
. Partitions : 3
. DeviceID : \\.\PHYSICALDRIVE0
. Model : INTEL SSDSA1M080G2LE ATA Device
. Size : 80023265280
. Caption : INTEL SSDSA1M080G2LE ATA Device

Je souhaite simplement, à l'aide d'un script VBS, à donner à une variable la valeur "80023265280".


J'espère que quelqu'un pourra m'être utile,
D'avance, merci,
Bien à vous.

Clément.

[l_autodidacte]

Je souhaite simplement, à l'aide d'un script VBS, à donner à une variable la valeur "80023265280".

A vrai dire, je n'ai bien saisi le sens de cette phrase.
Si tu veux recevoir la valeur dans une variable, ce sera simple mais pas si tu veux forcer le système à affecter cette valeur à la taille du disque. Tu peux t'inspirer du code suivant pour avoir des informations sur ton DD.
Si tu exécutes le code avec WScript.exe, à la fin il te sort une erreur "Descripteur non valide(dans ce cas les lignes aprèe Next sont à mettre en commentaire ou tout simplement à supprimer)
Si tu l'exécutes avec CScript.exe, il suffit de faire un clic droit sur le fichier et choisir Ouvrir avec l'invite de commandes pour tout avoir à la fois

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive",,48) 
For Each objItem in colItems 
   IF objItem.Size <>0 Then 
       Wscript.Echo "Size: " & objitem.Size
       Wscript.Echo "Bytes par secteur: " &  objitem.BytesPerSector
       Wscript.Echo "Capabilities : " &  Join(objItem.Capabilities, ",")
       Wscript.Echo "Caption : " & objitem.Caption
       Wscript.Echo "DeviceID : " & objitem.DeviceID
       Wscript.Echo "Description : " & objitem.Description
       Wscript.Echo "Manufacturer: " & objitem.Manufacturer
       Wscript.Echo "MediaType : " & objitem.MediaType
       Wscript.Echo "Model : " & objitem.Model
       Wscript.Echo "Name : " & objitem.Name
       Wscript.Echo "Partitions  " & objitem.Partitions
       Wscript.Echo "SCSIPort: " & objitem.SCSIPort
       Wscript.Echo "Status : " & objitem.status
       Wscript.Echo "SystemName: " & objitem.Systemname
       Wscript.Echo "InterfaceType: " & objItem.InterfaceType
  End If
Next
 
Wscript.Echo ""
Wscript.Echo ""
WScript.StdOut.Write "Appuyez sur ENTREE pour continuer... "
WScript.StdIn.ReadLine

[Oitsmyrabbit]

Un grand merci, j'ai pu modifier ce que tu m'avais envoyé pour l'adapter à mon besoin.

Malheureusement, le résultat que me donne mon script sous Windows (qui est tout à fait correct) est différent de celui que j'obtiens sous WinPE.

J'ai quitté le travail là mais je posterai mon script demain, on ne sais jamais, si quelqu'un a une idée du pourquoi de cette différence selon le contexte.

En tout cas, encore merci... et bonne soirée !

[l_autodidacte]

Il s'agit de voir si les PCs sont identiques ou non au moins les disques durs

[Oitsmyrabbit]

De retour au boulot, je poste mon script :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
strComputer = "."
Dim P1
Dim P2
Dim P3
Dim P4
Dim disksize
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_DiskPartition",,48) 
 
 
For Each objItem in colItems 
	IF objItem.Name = "Disque n° 0, partition n° 0" Then 
       P1 = objItem.Size
	End If
	IF objItem.Name = "Disque n° 0, partition n° 1" Then 
       P2 = objItem.Size
	End If
	IF objItem.Name = "Disque n° 0, partition n° 2" Then 
       P3 = objItem.Size
	End If
	IF objItem.Name = "Disque n° 0, partition n° 3" Then 
       P4 = objItem.Size
	End If
 
Next
 
disksize = (P1/1)+(P2/1)+(P3/1)
 
Msgbox "" & disksize

Donc voilà, je boot mon poste sous Windows, la messagebox me retourne la taille du disque (plus précisemment de la somme de l'ensemble des partitions).

Je boot avec WinPE sur ce même poste, j'execute le même script, et il me renvoit "0".


J'ai deux idées en têtes :
- sous WinPE, le numéro de mon disque est différent.
- je ne peux pas accéder à la table Win32_DiskPartition sous WinPE.

Je pensais dons exécuter la commande Get-WmiObject -class Win32_DiskPartition sous WinPE, mais quand je lance PowerShell, il me plante (il lui manque soit disant une dll), à croire qu'on ne peut pas l'exéuter avec WinPE.

A cours d'idées...

Ou alors, même si je sors un peu du sujet du forum, ce que je cherche à faire au final c'est de récupérer via un script VBS la taille de mon disque-dur alors que je serai sous WinPE (je n'aurai qu'un seul disque-dur interne, et au moins un disque-dur externe branché lors de mon test).


Si vous avez une idée, une piste à édutier, je suis preneur.


Merci d'avance pour vos aides,

Clément.

[omen999]

bonjour,

ton dernier message aurait dû être le premier
ce n'est pas le langage qui est en cause, même avec le pack wmi, winpe n'accède pas à la classe Win32_DiskPartition
peut-être une solution ici

et sinon il y a aussi BartPE...