CISA FotoGallery

Statistiche

Tot. visite contenuti : 909752
Home Articoli tecnici General WMI-EnumDisk (Elenca i Dischi della macchina)

WMI-EnumDisk (Elenca i Dischi della macchina)

Questo Demo mostra come l'elenco dei Dischi attraverso la Classe Win32_LogicalDisk di WMI.
Per INFO sui Metodi e Proprietà vedere:
 

http://msdn.microsoft.com/en-us/library/windows/desktop/aa394173%28v=vs.85%29.aspx

Questa funzione può essere usata per popolare una Combo/List direttamente.

La particolarità è che possiamo recuperare le stesse informazioni anche di una macchina in rete sostituendo
a localhost l'indirizzo IP o il MACHINE_NAME del remoto.

Public Function retLocalDisk() As String
Dim services As Object
Dim disk As Object
Dim s As String
Set services = GetObject("winmgmts://localhost")
' Display each disk using a message box
For Each disk In services.ExecQuery("select * from Win32_LogicalDisk")
s = s & disk.DeviceID & ";"
Next
Set services = Nothing
Set disk = Nothing
If Len(s) > 1 Then retLocalDisk = s
End Function


Alessandro Baraldi