Rev 198 | Blame | Last modification | View Log | Download | RSS feed
# perl
# https://gallery.technet.microsoft.com/827da133-e0b1-4d09-85c2-56ed0b92774d
# simply exit if this is not Windows
BEGIN {
$^O eq "MSWin32" || exit;
}
our $VERSION = '0.1';
use Win32::OLE('in');
use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;
$computer = ".";
$objWMIService = Win32::OLE->GetObject
("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection failed.\n";
$colItems = $objWMIService->ExecQuery
("SELECT * FROM Win32_ComputerSystem","WQL",wbemFlagReturnImmediately | wbemFlagForwardOnly);
foreach my $objItem (in $colItems)
{
print "Admin Password Status: $objItem->{AdminPasswordStatus}\n";
print "Automatic Reset Boot Option: $objItem->{AutomaticResetBootOption}\n";
print "Automatic Reset Capability: $objItem->{AutomaticResetCapability}\n";
print "Boot Option On Limit: $objItem->{BootOptionOnLimit}\n";
print "Boot Option On WatchDog: $objItem->{BootOptionOnWatchDog}\n";
print "Boot ROM Supported: $objItem->{BootROMSupported}\n";
print "Bootup State: $objItem->{BootupState}\n";
print "Caption: $objItem->{Caption}\n";
print "Chassis Bootup State: $objItem->{ChassisBootupState}\n";
print "Creation Class Name: $objItem->{CreationClassName}\n";
print "Current Time Zone: $objItem->{CurrentTimeZone}\n";
print "Daylight In Effect: $objItem->{DaylightInEffect}\n";
print "Description: $objItem->{Description}\n";
print "Domain: $objItem->{Domain}\n";
print "Domain Role: $objItem->{DomainRole}\n";
print "Enable Daylight Savings Time: $objItem->{EnableDaylightSavingsTime}\n";
print "Front Panel Reset Status: $objItem->{FrontPanelResetStatus}\n";
print "Infrared Supported: $objItem->{InfraredSupported}\n";
print "Initial Load Info: " . join(",", (in $objItem->{InitialLoadInfo})) . "\n";
print "Install Date: $objItem->{InstallDate}\n";
print "Keyboard Password Status: $objItem->{KeyboardPasswordStatus}\n";
print "Last Load Info: $objItem->{LastLoadInfo}\n";
print "Manufacturer: $objItem->{Manufacturer}\n";
print "Model: $objItem->{Model}\n";
print "Name: $objItem->{Name}\n";
print "Name Format: $objItem->{NameFormat}\n";
print "Network Server Mode Enabled: $objItem->{NetworkServerModeEnabled}\n";
print "Number Of Processors: $objItem->{NumberOfProcessors}\n";
print "OEM Logo Bitmap: " . join(",", (in $objItem->{OEMLogoBitmap})) . "\n";
print "OEM String Array: " . join(",", (in $objItem->{OEMStringArray})) . "\n";
print "Part Of Domain: $objItem->{PartOfDomain}\n";
print "Pause After Reset: $objItem->{PauseAfterReset}\n";
print "Power Management Capabilities: " . join(",", (in $objItem->{PowerManagementCapabilities})) . "\n";
print "Power Management Supported: $objItem->{PowerManagementSupported}\n";
print "PowerOn Password Status: $objItem->{PowerOnPasswordStatus}\n";
print "Power State: $objItem->{PowerState}\n";
print "Power Supply State: $objItem->{PowerSupplyState}\n";
print "Primary Owner Contact: $objItem->{PrimaryOwnerContact}\n";
print "Primary Owner Name: $objItem->{PrimaryOwnerName}\n";
print "Reset Capability: $objItem->{ResetCapability}\n";
print "Reset Count: $objItem->{ResetCount}\n";
print "Reset Limit: $objItem->{ResetLimit}\n";
print "Roles: " . join(",", (in $objItem->{Roles})) . "\n";
print "Status: $objItem->{Status}\n";
print "Support Contact Description: " . join(",", (in $objItem->{SupportContactDescription})) . "\n";
print "System Startup Delay: $objItem->{SystemStartupDelay}\n";
print "System Startup Options: " . join(",", (in $objItem->{SystemStartupOptions})) . "\n";
print "System Startup Setting: $objItem->{SystemStartupSetting}\n";
print "System Type: $objItem->{SystemType}\n";
print "Thermal State: $objItem->{ThermalState}\n";
print "Total Physical Memory: $objItem->{TotalPhysicalMemory}\n";
print "User Name: $objItem->{UserName}\n";
print "WakeUp Type: $objItem->{WakeUpType}\n";
print "Workgroup: $objItem->{Workgroup}\n";
print "\n";
}
<STDIN>;