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…

VB.NET for Dummies: Gli Eventi

Vorrei iniziare con questo post una serie dedicata ad aspetti di VB.NET di base che possono essere utile a coloro che si avvicinano al mondo .NET e che, in genere, non vengono trattati a livello base.La serie di post non ha la pretesa di essere assolutamente esaustivi sugli argomenti che tratteròIn questo primo post parleremo degli eventi.Cosa sono e a cosa servonoUn evento è la “notifica” dell’accadimento di qualcosa.Quando, ad esempio, premiamo un bottone della finestra di un’applicazione, dietro le quinte, il bottone stesso “notifica” al mondo circostante che qualcuno, in quell’istante, lo ha premuto.Sta, poi, al mondo circostante preoccuparsi di “intercettare” l’evento stesso per gestirlo (tramite un gestore di evento).Attenzione a non confondere la pressione del tasto con la “notifica” della pressione del tasto: l’evento è la “notifica” dell’accadimento, non l’accadimento stesso.Ma a cosa serve tutto ciò?Utilizzare gli eventi è un modo per disaccoppiare due o più attori del nostr…

Creare uno shortcut con VB.NET

Prendendo spunto da un post comparso sul forum MSDN vorrei proporvi un tip su come creare uno shortcut utilizzando VB.NET.Per poter creare uno shortcut possiamo procedere in due modi: o ci studiamo la struttura del file .lnk e scriviamo una classe che è in grado di ricreare tale struttura oppure utilizziamo Windows Scripting Host.La prima soluzione è percorribile ma laboriosa perchè la struttura di un file lnk non è banale. Chi fosse interessato a vedere come è composto, internamente, un file lnk può scaricare la seguente reference guide (link).Io vorrei proporvi la seconda strada e realizzerò una classe che incapsula l’utilizzo di Windows Scripting Host.L’object model di Windows Scripting Host è contenuto nella dll IWshRuntimeLibrary che può essere referenziata, nel nostro progetto, utilizzando il tab COM della finestra di aggiunta delle reference:Tra gli oggetti che troviamo all’interno della libreria utilizzeremo la classe WshShell e la classe WshShortcut.La prima delle due rappres…