Discussion :

[chapeau_melon]

Hello,

Je voudrais combiner Win32_DiskDrive & Win32_LogicalDisk.

Mais logicaldisk revient toujours a tout les components.

pour info :

-JE N'AI PAS LE DROITS ADMIN !!
-Je ne veux pas accéder au floppy !!

Je voudrais d'abords juste voir les USB et uniquement pour ces USB connaître le drive letter.

Merci d'avance !

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
 
 
 strComputer = "."  
   Set objWMI = GetObject("winmgmts:" _ 
       & "{impersonationLevel=impersonate}!\\" & strComputer _ 
            & "\root\cimv2") 
   Set colDiskDrives = objWMI.ExecQuery _ 
       ("Select DeviceID from Win32_DiskDrive WHERE InterfaceType='USB'") 
   For Each objDiskDrive In colDiskDrives 
            strDeviceID = objDiskDrive.DeviceID     
            wscript.echo strdeviceID
 
            Set colDisks = objWMI.ExecQuery ("Select Name from Win32_LogicalDisk Where DriveType=2 And VolumeName='MERLIN'") 
            For each objDisk in colDisks 
              Merlindr = objDisk.Name  
            wscript.echo Merlindr
            next
 
Next

[ced600]

En combinant cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
strComputer = "."
Set objWMIService = GetObject( _
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
    ("Select * From Win32_LogicalDisk Where DeviceID = 'A:'")
 
For Each objItem in colItems
    intFreeSpace = objItem.FreeSpace
    If IsNull(intFreeSpace) Then
        Wscript.Echo "There is no disk in the floppy drive."
    Else
        Wscript.Echo "There is a disk in the floppy drive."
    End If
Next

(c'est pas parce que c'est utilisé pour le lecteur de disquette que tout est mauvais dans le code)

Et cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 strComputer = "."
Set objWMIService = GetObject(_
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery( _
    "Select * from Win32_USBHub")
For Each objItem in colItems
    Wscript.Echo "Device ID: " & objItem.DeviceID
    Wscript.Echo "PNP Device ID: " _
        & objItem.PNPDeviceID
    Wscript.Echo "Description: " _
        & objItem.Description
    Wscript.Echo
Next

Tu devrais pouvoir faire ce que tu veux.
Pour plus d'information et d'exemple regarde ici.

[chapeau_melon]

Je n'ai pas de lecteur A:

Pourriez-vous essayer cette modification ?
Est-ce qu'il y a un acces vers le drive A ? L'entendez-vous tourner, ne fuse qu'une fraction de seconde ?

(Il faudra donc racorder une clé usb avec le nom Merlin)

Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
strComputer = "."  
   Set objWMI = GetObject("winmgmts:" _ 
       & "{impersonationLevel=impersonate}!\\" & strComputer _ 
            & "\root\cimv2") 
 
 Set colDisks = objWMI.ExecQuery ("Select Name from Win32_LogicalDisk Where DriveType=2 And VolumeName='MERLIN' and DeviceID > 'A:'") 
 For each objDisk in colDisks 
              Merlindr = objDisk.Name  
  wscript.echo Merlindr
 next

[ced600]

Je n'ai pas de lecteur A:

Pourriez-vous essayer cette modification ?
Est-ce qu'il y a un acces vers le drive A ? L'entendez-vous tourner, ne fuse qu'une fraction de seconde ?

Pourquoi tu veut que j'essaye le code ?
Sais tu que tu peut remplacer dans le code la lettre A par B, C, D, ..... Bref n'importe qu'elle lettre de l'alphabet ?
Il te suffit de mettre une lettre qui correspond à un de tes lecteurs pour tester le fonctionnement du code.
C'est un code qui fonctionne pour n'importe quel lecteur, il faut juste mettre la lettre voulu.