List Basic Computer Information

Description

Returns basic hardware and configuration information about a computer.

This script was tested using Object REXX 2.1.0 for Microsoft Windows, available from IBM.

Supported Platforms

Script Code

strComputer = "."
objWMIService = .OLEObject~GetObject("winmgmts:\\"||strComputer||"\root\CIMV2")
do objItem over objWMIService~ExecQuery("Select * from Win32_ComputerSystem")
    say "Admin Password Status:" objItem~AdminPasswordStatus
    say "Automatic Reset Boot Option:" objItem~AutomaticResetBootOption
    say "Automatic Reset Capability:" objItem~AutomaticResetCapability
    say "Boot Option On Limit:" objItem~BootOptionOnLimit
    say "Boot Option On WatchDog:" objItem~BootOptionOnWatchDog
    say "Boot ROM Supported:" objItem~BootROMSupported
    say "Bootup State:" objItem~BootupState
    say "Caption:" objItem~Caption
    say "Chassis Bootup State:" objItem~ChassisBootupState
    say "Creation Class Name:" objItem~CreationClassName
    say "Current Time Zone:" objItem~CurrentTimeZone
    say "Daylight In Effect:" objItem~DaylightInEffect
    say "Description:" objItem~Description
    say "Domain:" objItem~Domain
    say "Domain Role:" objItem~DomainRole
    say "Enable Daylight Savings Time:" objItem~EnableDaylightSavingsTime
    say "Front Panel Reset Status:" objItem~FrontPanelResetStatus
    say "Infrared Supported:" objItem~InfraredSupported
    z = objItem~InitialLoadInfo
    if .NIL <> z then
        do x over z
            say objProperty.Name ": " x
    end
    say "Install Date:" objItem~InstallDate
    say "Keyboard Password Status:" objItem~KeyboardPasswordStatus
    say "Last Load Info:" objItem~LastLoadInfo
    say "Manufacturer:" objItem~Manufacturer
    say "Model:" objItem~Model
    say "Name:" objItem~Name
    say "Name Format:" objItem~NameFormat
    say "Network Server Mode Enabled:" objItem~NetworkServerModeEnabled
    say "Number Of Processors:" objItem~NumberOfProcessors
    z = objItem~OEMLogoBitmap
    if .NIL <> z then
        do x over z
            say objProperty.Name ": " x
    end
    z = objItem~OEMStringArray
    if .NIL <> z then
        do x over z
            say objProperty.Name ": " x
    end
    say "Part Of Domain:" objItem~PartOfDomain
    say "Pause After Reset:" objItem~PauseAfterReset
    z = objItem~PowerManagementCapabilities
    if .NIL <> z then
        do x over z
            say objProperty.Name ": " x
    end
    say "Power Management Supported:" objItem~PowerManagementSupported
    say "PowerOn Password Status:" objItem~PowerOnPasswordStatus
    say "Power State:" objItem~PowerState
    say "Power Supply State:" objItem~PowerSupplyState
    say "Primary Owner Contact:" objItem~PrimaryOwnerContact
    say "Primary Owner Name:" objItem~PrimaryOwnerName
    say "Reset Capability:" objItem~ResetCapability
    say "Reset Count:" objItem~ResetCount
    say "Reset Limit:" objItem~ResetLimit
    z = objItem~Roles
    if .NIL <> z then
        do x over z
            say objProperty.Name ": " x
    end
    say "Status:" objItem~Status
    z = objItem~SupportContactDescription
    if .NIL <> z then
        do x over z
            say objProperty.Name ": " x
    end
    say "System Startup Delay:" objItem~SystemStartupDelay
    z = objItem~SystemStartupOptions
    if .NIL <> z then
        do x over z
            say objProperty.Name ": " x
    end
    say "System Startup Setting:" objItem~SystemStartupSetting
    say "System Type:" objItem~SystemType
    say "Thermal State:" objItem~ThermalState
    say "Total Physical Memory:" objItem~TotalPhysicalMemory
    say "User Name:" objItem~UserName
    say "WakeUp Type:" objItem~WakeUpType
    say "Workgroup:" objItem~Workgroup
end

For online peer support, join the microsoft.public.windows.server.scripting community on the msnews.microsoft.com news server. To provide feedback or report bugs in sample scripts or the Scripting Guide, please contact Microsoft TechNet.

Disclaimer

The sample scripts are not supported under any Microsoft standard support program or service. The sample scripts are provided AS IS without warranty of any kind. Microsoft further disclaims all implied warranties including, without limitation, any implied warranties of merchantability or of fitness for a particular purpose. The entire risk arising out of the use or performance of the sample scripts and documentation remains with you. In no event shall Microsoft, its authors, or anyone else involved in the creation, production, or delivery of the scripts be liable for any damages whatsoever (including, without limitation, damages for loss of business profits, business interruption, loss of business information, or other pecuniary loss) arising out of the use of or inability to use the sample scripts or documentation, even if Microsoft has been advised of the possibility of such damages.

Top of page