|
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
|