# Write by Solli Moreira Honorio - Brazil
# shonorio@ig.com.br
# You can use as a GPL license
use strict;
use Win32::OLE;
use Win32::OLE::Enum;
use Win32::TieRegistry(Delimiter=>"/");

my $Machine = '.'; #Dot (.) equals local computer in WMI
my ( %Hardware, %Software );


GetHardwareInfo ($Machine,\%Hardware);
GetSoftwareInfo ($Machine,\%Software);

print "Hardware Info\n";
foreach my $Key01 ( keys %Hardware )
{
  print "\t$Key01\n";
  foreach my $Arr (@{$Hardware{$Key01}})
  {
    foreach my $Key02 (keys %{$Arr})
    {
      print "\t\t$Key02 : $Arr->{$Key02}\n";
    }
  }
}

print "Software Info\n";
foreach my $Key01 ( keys %Software )
{
  print "\t$Key01\n";
  foreach my $Arr (@{$Software{$Key01}})
  {
    foreach my $Key02 (keys %{$Arr})
    {
      print "\t\t$Key02 : $Arr->{$Key02}\n";
    }
  }
}

################################################################################
# Method     GetHardwareInfo
# Get        Server name and hash ref to rerturn
# Return     hash ref
################################################################################
sub GetHardwareInfo
{
    my ( $Server, $HardwareInfo ) = @_;
    my ( $Rtrn, %MetaData, $WMIServices, @Var );

    @{$MetaData{Win32_BIOS}{Properties}}                  = qw (Manufacturer Name PrimaryBIOS SerialNumber SMBIOSBIOSVersion SMBIOSMajorVersion SMBIOSMinorVersion SMBIOSPresent Status Version);
    @{$MetaData{Win32_ComputerSystem}{Properties}}        = qw (Description Manufacturer Model NumberOfProcessors ThermalState TotalPhysicalMemory);
    @{$MetaData{Win32_ComputerSystemProduct}{Properties}} = qw (Description IdentifyingNumber Name SKUNumber UUID Vendor Version);
    @{$MetaData{Win32_DiskDrive}{Properties}}             = qw (BytesPerSector Description ErrorDescription ErrorMethodology Index InterfaceType Manufacturer MediaType Model Name Partitions PNPDeviceID SCSIBus SCSILogicalUnit SCSIPort SCSITargetId SectorsPerTrack Signature Size Status StatusInfo TotalCylinders TotalHeads TotalSectors TotalTracks TracksPerCylinder);
    @{$MetaData{Win32_IDEController}{Properties}}         = qw (ConfigManagerErrorCode Manufacturer Name Status StatusInfo);
    @{$MetaData{Win32_LogicalDisk}{Properties}}           = qw (Name DriveType FileSystem Size SupportsFileBasedCompression VolumeName VolumeSerialNumber);
    @{$MetaData{Win32_PageFile}{Properties}}              = qw (Compressed CreationDate InitialSize MaximumSize Name);
    @{$MetaData{Win32_PhysicalMemory}{Properties}}        = qw (BankLabel Capacity DeviceLocator MemoryType Speed);
    @{$MetaData{Win32_Processor}{Properties}}             = qw (CpuStatus CurrentClockSpeed DeviceID Description ExtClock SocketDesignation Role Name MaxClockSpeed Manufacturer LastErrorCode L2CacheSize);
    @{$MetaData{Win32_SCSIController}{Properties}}        = qw (ConfigManagerErrorCode DriverName DeviceID Manufacturer Name Status StatusInfo);
    @{$MetaData{Win32_NetworkAdapter }{Properties}}       = qw (AdapterType ConfigManagerErrorCode Description DeviceID Index  LastErrorCode MACAddress Manufacturer Name ProductName ServiceName TimeOfLastReset);

    if ( $WMIServices = Win32::OLE->GetObject( "winmgmts:{impersonationLevel=impersonate,(security)}!//$Server/" ) )
    {
        foreach my $Instance ( keys %MetaData )
        {
            undef ( @Var );
            foreach my $Properties ( Win32::OLE::in( $WMIServices->InstancesOf( $Instance ) ) )
            {
                ++$#Var;
                foreach my $Property ( @{$MetaData{$Instance}{Properties}} )
                {
                    $Var[$#Var]{$Property} = $Properties->{$Property};
                }
            }
            push ( @{$HardwareInfo->{$Instance}}, @Var );
        }
    }
    else
    {
        return Win32::OLE->LastError();
    }
}

################################################################################
# Method     GetSoftwareInfo
# Get        Server name and hash ref to rerturn
# Return     hash ref
################################################################################
sub GetSoftwareInfo
{
    my ( $Server, $SoftwareInfo ) = @_;
    my ( $Rtrn, %MetaData, $WMIServices, @Var, %Uninstall );

    @{$MetaData{Win32_OperatingSystem}{Properties}} = qw (BootDevice BuildNumber BuildType Caption CodeSet CountryCode CSDVersion CSName CurrentTimeZone ForegroundApplicationBoost InstallDate LargeSystemCache LastBootUpTime Locale Manufacturer Organization OSLanguage OSProductSuite Primary ProductType RegisteredUser SerialNumber ServicePackMajorVersion ServicePackMinorVersion Version WindowsDirectory);
    @{$MetaData{Win32_NTEventlogFile}{Properties}}  = qw (Compressed CreationDate FileSize LogfileName MaxFileSize Name NumberOfRecords OverwriteOutDated OverWritePolicy Status);

    if ( $WMIServices = Win32::OLE->GetObject( "winmgmts:{impersonationLevel=impersonate,(security)}!//$Server/" ) )
    {
        foreach my $Instance ( keys %MetaData )
        {
            undef ( @Var );
            foreach my $Properties ( Win32::OLE::in( $WMIServices->InstancesOf( $Instance ) ) )
            {
                ++$#Var;
                foreach my $Property ( @{$MetaData{$Instance}{Properties}} )
                {
                    $Var[$#Var]{$Property} = $Properties->{$Property};
                }
            }
            push ( @{$SoftwareInfo->{$Instance}}, @Var );
        }

        # Get the Installed software
        %Uninstall = %{ $Registry->{"//$Server/HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall"} };
        undef ( @Var );

        foreach my $Key ( keys %Uninstall )
        {
            next if ( $Key =~ m/^\//i );
            next if ( $Uninstall{$Key}->{'/DisplayName'} eq '' );
            $Var[++$#Var]{Version}   = $Uninstall{$Key}->{'/DisplayVersion'};
            $Var[$#Var]{DisplayName} = $Uninstall{$Key}->{'/DisplayName'};
            $Var[$#Var]{InstallDate} = $Uninstall{$Key}->{'/InstallDate'};
            $Var[$#Var]{Publisher}   = $Uninstall{$Key}->{'/Publisher'};
            $Key                     =~ s/\///ig;
            $Var[$#Var]{ProdID}      = $Key;
        }
        push ( @{$SoftwareInfo->{SoftwareInstalled}}, @Var );

        # Get the hotfix
        %Uninstall = %{ $Registry->{"//$Server/HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows NT/CurrentVersion/Hotfix"} };
        undef ( @Var );

        foreach my $Key ( keys %Uninstall )
        {
            $Var[++$#Var]{Version}   = $Uninstall{$Key}->{'/Comments'};
            $Key                     =~ s/\///ig;
            $Var[$#Var]{ProdID}      = $Key;
        }
        push ( @{$SoftwareInfo->{HotFix}}, @Var );

        return undef;
    }
    else
    {
        return Win32::OLE->LastError();
    }
    return undef;
}