[R] detecter la connexion d'un disque USB (et sa taille)
Posté : ven. 20 déc. 2013 12:45
Salut à tous !
Je suis en train d'essayer, à des fins d'industrialisation de duplication de disques (avec de multiples masters) de détecter le disque dur qui va être connecté dans une station d'accueil USB.
J'ai zoné sur le forum américain, trouvé un certain nombre de choses, "frankensteinisé" quelques scripts (IT'S *almost* ALIVE !), sans vraiment réussir à obtenir un résultat probant :
Un p'ti coup de main ? 
Merci d'avance !
Je suis en train d'essayer, à des fins d'industrialisation de duplication de disques (avec de multiples masters) de détecter le disque dur qui va être connecté dans une station d'accueil USB.
J'ai zoné sur le forum américain, trouvé un certain nombre de choses, "frankensteinisé" quelques scripts (IT'S *almost* ALIVE !), sans vraiment réussir à obtenir un résultat probant :
Code : Tout sélectionner
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = @ComputerName
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
$colEvents = $objWMIService.ExecNotificationQuery _
("Select * From __InstanceOperationEvent Within 5 Where " _
& "TargetInstance isa 'Win32_LogicalDisk'")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)
While 1
$objEvent = $colEvents.NextEvent
ConsoleWrite($objEvent.TargetInstance.DriveType)
If $objEvent.TargetInstance.DriveType = 4 Then
For $objItem In $colItems
;~ If $objItem.DeviceID <> "\\.\PHYSICALDRIVE0" Then
MsgBox(0, "", $objItem.DeviceID & " - Size: " & Round($objItem.Size / 1024 ^ 3, 2) & "Gb")
;~ EndIf
Next
EndIf
WEndMerci d'avance !
