Devi importare il Namespace :
Ti potrei consigliare ad esempio di importare il modello della scheda madre?codice:Imports System.Management
codice:Dim objManage As String Dim oq As New SelectQuery("Win32_ComputerSystem") Dim searcher As New ManagementObjectSearcher(oq) For Each obj As ManagementObject In searcher.[Get]() objManage = DirectCast(obj("Model"), String) oq = Nothing searcher = Nothing Dim computerModel as String = objManage Next![]()

Rispondi quotando