|
General |
| 6.173 WMI - EnumDisk (Elenca i dischi del computer) |
| Alessandro Baraldi |
|
Il codice VBA che segue mostra come realizzare l'elenco dei dischi contenuti nel computer attraverso la Classe Win32_LogicalDisk di WMI. Maggiori informazioni sull'argomento possono essere letti al link: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_logicaldisk.asp Questa funzione può essere usata per popolare direttamente l'origine riga du una casella combinata o di una casella di riepilogo. 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 sistema 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
|