General |
6.171 WMI - SystemInfo (Informazioni sul Sistema Operativo) |
Alessandro Baraldi |
La funzione GetSystemInfo() estrae i dati più significativi del Sistema Operativo con WMI_Classes. Per maggiori dettagli sui Metodi e le proprietà della Classe Win32_OperatingSystem vedere il sito http://msdn.microsoft.com/library/en-us/wmisdk/wmi/win32_operatingsystem.asp Public Function GetSystemInfo() Dim system As Object For Each system In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem") MsgBox system.Caption MsgBox system.Manufacturer MsgBox system.BuildType MsgBox " Version: " + system.Version MsgBox " Locale: " + system.Locale MsgBox " Windows Directory: " + system.WindowsDirectory MsgBox " Total memory: " + system.TotalVisibleMemorySize + " bytes" MsgBox " Serial Number: " + system.SerialNumber Next End Functio |