Enum NetworkAvailability As Integer Other = 1 Unknown = 2 RunningFullPower = 3 Warning = 4 InTest = 5 NotApplicable = 6 PowerOff = 7 OffLine = 8 OffDuty = 9 Degraded = 10 NotInstalled = 11 InstallError = 12 PowerSaveUnknown = 13 PowerSaveLowPowerMode = 14 PowerSaveStandby = 15 PowerCycle
‘ Returns the system type, for example “X86-based PC” or “Power PC”‘ Requires a reference to System.Management and the respective ImportsFunction GetSystemType() As String Dim mos As New ManagementObjectSearcher _ (“SELECT * FROM Win32_ComputerSystem”) Dim mo As ManagementObject For Each mo In mos.Get() Return mo(“SystemType”) NextEnd Function
‘ Returns the computer manufacturer name’ Requires a reference to System.Management and the respective ImportsFunction GetComputerManufacturer() As String Dim mos As New ManagementObjectSearcher _ (“SELECT * FROM Win32_ComputerSystem”) Dim mo As ManagementObject For Each mo In mos.Get() Return mo(“Manufacturer”) NextEnd Function
‘ Returns the physical memory amount, in bytes’ Requires a reference to System.Management and the respective ImportsFunction GetPhysicalMemory() As Long Dim mos As New ManagementObjectSearcher _ (“SELECT * FROM Win32_ComputerSystem”) Dim mo As ManagementObject For Each mo In mos.Get() Return Long.Parse(mo(“TotalPhysicalMemory”).ToString()) NextEnd Function
Enum DomainRole As Integer StandaloneWorkstation = 0 MemberWorkstation = 1 StandaloneServer = 2 MemberServer = 3 BackupDomainController = 4 PrimaryDomainController = 5End Enum’ Returns the domain role’ Requires a reference to System.Management and the respective ImportsFunction GetDomainRole() As DomainRole Dim mos As New ManagementObjectSearcher _ (“SELECT * FROM Win32_ComputerSystem”) Dim
‘ Returns the domain name’ Requires a reference to System.Management and the respective ImportsFunction GetDomainName() As String Dim mos As New ManagementObjectSearcher _ (“SELECT * FROM Win32_ComputerSystem”) Dim mo As ManagementObject For Each mo In mos.Get() Return mo(“Domain”) NextEnd Function
‘ Returns the computer model’ Requires a reference to System.Management and the respective ImportsFunction GetComputerModel() As String Dim mos As New ManagementObjectSearcher _ (“SELECT * FROM Win32_ComputerSystem”) Dim mo As ManagementObject For Each mo In mos.Get() Return mo(“Model”) NextEnd Function
‘ Returns the free physical memory amount, in bytes’ Requires a reference to System.Management and the respective ImportsFunction GetFreePhysicalMemory() As Long Dim mos As New ManagementObjectSearcher _ (“SELECT * FROM Win32_OperatingSystem”) Dim mo As ManagementObject For Each mo In mos.Get() Return Long.Parse(mo(“FreePhysicalMemory”).ToString()) NextEnd Function