ฉันจะค้นหาจำนวนหน่วยความจำกายภาพที่แน่นอนบน Windows x86-32 บิตโดยใช้ Perl หรือภาษาอื่น ๆ ได้อย่างไร

ตามที่ระบุไว้ในความคิดเห็น นี่เป็นปัญหาของ GlobalMemoryStatus เนื่องจาก สามารถส่งคืนคำตอบได้สูงสุด 2GB และ GlobalMemoryStatusEX ซึ่งช่วยแก้ปัญหาขนาด 2GB นี้ จำกัด แต่ใช้ได้กับระบบ 64 บิตเท่านั้น (เท่าที่ฉันสามารถบอกได้)

ในที่สุดฉันก็ใช้รหัส Perl ต่อไปนี้ซึ่งใช้คลาส Win32::OLE และ WMI Win32_PhysicalMemory ซึ่งจะส่งคืนหน่วยความจำกายภาพในปริมาณที่ถูกต้องแม้ในระบบ 32 บิต:

use strict;
use warnings;
use English;
use Win32::OLE qw( EVENTS HRESULT in );
use Readonly;

sub get_physical_memory {
    my $machine                         = shift || '.'; # Default to local machine
    my Readonly $WMI_MEMORY_CLASS_NAME  = 'Win32_PhysicalMemory';
    my Readonly $MEGABYTE               = 1024*1024;

    my $WMI = 
        Win32::OLE->GetObject( "winmgmts:{impersonationLevel=impersonate,(security)}//$machine/" ) || die "Could not get Win32 object: $OS_ERROR";
    my $total_capacity                  = 0;

    foreach my $object ( in( $WMI->InstancesOf( $WMI_MEMORY_CLASS_NAME ) ) ) {
        $total_capacity += $object->{Capacity};
    }

    my $total_capacity_in_mb            = $total_capacity / $MEGABYTE;
    print "Total Memory : $total_capacity_in_mb \n";
    return $total_capacity_in_mb;
}

ฉันคิดได้แค่ว่าคำเตือนที่เข้าร่วมผลลัพธ์ของ Win32::SystemInfo นั้นเป็นคำเตือนที่เข้าร่วมการเรียก Win32 API แบบดิบด้วย เนื่องจาก Perl เองไม่มีปัญหาในการจัดการกับตัวเลขจำนวนมากเช่นนี้ ในกรณีนี้ความเป็นไปได้ในการดึงข้อมูลที่ถูกต้องออกมาดูค่อนข้างสิ้นหวัง

ฉันยังได้ยินมาว่า Windows รุ่น 32 บิตปัจจุบันสามารถใช้ RAM ได้ประมาณ 3.2Gb บนเครื่องที่ติดตั้ง >= 4Gb ซึ่งอาจเป็นคำบอกเล่า แต่ jibes ตัวไหนที่มีข้อ จำกัด อยู่ใน API เอง

ข้อมูลนี้สามารถดึงมาจาก WMI หรือใช้ SNMP หากคุณเลือกที่จะเปิดใช้งาน SNMP ในกล่องที่จะใช้งาน สำหรับ WMI ฉันไม่มีตัวอย่าง Perl ทันที แต่สำหรับตัวอย่าง VBScript ดูด้านล่าง

อ้างอิง: http://www.microsoft.com/technet/scriptcenter/guide/sas_wmi_dieu.mspx

strComputer = "."

Set objSWbemServices = GetObject("winmgmts:\\" & strComputer)
Set colSWbemObjectSet = _
 objSWbemServices.InstancesOf("Win32_LogicalMemoryConfiguration")

For Each objSWbemObject In colSWbemObjectSet
 Wscript.Echo "Total Physical Memory (kb): " & _
 objSWbemObject.TotalPhysicalMemory
Next

ทดสอบบนระบบ XP ของฉันและดึงผลลัพธ์ที่ต้องการ (ขออภัยด้วย RAM เพียง 1.5GB เท่านั้น) ฉันค่อนข้างแน่ใจว่ามีอินเทอร์เฟซ WMI สำหรับ Perl เช่นกัน หากคุณต้องการใช้ Perl ต่อไป ถ้า SNMP เป็นตัวเลือก สามารถรับหน่วยความจำฟิสิคัลทั้งหมดได้จาก SNMP เช่นกันโดยใช้ไลบรารี Perl SNMP ตัวใดตัวหนึ่ง

แก้ไข: เพิ่งสังเกตเห็น @Mr. ความคิดเห็นของ Muskrat เกี่ยวกับ Microsoft KB http://support.microsoft.com/kb/274558 - เห็นได้ชัด พฤติกรรมที่คุณเห็นด้วย Perl นั้นเป็นข้อจำกัดของการเรียก Win32 API ดังนั้นคุณอาจได้รับผลลัพธ์เดียวกันกับ WMI น่าเสียดายที่ฉันไม่มีเครื่อง RAM ขนาด 2-4GB ให้ลองใช้เพื่อตรวจสอบ