Jednostavno koriscenjem /proc pseudo-fajl sistema.

_{[Ovu poruku je menjao zaljubljeni dana 06.09.2005. u 21:06 GMT+1]}

uz klasicno otvaranje fajlova iz datog VFS-a.



_{[Ovu poruku je menjao zaljubljeni dana 06.09.2005. u 21:22 GMT+1]}

Meni treba skripta pomocu koje mogu da dobijem informacije o pc hardware-u, a ne skripta pomocu koje otvaram i citam sadrzaj nekog fajla.

pa lepo ti je chovek napisao u /proc imas sve sto te interesuje.

ako hoces info za cpu otvoris fajl /proc/cpuinfo i onda radi sta hoces ;)

Moja je greska u pitanju, nisam napomenuo da se radi o windows-u.

e tu ti ne mogu pomoci :>
mozda ce zaljubljeni znati

Obrade ja sam mislio za linux i to je to ;0

@sqla ma da verovatno znam za win lol ;0

Mozda prouci kako vadi onaj qrac System Information na winu.

Mozda lupam ali mislim da se kod windowsa u system registryju nalaze i podaci o hardveru.Ako sam u pravu onda se raspitaj na netu gde se tacno nalaze ti podaci i koristi modul Win32::TieRegistry da pristupis registriyu

Uspeo sam da uz pomoc WMI-a dobijem najrazlicitije informacije. Evo prilazem jedan deo koda:

use Win32::OLE('in');
use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;

my ($computer) = shift || "";
$objWMIService = Win32::OLE->GetObject
("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection failed.\n";
$colItems = $objWMIService->ExecQuery
("SELECT * FROM Win32_ComputerSystem","WQL",wbemFlagReturnImmediately | wbemFlagForwardOnly);

print "System info:\n\n";

foreach my $objItem (in $colItems)
{
print "Manufacturer: $objItem->{Manufacturer}\n";
print "Model: $objItem->{Model}\n";
print "Name: $objItem->{Name}\n";
print "Primary Owner Name: $objItem->{PrimaryOwnerName}\n";
print "Status: $objItem->{Status}\n";
print "Total Physical Memory: $objItem->{TotalPhysicalMemory}\n";
print "User Name: $objItem->{UserName}\n";
print "\n";
}