在WINDOWS下用PERL得到顯卡容量大小用那個模塊！！

zhangkeyijian

幫幫忙�。。�

[ 本帖最后由 zhangkeyijian 于 2009-12-7 12:27 編輯 ]

mwm5

dmesg里頭直接取就可以吧？

Linux agpgart interface v0.103
agpgart-intel 0000:00:00.0: Intel 440BX Chipset
agpgart-intel 0000:00:00.0: AGP aperture is 256M @ 0x0

zhangkeyijian

謝謝�。� 在linux里可以用這個方法！

  我想在WINDOWS下實現(xiàn)這個效果。

真不好意思，沒有把標(biāo)題說清楚！

蘭花仙子

Found this while I'm not sure if it's the right one for you:

http://search.cpan.org/~scottvr/perl-vgalib-0.4/vga.pm

mwm5

http://search.cpan.org/~corion/DBD-WMI-0.06/lib/DBD/WMI.pm

http://msdn.microsoft.com/en-us/library/aa394512%28VS.85%29.aspx

use DBI;
my $dbh = DBI->connect('dbi:WMI:');

my $sth = $dbh->prepare(<<WQL);
SELECT * FROM Win32_VideoController
WQL

$sth->execute();
while (my @row = $sth->fetchrow) {
my $dev = $row[0];
print join "\t",$dev->{DeviceID},$dev->{AdapterRAM};
print "\n";
}

VideoController1        134217728
VideoController2        134217728

[ 本帖最后由 mwm5 于 2009-12-7 21:46 編輯 ]

x9x9

看看這個可以嗎？
http://gallery.technet.microsoft ... 3-a11f-fc42897006fc

ulmer

Using Windows WMI or Powershell. it's very easy to get many
informations about PC, so CPAN provides DBD::WMI module to
to do that.

i.e.:  PS C:\> Get-WmiObject Win32_DisplayConfiguration
...
PelsHeight           : 768
PelsWidth            : 1024
SettingID            : GeForce4 440 (64M)
SpecificationVersion : 1025

Install DBD::WMI
C:\>ppm install DBD::WMI
Read docu first
C:\>perldoc DBD::WMI

Sample Code to get display info.:

use strict;
use DBI;

my $dbh = DBI->connect('dbi:WMI:');
my @fields = qw (
    BitsPerPel
    Caption
    Description
    DeviceName
    DisplayFlags
    DisplayFrequency
    DitherType
    DriverVersion
    ICMIntent
    ICMMethod
    LogPixels
    PelsHeight
    PelsWidth
    SettingID
    SpecificationVersion
);
my $wql = "SELECT ". join(", ", @fields). " FROM Win32_DisplayConfiguration";
my $sth = $dbh->prepare($wql);
$sth->execute();
my @ary = $dbh->selectrow_array($sth);
foreach my $cnt (0 .. $#fields) {
        print $fields[$cnt], ": ", ($ary[$cnt]) ? $ary[$cnt] : "undef", "\n";
}
exit;

ulmer

原帖由 ulmer 于 2009-12-7 21:33 發(fā)表
Using Windows WMI or Powershell. it's very easy to get many
informations about PC, so CPAN provides DBD::WMI module to
to do that.


Install DBD::WMI
C:\>ppm install DBD::WMI
Read docu fi ...

For WMI Win32_VideoController Class:

@fields = qw(
    AcceleratorCapabilities AdapterCompatibility AdapterDACType  AdapterRAM
   Availability CapabilityDescriptions Caption ColorTableEntries
   ConfigManagerErrorCode ConfigManagerUserConfig CreationClassName
   Win32_VideoController CurrentBitsPerPixel CurrentHorizontalResolution
   CurrentNumberOfColors CurrentNumberOfColumns CurrentNumberOfRows
   CurrentRefreshRate CurrentScanMode CurrentVerticalResolution
   Description DeviceID DeviceSpecificPens DitherType DriverDate
   DriverVersion ErrorCleared ErrorDescription ICMIntent ICMMethod
    InfFilename InfSection InstallDate  InstalledDisplayDrivers
    LastErrorCode MaxMemorySupported MaxNumberControlled
    MaxRefreshRate  MinRefreshRate Monochrome Name NumberOfColorPlanes
    NumberOfVideoPages PNPDeviceID PowerManagementCapabilities
    PowerManagementSupported ProtocolSupported ReservedSystemPaletteEntries
    SpecificationVersion  Status  StatusInfo SystemCreationClassName
    SystemName  SystemPaletteEntries TimeOfLastReset  VideoArchitecture
    VideoMemoryType  VideoMode  VideoModeDescription  VideoProcessor
);
$wql = "SELECT ". join(", ", @fields). " FROMWin32_VideoController";   

xti9er

原帖由 ulmer 于 2009-12-7 21:33 發(fā)表
Using Windows WMI or Powershell. it's very easy to get many
informations about PC, so CPAN provides DBD::WMI module to
to do that.


Install DBD::WMI
C:\>ppm install DBD::WMI
Read docu fi ...

PS C:\> Get-WmiObject Win32_VideoController|select AdapterRAM

                                                                     AdapterRAM
                                                                     ----------
                                                                      536870912



[ 本帖最后由 xti9er 于 2009-12-8 11:41 編輯 ]