cipi
18-10-2004, 17:31
Imports System.Management
Public Class InfoSistema
Public Overloads Shared Function OttieniSeriale() As Integer
Dim HDinformation As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
Dim HD As ManagementObject
Console.WriteLine("Test")
For Each HD In HDinformation.Get()
Console.WriteLine(HD("SerialNumber").ToString())
Next
Return 0
End Function
End Class
Cosa non va?
Mi da errore all'inizio del FOR EACH dicendo che la classe non è valida :confused:
:help:
Public Class InfoSistema
Public Overloads Shared Function OttieniSeriale() As Integer
Dim HDinformation As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
Dim HD As ManagementObject
Console.WriteLine("Test")
For Each HD In HDinformation.Get()
Console.WriteLine(HD("SerialNumber").ToString())
Next
Return 0
End Function
End Class
Cosa non va?
Mi da errore all'inizio del FOR EACH dicendo che la classe non è valida :confused:
:help: