Passa ai contenuti principali

Una funzione per leggere i parametri di sistema utilizzando le WMI Management Class

Il namespace System.Management (contenuto nell’assembly System.Management.dll) contiene un insieme di classi che ci consentono di eseguire delle query nei parametri del sistema operativo alla ricerca di entità altrimenti non recuperabili con le classi del framework.

La classe fondamentale è la ManagementObjectSearcher la cui funzione è quella di eseguire delle vere e proprie query (stile SQL) all’interno delle “tabelle” di sistema e restituire una collezione di ManagementObject contenenti i valori.

Ad esempio per eseguire una ricerca all’interno dei parametri del processore, possiamo scrivere:

  1. Dim oSearcher As New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
  2. Dim oMgmtObjs = oSearcher.Get


La collezione oMgmtObjs contiene l’insieme dei parametri di sistema della “tabella” Win32_Processor.

La struttura ritornata dalla query è consultabile all’indirizzo http://msdn.microsoft.com/en-us/library/aa394373(v=VS.85).aspx e troviamo, ad esempio, il parametro Manufacturer che ci fornisce informazioni riguardanti il costruttore del processore.

La seguente funzione permette di accedere ad una collezione di oggetti di una tabella di sistema a partire dal nome della tabella e del campo:

  1. Public Function GetWMIField(ByVal wmiClass As String, ByVal wmiField As String) As IEnumerable(Of Object)
  2.     Dim retObj As IEnumerable(Of Object) = Nothing
  3.     Try
  4.         Using oSearcher = New ManagementObjectSearcher(String.Format("SELECT * FROM {0}", wmiClass))
  5.             Dim oMgmtObjs = oSearcher.Get
  6.             If oMgmtObjs IsNot Nothing Then
  7.                 Try
  8.                     retObj = (From i In oMgmtObjs.OfType(Of ManagementObject)()
  9.                                 Select i(wmiField)).ToList()
  10.                 Catch ex As Exception
  11.                     Throw New ApplicationException("WMIField not exists!")
  12.                 End Try
  13.             End If
  14.         End Using
  15.     Catch ex As Exception
  16.         Throw New ApplicationException("WMIClass not exists!")
  17.     End Try
  18.     Return retObj
  19. End Function

Utilizzando questa funzione possiamo ricavare, ad esempio l’identificativo del processore, la data di installazione del sistema operativo o il tipo di batteria installata in un notebook:

  1. Sub Main()
  2.     Dim processorID = GetWMIField("Win32_Processor", "ProcessorId").First()
  3.     Dim osInstallDate = GetWMIField("Win32_OperatingSystem", "InstallDate").First()
  4.     Dim CurrentReading = GetWMIField("Win32_Battery", "Chemistry").First()
  5. End Sub

Per avere la lista completa delle classi WMI Win32 su cui eseguire la ricerca, vedere il link http://msdn.microsoft.com/en-us/library/aa394084(v=VS.85).aspx mentre l’intero elenco delle classi WMI è disponibile all’indirizzo http://msdn.microsoft.com/en-us/library/aa394554(v=VS.85).aspx.  

Commenti

Post popolari in questo blog

VB.NET: Convertire un file DOC in RTF e PDF con office interop

In questo post vorrei proporvi del codice per poter convertire un file .doc in un file .rtf oppure .pdf utilizzando le API di interoperabilità di Office.Creeremo una classe, DocConverter, che esporrà le due funzionalità sopra citate.Cominciamo con il prevedere un attributo privato della classe che rappresenterà l’applicazione Word che utilizzeremo per la conversione. Creeremo l’istanza dell’attributo privato all’interno del costruttore della classe:PublicSubNew()
IfNot CreateWordApp() Then
ThrowNew ApplicationException("Assembly di interoperabilità con Office non trovato!")
EndIf
EndSub
Private _wordApp As Word.ApplicationClass
ProtectedFunction CreateWordApp() AsBoolean
Dim retval = True
Try
_wordApp = New Word.ApplicationClass()
_wordApp.Visible = False
Catch ex As System.Exception
_wordApp = Nothing
retval = False
EndTry
Return retval
EndFunction

La conversione del file doc sarà effettuata aprendo il file stesso ed eseguendo un’operazione di SaveAs:

Pr…

Cambiare la lingua di Visual Studio 2008

Oggi ho avuto qualche problema installando Windows Mobile 6 Professional SDK Refresh e Windows Mobile 6 Standard SDK Refresh.Scaricati i file di installazione e installati, ho provato a creare un progetto di tipo Windows Mobile 6.0 e mi sono beccato questo errore:Dopo qualche smanettamento abbiamo scoperto (e ringrazio il mitico Matteo per l’aiuto) che il mio Visual Studio 2008, pur essendo in Inglese (prova ne era il fatto che gli hotfix e la SP installata erano nella lingua di Albione) aveva come lingua impostata quella del sistema operativo (italiano).Ovviamente, non avrebbe mai potuto trovare la cartella 1040 (italiano) visto che l’installazione dell’SDK aveva supposto che la lingua del Visual Studio fosse Inglese (1033).La soluzione del problema è duplice:1) Duplicate la cartella 1033 presente nel percorso evidenziato dall’errore e la rinominate 10402) cambiate la lingua di Visual Studio.Per questa ultima eventualità basta andare nel menù Strumenti/Opzioni:e cambiare il linguaggi…

Tascam DR-05 registratore digitale per tutti

Diverso tempo fa ho acquistato il registratore digitale Tascam DR-05 e, ora, dopo diversi mesi di utilizzo, posso dire la mia a proposito.

Si tratta di un ottimo registratore digitale con microfono stereo che permette di ottenere registrazioni di ottima qualitaà anche in ambienti non perfetti dal punto di vista acustico.

Interessante la possibilità di utilizzare un cavalletto di piccole dimensioni come HAMA Mini treppiede o Mini Cavalletto Universale per tenere il microfono sollevato dal tavolo in fase di registrazione grazie allàattacco universale per macchina fotografica che il microfono ha nella parte inferiore.

Da segnalare anche il menu’ ben fatto e la possibilita’ di utilizzare una scheda SD esterna per memorizzare i file audio. Anche a livello di consumo batterie non e’ niente male. Consiglio l’uso delle alcaline non ricaricabili.

Il mio utilizzo e’ stato prettamente di registrazione di podcast vocali (no musica) ma le recensioni confermano che se la cava egregiamente con la mu…