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 |