by Bart Jonkman (20 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Wed 19th February 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
WMI sample showing how to list computer system information of a (remote) computer, like domain membership, name, description, time zone, using
VBcoders
' This function lists computer system information of a (remote) computer,
' like domain membership, name, description, time zone
' Goto http://www.activxperts.com/activmonitor and click on WMI Samples
' for more samples
Sub ListComputerSystem( strComputer )
Dim objWMIService, colItems
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
Wscript.Echo "AdminPasswordStatus: " & objItem.AdminPasswordStatus
Wscript.Echo "AutomaticResetBootOption: " & objItem.AutomaticResetBootOption
Wscript.Echo "AutomaticResetCapability: " & objItem.AutomaticResetCapability
Wscript.Echo "BootOptionOnLimit: " & objItem.BootOptionOnLimit
Wscript.Echo "BootOptionOnWatchDog: " & objItem.BootOptionOnWatchDog
Wscript.Echo "BootROMSupported: " & objItem.BootROMSupported
Wscript.Echo "BootupState: " & objItem.BootupState
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "ChassisBootupState: " & objItem.ChassisBootupState
Wscript.Echo "CreationClassName: " & objItem.CreationClassName
Wscript.Echo "CurrentTimeZone: " & objItem.CurrentTimeZone
Wscript.Echo "DaylightInEffect: " & objItem.DaylightInEffect
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Domain: " & objItem.Domain
Wscript.Echo "DomainRole: " & objItem.DomainRole
Wscript.Echo "FrontPanelResetStatus: " & objItem.FrontPanelResetStatus
Wscript.Echo "InfraredSupported: " & objItem.InfraredSupported
Wscript.Echo "InitialLoadInfo: " & objItem.InitialLoadInfo
Wscript.Echo "InstallDate: " & objItem.InstallDate
Wscript.Echo "KeyboardPasswordStatus: " & objItem.KeyboardPasswordStatus
Wscript.Echo "LastLoadInfo: " & objItem.LastLoadInfo
Wscript.Echo "Manufacturer: " & objItem.Manufacturer
Wscript.Echo "Model: " & objItem.Model
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "NameFormat: " & objItem.NameFormat
Wscript.Echo "NetworkServerModeEnabled: " & objItem.NetworkServerModeEnabled
Wscript.Echo "NumberOfProcessors: " & objItem.NumberOfProcessors
Wscript.Echo "OEMLogoBitmap: " & objItem.OEMLogoBitmap
Wscript.Echo "OEMStringArray: " & objItem.OEMStringArray
Wscript.Echo "PauseAfterReset: " & objItem.PauseAfterReset
Wscript.Echo "PowerManagementCapabilities: " & objItem.PowerManagementCapabilities
Wscript.Echo "PowerManagementSupported: " & objItem.PowerManagementSupported
Wscript.Echo "PowerOnPasswordStatus: " & objItem.PowerOnPasswordStatus
Wscript.Echo "PowerState: " & objItem.PowerState
Wscript.Echo "PowerSupplyState: " & objItem.PowerSupplyState
Wscript.Echo "PrimaryOwnerContact: " & objItem.PrimaryOwnerContact
Wscript.Echo "PrimaryOwnerName: " & objItem.PrimaryOwnerName
Wscript.Echo "ResetCapability: " & objItem.ResetCapability
Wscript.Echo "ResetCount: " & objItem.ResetCount
Wscript.Echo "ResetLimit: " & objItem.ResetLimit
Wscript.Echo "Roles: " & objItem.Roles
Wscript.Echo "Status: " & objItem.Status
Wscript.Echo "SupportContactDescription: " & objItem.SupportContactDescription
Wscript.Echo "SystemStartupDelay: " & objItem.SystemStartupDelay
Wscript.Echo "SystemStartupOptions: " & objItem.SystemStartupOptions
Wscript.Echo "SystemStartupSetting: " & objItem.SystemStartupSetting
Wscript.Echo "SystemType: " & objItem.SystemType
Wscript.Echo "ThermalState: " & objItem.ThermalState
Wscript.Echo "TotalPhysicalMemory: " & objItem.TotalPhysicalMemory
Wscript.Echo "UserName: " & objItem.UserName
Wscript.Echo "WakeUpType: " & objItem.WakeUpType
Next
End Sub
' Main
Dim strComputer
Do
strComputer = inputbox( "Please enter a computername or . for local computer", "Input" )
Loop until strComputer <> ""
ListComputerSystem( strComputer )
WScript.Echo( vbCrlf & "For more samples, goto http://www.activxperts.com/activmonitor and click" )
WScript.Echo( "On WMI samples" )
No comments have been posted about WMI sample showing how to list computer system information of a (remote) computer, like domain memb. Why not be the first to post a comment about WMI sample showing how to list computer system information of a (remote) computer, like domain memb.
