Récupérer une valeur WMI en VBS.

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.

Citation:

---

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:

---

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

---

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 !

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

De retour au boulot, je poste mon script :

Code:

---

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.

bonjour,

ton dernier message aurait dû être le premier :roll:
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... :mrgreen: