• Home
 · 
• Internet/HTML
 · 
• WMI sample: retrieves computer system information of a (remote) computer, like domain membership, n

WMI sample: retrieves computer system information of a (remote) computer, like domain membership, n

WMI sample: retrieves computer system information of a (remote) computer, like domain membership, name, description, time zone. Written in

Rate WMI sample: retrieves computer system information of a (remote) computer, like domain membership, n

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

' This function lists computer system information of a (remote) computer,
' like domain membership, name, description, time zone

' Goto http://www.activexperts.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.activexperts.com/activmonitor and click" )
WScript.Echo( "On WMI samples" )